urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Доброго времени суток уважаемые форумчане.
Снова возникла задачка, которую я когда то решил, но теперь не помню как.
Поиск не помог. К тому же на форуме он вообще давно не работает !!! :'(
В общем есть пример кода отправки письма на электронный адрес.
Но при неверном адресе "мыла" или ещё каких то "нежданчиков" вылетает прога из-за ошибки
во время отправки письма на эл. почту.
Ошибка: "$hMAIL.^Error"
Как такую ошибку записать в исключения и игнорировать при её возникновении,
что бы программка не вылетала?
P.S.
так
не работает.
Снова возникла задачка, которую я когда то решил, но теперь не помню как.
Поиск не помог. К тому же на форуме он вообще давно не работает !!! :'(
В общем есть пример кода отправки письма на электронный адрес.
Но при неверном адресе "мыла" или ещё каких то "нежданчиков" вылетает прога из-за ошибки
во время отправки письма на эл. почту.
Код:
#include <Date.au3>
Global $email_from = '[email protected]'
Global $email_to = "[email protected]"
Global $password = "***"
Global $gg = _NowDate()
SendMeil()
Func SendMeil()
$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = $email_from
.To = $email_to
.Subject = $gg
.TextBody = " !!! " ;Текст
.BodyPart.Charset = "UTF-8" ;кодировка "UTF-8"
.HTMLBody = "<b> !!! </b></br>" ;В HTML формат
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & "sendusing") = 2
.Item ($str & "smtpserver") = 'smtp.yandex.ru' ;smtp сервер
.Item ($str & "smtpauthenticate") = 1
.Item ($str & "sendusername") = '[email protected]' ; $email_from
.Item ($str & "sendpassword") = $password;
.Item ($str & "smtpusessl") = 1 ; TLS/SSL
.Item ($str & "smtpserverport") = 465 ;Порт
.Update
EndWith
$hMAIL.Send
EndFunc
Ошибка: "$hMAIL.^Error"
Как такую ошибку записать в исключения и игнорировать при её возникновении,
что бы программка не вылетала?
P.S.
так
Код:
If @Error Then Sleep(10)
не работает.