Юрий
Новичок
- Сообщения
- 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=""