Здравствуйте форумчане. перекопал весь форум, нашел кучу кода, но не один не работает через mail.ru. постоянная ошибка (скрин во вложении)
пробовал коды
первый
второй
как решить проблему? в чем ошибка?
пробовал коды
первый
Код:
$SmtpServer = "smtp.mail.ru" ; адрес SMTP сервера
$Port = "2525" ; Порт SMTP сервера
$FromAddress = "[email protected]" ; адрес отправителя
$ToAddress = "[email protected]" ; адрес назначения
$Subject = """тема письма""" ; тема письма
$Body = """Tekst v imeila""" ; тело письма (сам текст письма)
$AttachFiles = "C:\test.txt" ; прикреплённые файлы к письму
$Username = "[email protected]" ; имя пользователя аккаунта, с которого отправляется
$Password = "qwertyuiop" ; Парол
$BlatArgs = "-t "&$ToAddress&" -f "&$FromAddress&" -s "&$Subject&" -body "&$Body&" -server "&$SmtpServer&" -u "&$Username&" -pw "&$Password&" -attach "&$AttachFiles&" -portSMTP "&$Port
_SendMail($BlatArgs)
Func _SendMail($CMDstring)
$BlatDLL = DllOpen ("blat.dll")
$result=DllCall($BlatDLL,"int","Send","str",$CMDstring)
DllClose ($BlatDLL)
EndFunc
второй
Код:
_send("Premium", "Fake", "C:\test.txt")
Func _send($Body, $Subject, $Attachment)
$FromAddress = '[email protected]
$ToAddress = '[email protected]'
$SMTPServer = 'smtp.mail.ru'
$Username = '[email protected]'
$Password = "zxcvbnm"
$Port = '2525'
$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = $FromAddress
.To = $ToAddress
.Subject = $Subject
.TextBody = $Body
.AddAttachment ($Attachment)
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & "sendusing") = 2
.Item ($str & "smtpserver") = $SMTPServer
.Item ($str & "smtpauthenticate") = 1
.Item ($str & "sendusername") = $Username
.Item ($str & "sendpassword") = $Password
.Item ($str & "smtpserverport") = $Port
.Update
EndWith
$hMAIL.Send
EndFunc
как решить проблему? в чем ошибка?