Ошибка на последней строке $hMAIL.Send
Вроде все верно, в чем проблема?
Вроде все верно, в чем проблема?
Код:
Func _Send_Email_Ataka($Body, $Subject)
$FromAddress = '********@gmail.com' ; Адрес отправителя
$ToAddress = '*********@gmail.com' ; Адрес получателя
$Username = '**********@gmail.com' ; Логин отправителя
$Password = "***********" ; Пароль почты отправителя
$SMTPServer = 'smtp.gmail.com' ; SMTP-сервер
$Port = 465 ; Порт сервера
$SSL = 1 ; SSL
$AddAttachment = ('C:\*****.bmp');отправляем файл
$conf = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = $FromAddress
.To = $ToAddress
.Subject = $Subject
.TextBody = $Body
.AddAttachment ('C:\*****.bmp')
EndWith
With $hMAIL.Configuration.Fields
.Item ($conf & "sendusing") = 2
.Item ($conf & "smtpauthenticate") = 1
.Item ($conf & "sendusername") = $Username
.Item ($conf & "sendpassword") = $Password
.Item ($conf & "smtpserver") = $SMTPServer
.Item ($conf & "smtpserverport") = $Port
.Item ($conf & "smtpusessl") = $SSL
.Update
EndWith
$hMAIL.Send
EndFunc