Hawk37
05-03-2010, 15:11
Вот нарыл код для отправки письма,помогите переделать его для:
- Mail.Ru
- Yandex.Ru
- Rambler.Ru
#include <INet.au3>
$s_SmtpServer = "smtp.list.ru"
$s_FromName = "Mister Bin"
$s_FromAddress = "mister2217@yandex.ru"
$s_ToAddress = "yazvin@list.ru"
$s_Subject = "xxxx"
Dim $s_Body[2]
$s_Body[0] = "1"
$s_Body[1] = "2"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf
P.S. - Но проблема еще в том что в данном скрипте нет строки для авторизации ( То есть авторизации на Mail.Ru,Rambler.. ) , добавить не смог одни ошибки,прошу помочь ;)
- Mail.Ru
- Yandex.Ru
- Rambler.Ru
#include <INet.au3>
$s_SmtpServer = "smtp.list.ru"
$s_FromName = "Mister Bin"
$s_FromAddress = "mister2217@yandex.ru"
$s_ToAddress = "yazvin@list.ru"
$s_Subject = "xxxx"
Dim $s_Body[2]
$s_Body[0] = "1"
$s_Body[1] = "2"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf
P.S. - Но проблема еще в том что в данном скрипте нет строки для авторизации ( То есть авторизации на Mail.Ru,Rambler.. ) , добавить не смог одни ошибки,прошу помочь ;)