#NoTrayIcon
#RequireAdmin
#include <File.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <String.au3>
#include <GuiButton.au3>
Global $settings_add, $s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl
$Form = GUICreate("Mail", 400, 290, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
$Close = GUICtrlCreateLabel("X", 400 - 15, 0, 11, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetCursor(-1, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetCursor(-1, 0)
$Formtitle = GUICtrlCreateLabel("Mail", 0, 4, @DesktopWidth, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Formtitlebackground = GUICtrlCreateGraphic(0, 0, @DesktopWidth, 22)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("", 70, 28, 257, 21)
$Input2 = GUICtrlCreateInput("", 70, 52, 257, 21)
$Input3 = GUICtrlCreateInput("", 70, 76, 257, 21)
$Input4 = GUICtrlCreateInput("", 70, 100, 257, 21)
$Input5 = GUICtrlCreateInput("", 70, 124, 257, 21)
$Input6 = GUICtrlCreateInput("", 70, 148, 257, 21)
$Input7 = GUICtrlCreateInput("", 70, 172, 257, 21)
$Input8 = GUICtrlCreateInput("25", 70, 196, 50, 21)
$Label1 = GUICtrlCreateLabel("Тема:", 8, 30, 29, 17)
$Label2 = GUICtrlCreateLabel("Кому:", 8, 54, 46, 17)
$Label3 = GUICtrlCreateLabel("От кого:", 8, 77, 60, 17)
$Label4 = GUICtrlCreateLabel("SMTP:", 8, 105, 32, 17)
$Label5 = GUICtrlCreateLabel("Логин:", 8, 128, 37, 17)
$Label6 = GUICtrlCreateLabel("Пароль:", 8, 152, 40, 17)
$Label7 = GUICtrlCreateLabel("Файл:", 8, 176, 40, 17)
$Label8 = GUICtrlCreateLabel("Порт:", 8, 200, 29, 17)
$Button1 = GUICtrlCreateButton("Отправка", 8, 220, 150, 25, 0)
GUICtrlSetState($Button1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Сохранить", 167, 220, 147, 25, 0)
$Button3 = GUICtrlCreateButton("Загрузить", 167, 250, 147, 25, 0)
$Button4 = GUICtrlCreateButton("Установить", 8, 250, 147, 25, 0)
$fileadd = GUICtrlCreateButton("...", 330, 172, 40, 21)
GUISetState(@SW_SHOW, $Form)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $Close
Exit
Case $Button1
Apply()
$s_Body = ""
$s_FromName = ""
If FileExists($s_AttachFiles) = @error Then GUICtrlSetData($Input7, "")
If $s_ToAddress = "" Or $s_Subject = "" Or $s_FromAddress = "" Or $s_SmtpServer = "" Or $s_Username = "" Or $s_Password = "" Or $IPPort = "" Then
MsgBox(0, "", "Не все поля заполнены")
Else
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetData($Button1, "Отправляю...")
InetRead("http://www.yandex.ru")
If @error Then
MsgBox(0, "", "Нет соединения")
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetData($Button1, "Отправка")
Else
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetData($Button1, "Отправляю...")
_INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl = 0)
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetData($Button1, "Отправка")
EndIf
EndIf
ControlFocus($Form, "", $Button1)
Case $Button2
GUICtrlSetState($Button2, $GUI_DISABLE)
Apply()
If FileExists($s_AttachFiles) = @error Then GUICtrlSetData($Input7, "")
If $s_ToAddress = "" Or $s_Subject = "" Or $s_FromAddress = "" Or $s_SmtpServer = "" Or $s_Username = "" Or $s_Password = "" Or $IPPort = "" Then
MsgBox(0, "", "Не все поля заполнены")
Else
Save()
EndIf
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
ControlFocus($Form, "", $Button2)
Case $Button3
GUICtrlSetState($Button3, $GUI_DISABLE)
Load()
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button1, $GUI_ENABLE)
ControlFocus($Form, "", $Button3)
Case $Button4
GUICtrlSetState($Button4, $GUI_DISABLE)
_install()
GUICtrlSetState($Button4, $GUI_ENABLE)
Case $fileadd
$sFile = FileOpenDialog('Выбор файла', '', 'Все файлы (*.*)', "", "", $Form)
GUICtrlSetData($Input7, $sFile)
ControlFocus($Form, "", $fileadd)
EndSwitch
WEnd
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $s_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($s_Body, "<") And StringInStr($s_Body, ">") Then
$objEmail.HTMLBody = $s_Body
Else
$objEmail.Textbody = $s_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @LF & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$objEmail.Configuration.Fields.Update
$objEmail.Send
If @error Then
SetError(2)
Return
EndIf
EndFunc ;==>_INetSmtpMailCom
Func Apply()
$s_SmtpServer = GUICtrlRead($Input4)
$s_FromAddress = GUICtrlRead($Input3)
$s_Username = GUICtrlRead($Input5)
$s_Password = GUICtrlRead($Input6)
$IPPort = GUICtrlRead($Input8)
$s_ToAddress = GUICtrlRead($Input2)
$s_Subject = GUICtrlRead($Input1)
$s_AttachFiles = GUICtrlRead($Input7)
EndFunc ;==>Apply
Func Save()
Apply()
$Save = _StringEncrypt(1, $s_SmtpServer & "&#8224;" & $s_FromName & "&#8224;" & $s_FromAddress & "&#8224;" & $s_Username & "&#8224;" & $s_Password & "&#8224;" & $IPPort & "&#8224;" & $s_ToAddress & "&#8224;" & $s_Subject & "&#8224;" & $s_AttachFiles & "&#8224;" & $ssl, "Secret")
$save_sattings = FileSaveDialog("Сохранение настроек", "", "(settings.txt)", "", "settings.txt", $Form)
If FileExists($save_sattings) Then FileDelete($save_sattings)
FileWrite($save_sattings, $Save)
EndFunc ;==>Save
Func Load()
$settings_add = FileOpenDialog('Выбор файла - Settings.txt', "", '(settings.txt)', '', '', $Form)
If $settings_add = True Then
$Load = FileRead($settings_add)
$Decrypt = _StringEncrypt(0, $Load, "Secret")
$Settings = StringSplit($Decrypt, "&#8224;", 1)
GUICtrlSetData($Input4, $Settings[1])
GUICtrlSetData($Input3, $Settings[3])
GUICtrlSetData($Input5, $Settings[4])
GUICtrlSetData($Input6, $Settings[5])
GUICtrlSetData($Input8, $Settings[6])
GUICtrlSetData($Input2, $Settings[7])
GUICtrlSetData($Input1, $Settings[8])
GUICtrlSetData($Input7, $Settings[9])
Else
Return
EndIf
EndFunc ;==>Load
