#include <String.au3>
#include <array.au3>
Global $s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl, $oMyRet[2], $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
If FileExists("Settings.txt") Then
$Load = FileRead("Settings.txt")
$Decrypt = _StringEncrypt(0, $Load, "Secret")
$Settings = StringSplit($Decrypt, "†", 1)
EndIf
Dim $aVar[9] = [8, $Settings[1], $Settings[3], $Settings[4], $Settings[5], $Settings[6], $Settings[7], $Settings[8], $Settings[9]]
For $i = 1 To $aVar[0]
Assign('s' & $i, $aVar[$i])
Next
For $i = 1 To $aVar[0]
Eval('s' & $i)
Next
$s_SmtpServer = $aVar[1]
$s_FromName = "name"
$s_FromAddress = $aVar[2]
$s_Username = $aVar[3]
$s_Password = $aVar[4]
$IPPort = $aVar[5]
$s_ToAddress = $aVar[6]
$s_Subject = $aVar[7]
$s_Body = "text"
$s_AttachFiles = $aVar[8]