Не отправляется сообщение на Email

[Isn]

Доброго времени суток форумчане
Имеется следующий код:

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
    With $hMAIL
        .From = "345435"
        .To = "3243"
        .Subject = "test"
        .TextBody = "Report"
        .AddAttachment (@ScriptDir & "\test.txt")
    EndWith
    With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = "smtp.mail.ru"
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = "test"
        .Item ($str & "sendpassword") = "test"
        .Item ($str & "smtpserverport") = 2525
        .Update
    EndWith
$hMAIL.Send

Давно им пользуюсь в меру от надобности и тут снова понадобился ну не работет почему подскажите? Ошибка на скрине во вложениях.

 

[joiner]

нужно учитывать ошибки
вобщем, смотри во вложении исходник программы Mail Sender
и еще. на форуме уже, наверное, с десяток тем по этой функции .