#AutoIt3Wrapper_Run_AU3Check=n
;#include <Array.au3>; for _ArrayDisplay
#include "sendmail.au3"
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.12.0
Author: alex33
#ce ----------------------------------------------------------------------------
Global $s7zrPath = @ScriptDir&"\7zr.exe"
Global $sDirPath = @ScriptDir&"\myfiles"
Global $sArchivePath = @ScriptDir&'\Archive.7z'
Global $SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl
$SmtpServer = "smtp.yandex.ru"
$FromName = "alex33"
$FromAddress = "[email protected]"
$ToAddress = "a**x.s***[email protected]"
$Subject = "Файлы с компьютера "&@UserName&"@"&@ComputerName
$Body = "Это AutoIt скрипт... Во вложении архив с файлами."&@CRLF&"Оригинал был удалён с компьютера после отправки этого письма."
$AttachFiles = $sArchivePath
$Username = "aleks-samos"
$Password = "**********"
$IPPort = 465
$ssl = 1
Func _main()
If FileExists($sArchivePath) Then FileDelete($sArchivePath); удаляем архив если он существует
If Not FileExists($sDirPath&"\") Then Return SetError(1, 0, 0)
Local $aSize = DirGetSize($sDirPath, 1)
If Not IsArray($aSize) Then Return SetError(2, 0, 0)
If $aSize[0] >= 10000 Or $aSize[1] >= 4 Then
RunWait($s7zrPath & ' a "' & $sArchivePath & '" i "' & $sDirPath & '"', '', @SW_HIDE)
_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error <> 0 Then
;MsgBox(16, "sendmail", "Ошибка при отправки сообщения", 5)
Else
FileDelete($sDirPath&"\*.*"); удаляем все файлы из папки
FileDelete($sArchivePath); удаляем архив
;MsgBox(0, "sendmail", "Сообщение успешно отправлено", 5)
EndIf
EndIf
EndFunc
_main()