none
Почта на VBS RRS feed

  • Вопрос

  • Понадобилось сделать простенькую почту на VBS. Написал все вроде бы правильно но после нескольких попыток запустить скрипт пишет следующее:
  • Error Type:
    CDO.Message.1 (0x80040213)
    The transport failed to connect to the server.
    /1.asp, line 61

    а код такой:

  • Dim a
    Set a=CreateObject("CDO.Message")
    a.subject="test message"
    a.from="denis.lezgin@gmail.com"
    a.to="den4uk@mail.ru"
    a.TextBody="test"
    a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    a.Configuration.Fields.Update
    a.send
    помогите пожалуйста!
31 августа 2009 г. 15:18

Ответы

  • А почему порт SMTP у тебя 465 ? вроде 25 был всегда.
    Andrew Mishechkin
    У gmail`а? 25? харе петросянить.

    Пользуйте авторизацию, гугле неавторизованных не передает
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = User@gmail.com 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = P@SSw0rd 
    Вообще в офф доке gmail.com указанно что надо юзать 587 port для SMTP.

    Потестил, вот рабочий скрипт:

    Set objEmail = CreateObject("CDO.Message") 
    objEmail.From = "denis.lezgin@gmail.com"
    objEmail.To = "den4uk@mail.ru"
    objEmail.Subject = "test message" 
    objEmail.Textbody = "test " 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "denis.lezgin@gmail.com" 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "P@$$w0rd" 
    objEmail.Configuration.Fields.Update 
    objEmail.Send 
    
    • Предложено в качестве ответа Gmur 3 сентября 2009 г. 7:27
    • Помечено в качестве ответа Vasily GusevModerator 17 сентября 2009 г. 17:36
    3 сентября 2009 г. 7:04

Все ответы

  • Ну вроде он тебе нормальным английским языком написал, что the transport failed to connect to the server - смотри параметры сервера или пользователя. А не-скриптом почта уходит-приходит ?
    Andrew Mishechkin
    31 августа 2009 г. 17:40
  • А почему порт SMTP у тебя 465 ? вроде 25 был всегда.
    Andrew Mishechkin
    31 августа 2009 г. 17:46
  • А почему порт SMTP у тебя 465 ? вроде 25 был всегда.
    Andrew Mishechkin
    У gmail`а? 25? харе петросянить.

    Пользуйте авторизацию, гугле неавторизованных не передает
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = User@gmail.com 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = P@SSw0rd 
    Вообще в офф доке gmail.com указанно что надо юзать 587 port для SMTP.

    Потестил, вот рабочий скрипт:

    Set objEmail = CreateObject("CDO.Message") 
    objEmail.From = "denis.lezgin@gmail.com"
    objEmail.To = "den4uk@mail.ru"
    objEmail.Subject = "test message" 
    objEmail.Textbody = "test " 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "denis.lezgin@gmail.com" 
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "P@$$w0rd" 
    objEmail.Configuration.Fields.Update 
    objEmail.Send 
    
    • Предложено в качестве ответа Gmur 3 сентября 2009 г. 7:27
    • Помечено в качестве ответа Vasily GusevModerator 17 сентября 2009 г. 17:36
    3 сентября 2009 г. 7:04

  • Andrew Mishechkin
    У gmail`а? 25? харе петросянить.
    Ну извиняй, не юзал ни разу gmail, вот и не сразу сообразил (к тому же ночью на формуе сидел :) )
    Andrew Mishechkin
    3 сентября 2009 г. 8:39