Юрий
Новичок
- Сообщения
- 82
- Репутация
- 3
Доброго времени суток. Проблема вот в чём: не могу прикрепить файл к письму, само письмо приходит, написано вроде правильно, и в пути к файлу пробелов нет. Не пойму что делать.
Код:
Код:
Код:
Local $SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $Username, $Password, $IPPort, $ssl
$SmtpServer = "smtp.yandex.ru"
$FromName = "Sender"
$FromAddress = "[email protected]"
$ToAddress = "[email protected]"
$Subject = @ComputerName
$Body = "<h1>Вот файл</h1><p>Всё для вас, всё для вас =)
" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "</p>"
$Username = "username"
$Password = "pass1234"
$IPPort = 465
$ssl = 1
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $FromName & '" <' & $FromAddress & '>'
$objEmail.To = $ToAddress
$objEmail.Subject = $Subject
$objEmail.HTMLBody = $Body
$objEmail.AddAttachment("D:\info.txt") ;файл не прикрепляется
$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