11943499
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Цитата: Ребята, у меня одного этот скрипт не работает ? Получаю ошибку 50 (не открывается smtp сессия). Комп не защищен, пробовал с разных компов, защиты отключены.
Отсылка почты, взято из штатного help редактора.
[code] #include <INet.au3>
$s_SmtpServer = "smtp.mail.ru"
$s_FromName = "mymail"
$s_FromAddress = "mymail1@mail.ru"
$s_ToAddress = "mymail2@mail.ru"
$s_Subject = "My Test UDF"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf |
[code]
С mail.ru есть проблемы (по наслышке, сам не пробовал), юзайте gmail.
gmail реагирует аналогично, ошибка открытия smtp сессии. Думаю, возможно проблема в том что smtp сереверы требуют идентификации, а в этом скрипте это не реализовано. Помогите кто знает, функция-то очень полезная.
PS
Научите как пользоваться тегами [code] |
Всего записей: 132 | Зарегистр. 06-10-2008 | Отправлено: 08:20 06-07-2009 | Исправлено: 11943499, 08:22 06-07-2009 |
|
Это в принципе возможно? Где рыть? 
