Код:
Код: Выделить всё
.To = "кому"Пишет:"error: missing separator character before keyword." Этот скрипт с ранней версией работает нормально, в чем проблема ?
Текст скрипта
[spoiler]$str = "
http://schemas.microsoft.com/cdo/configuration/
"Код: [/spoiler]
Код: Выделить всё
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = "от кого";
.To = "кому"
.Subject = "Test"
.TextBody = "Test mail"
.AddAttachment ("") ;файл для отправки
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & "sendusing") = 2
.Item ($str & "smtpserver") = "smtp.inbox.ru" ;SMTP Server
.Item ($str & "smtpusessl") = True
.Item ($str & "smtpauthenticate") = 1
.Item ($str & "sendusername") = "исходящий адрес"
.Item ($str & "sendpassword") = "пароль почты" ;Пароль SMTP-сервер
.Item ($str & "smtpserverport") = 2525 ;Порт
.Update
EndWith
$hMAIL.Send