Что нового

Не работет проверка ошибки посыла письма (smtp.gmail.com)

Юрий

Новичок
Сообщения
82
Репутация
3
Доброго вам времени суток. Как сделать что бы проверка ошибки посыла заработала (If @error):
Код:
Local $SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $Username, $Password, $IPPort, $ssl
$SmtpServer = "smtp.gmail.com"
$FromName = "abc"
$FromAddress = "[email protected]"
$ToAddress = "[email protected]"
$Subject = "А"
$Body = FileRead("info.txt")
$Username = "[email protected]"
$Password = "from123"
$IPPort = 465
$ssl = 1 
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $FromName & '" <' & $FromAddress & '>'
$objEmail.To = $ToAddress
$objEmail.Subject = $Subject
$objEmail.TextBody = $Body
;~    $objEmail.AddAttachment(@ScriptDir & "\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
If @error Then 
   MsgBox(64,"","")
   Exit
EndIf
$objEmail=""
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Юрий,
Код:
ObjEvent("AutoIt.Error", "MyErrFunc")
 
Верх