Не работает скрипт отправки почты

[ponchic]

Вот такой скрипт отправка с яндекса на яндекс

strSMTPFrom = "col@yandex.ru"
strSMTPTo = "col@yandex.ru"
strSMTPRelay = "smtp.yandex.ru"
strTextBody = "Body of your email"
strSubject = "Subject line"
strAttachment = "C:\\Temp\1.txt"
 
 
Set oMessage = CreateObject("CDO.Message")
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPRelay
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMessage.Configuration.Fields.Update
 
oMessage.Subject = strSubject
oMessage.From = strSMTPFrom
oMessage.To = strSMTPTo
oMessage.TextBody = strTextBody
oMessage.AddAttachment strAttachment
 
 
oMessage.Send

если порт ставлю 465 то: Транспорту не удалось подключтся к серву
если 25: Сервер отклонил адрес отправивителяю. отклик серва 503
5.5.4 error; send auth command first
Что делать? Очень нужно!
Тоже самое кстати когда пытаюсь с mail.ru на mail.ru

[doober]

Так работает

oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1