Добрый день!
Отсылаю выбранный файл на несколько почтовых адресов. Нужно получать подтверждения о получении. Вопрос как? на форуме подобного не нашел.
Рабочий вариант прикрепляю
Отсылаю выбранный файл на несколько почтовых адресов. Нужно получать подтверждения о получении. Вопрос как? на форуме подобного не нашел.
Рабочий вариант прикрепляю
Код:
Local $SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $Username, $Password, $IPPort, $ssl
$SmtpServer = "smtp.yandex.ru"
$FromName = "откуда"
$FromAddress = "[email protected]"
$ToAddress = "[email protected]"
$ToAddress1 = "[email protected]"
$ToAddress2 = "[email protected]"
$ToAddress3 = "[email protected]"
$ToAddress4 = "[email protected]"
$ToAddress5 = "[email protected]"
$ToAddress6 = "[email protected]"
$Subject = "Сводка за "& @MDAY & "." & @MON & "." & @YEAR
$Body = "<h1>Вот файл</h1><p>Отправлено:
" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "</p>"
$Username = "логин"
$Password = "пароль"
$IPPort = 465
$ssl = 1
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $FromName & '" <' & $FromAddress & '>'
$objEmail.To = $ToAddress&"," &$ToAddress1&"," &$ToAddress2&"," &$ToAddress3&","&$ToAddress4&","&$ToAddress5&","&$ToAddress6
$objEmail.Subject = $Subject
$objEmail.HTMLBody = $Body
;~ MsgBox(0,"F:\"&@MDAY & "" & @MON & "" & @YEAR &".txt","F:\"&@MDAY & "" & @MON & "" & @YEAR &".doc")
Call("open")
Func open()
$message = "Удерживайте клавиши Ctrl или Shift, чтобы выбрать несколько файлов."
$var = FileOpenDialog($message, "F:\", "Текстовые (*.doc;*.docx)", 1 + 4)
If @error Then
MsgBox(4096, "", "Не выбрано ни одного файла! Попробуйте еще раз.")
Call("open")
Else
$var = StringReplace($var, "|", @CRLF)
$objEmail.AddAttachment($var)
MsgBox(4096, "", "Письмо с файлом" & $var & " отправлено!")
EndIf
EndFunc
;~ $objEmail.AddAttachment("F:\"&@MDAY & "" & @MON & "" & @YEAR &".doc") ;файл не прикрепляется
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $SmtpServer
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $Password
If $ssl Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
$objEmail.Configuration.Fields.Update
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
$objEmail.Fields.Update
$objEmail.Send
$objEmail = ""
Exit