Ошибка (error) при работа с электронной почтой smtp.yandex.ru из скрипта по средствам CDO (Collaboration Data Objects)

Вот такую ошибку выдает скрипт:

---------------------------
Windows Script Host
---------------------------
Сценарий: C:\12345\Work\Scripting\eMail\send_eMail.vbs
Строка: 42
Символ: 2
Ошибка: Сервер отклонил адрес отправителя. Отклик сервера: 503 5.5.4 Error: send AUTH command first.

Код: 8004020E
Источник: (null)

---------------------------
ОК
---------------------------

Собственно сам скрипт который выдает ошибку:

Message = "Test message" Set myMail=CreateObject("CDO.Message") myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'Your UserID on the SMTP server myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Login" 'Your password on the SMTP server myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" myMail.Subject="Sending email with CDO" myMail.From="logi@yandex.ru" myMail.To="poluchatel@gmail.com" myMail.TextBody = Message myMail.BodyPart.CharSet = "utf-8" 'myMail.AddAttachment "Login Data" myMail.Configuration.Fields.Update myMail.Send set myMail=nothing MsgBox "eMail is send!"

Долго искал причину, нашел один форум с подобной проблемой но решения там небыло, пришлось читать мануал и нашел smtpauthenticate Field тут сказано что оно(fild) имеет три параметра 1. cdoAnonymous 2. cdoBasic и третий нам не нужен ) по умолчанию без аутентификации(анонимно), в нашем случае присутствует аутентификация, нам нужно указать второй параметр "базовая аутентификация" smtpauthenticate = 1 :

Message = "Test message" Set myMail=CreateObject("CDO.Message") myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'Your UserID on the SMTP server myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Login" 'Your password on the SMTP server myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" myMail.Subject="Sending email with CDO" myMail.From="login@yandex.ru" myMail.To="poluchatel@gmail.com" myMail.TextBody = Message myMail.BodyPart.CharSet = "utf-8" 'myMail.AddAttachment "Login Data" myMail.Configuration.Fields.Update myMail.Send set myMail=nothing MsgBox "eMail is send!"

Удобная вещь!
Zen Coding – плагин для ускорения написания HTML и CSS кода

Численность населения Украины c 1990 по 2013 гг.

Добавьте подпись

Удаленная перезагрузка ADSL modem, точки доступа, роутера.

Есть роутер, модем, точка доступа не важно и стоит оно) далеко(в подвале, коридоре) и при этом глючит пару раз в день из-за плохой связи, приходится подымать зад и идти выключать включать, что бы никуда не ходить решил написать скрипт который будет перезагружать это "оно". По аналогии можно написать скрипт для любого девайся с веб-мордой. Если будут сложности пишите помогу.

URL1="http://192.168.0.1/cgi-bin/webcm?getpage=../html/utilities_reboot.html"
 
Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_")
    objIE.Navigate URL1
    objIE.Visible = false
  Do
   Wscript.Sleep 5000
  Loop While objIE.Busy
'objIE.Document.Script.doReboot()
objIE.document.frmReboot.submit()
wscript.Sleep 7000
objIE.Quit
MsgBox "Modem is reset!"

Предлагаю программу для автоматического наполнения сайта на системе UCOZ (Автопостинг в UCOZ)

Постит новости с Rss, XML-фаила. По желанию программу всегда можно расширить для совместимости с другими форматами. Поддерживает работу с командной строкой, параметры: категоря новостей, файл базы с новостями. Проверяет есть ли такая новость в базе, если "да" не постит, если "нет" заносит на сайт и в базу. Программой пользуюсь несколько лет писал для себя.
Могу написать программу(грабер) которая будет выбирать нужную вам информацию(соответствующую вашим критерия) с указанного сайта и постить на ваш сайт на системе UCOZ.

Пишите!