AutoITAdepT
30-07-2010, 23:13
И снова здравствуйте. По соображениям безопасности нужно чтобы программа высылала письмо на майл или яндекс, посмотрел в справке есть интересная функция _INetSmtpMail, и все вроде бы понятно, да вот только к серверу исходящей почты можно залогиниться только с паролем. Вопрос: как залогиниться к серверу? или где указать пароль, чтобы все таки скрипт цеплялся к серверу? Заранее спасибо!
Проблема в том что мне постоянно возвращает 50 ошибку.
$s_SMTPServer="smtp.mail.ru"
$s_FromName="***@mail.ru"
$s_FromAddress="***@mail.ru"
$s_ToAddress="***@yandex.ru"
$s_Subject="test"
Dim $as_Body[2]
$as_Body[0]="test"
$as_Body[1]="2 test"
$username="***@mailru"
$password="***"
$IPPort = 25
$ssl = 0
$response = _INetSmtpMail($s_SMTPServer,$s_FromName,$s_FromAddress,$s_ToAddress,$s_Subject,$as_Body,$username,$p assword,$IPPort,$ssl)
$err=@error
if $response=1 Then
MsgBox(0,"mail","success")
Else
MsgBox(0, "mail","error" & $err)
EndIf
Проблема в том что мне постоянно возвращает 50 ошибку.
$s_SMTPServer="smtp.mail.ru"
$s_FromName="***@mail.ru"
$s_FromAddress="***@mail.ru"
$s_ToAddress="***@yandex.ru"
$s_Subject="test"
Dim $as_Body[2]
$as_Body[0]="test"
$as_Body[1]="2 test"
$username="***@mailru"
$password="***"
$IPPort = 25
$ssl = 0
$response = _INetSmtpMail($s_SMTPServer,$s_FromName,$s_FromAddress,$s_ToAddress,$s_Subject,$as_Body,$username,$p assword,$IPPort,$ssl)
$err=@error
if $response=1 Then
MsgBox(0,"mail","success")
Else
MsgBox(0, "mail","error" & $err)
EndIf