V77: CDO.Message перестали отправляться.
Сервер smtp.yandex.ru
Проблема только на Win XP, началась буквально 2 недели назад.
"CDO.Message.1: Транспорту не удалось подключиться к серверу".
настройки такие
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mymail@mydomain.ru"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Пробовал: включать пароли приложений, устанавливать цепочку сертификатов, устанавливал корневой сертификат.
Win7 и выше пока работают.
Параллельно отправил запрос админам на обновление до win7, но у них какие-то сложности с оборудованием.
Проблема только на Win XP, началась буквально 2 недели назад.
"CDO.Message.1: Транспорту не удалось подключиться к серверу".
настройки такие
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mymail@mydomain.ru"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Пробовал: включать пароли приложений, устанавливать цепочку сертификатов, устанавливал корневой сертификат.
Win7 и выше пока работают.
Параллельно отправил запрос админам на обновление до win7, но у них какие-то сложности с оборудованием.
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Рабочий пример:
send_email(Text, CC="")
{
ComObjError(false)
pmsg := ComObjCreate("CDO.Message")
pmsg.From := "from@gmail.com"
pmsg.To := "to@sms.lmt.lv"
pmsg.CC := CC
pmsg.Subject := "subject"
pmsg.TextBody := Text
fields := Object()
fields.smtpserver := "smtp.gmail.com" ; specify your SMTP server
fields.smtpserverport := 465
fields.smtpusessl := True ; False
fields.sendusing := 2 ; cdoSendUsingPort
fields.smtpauthenticate := 1 ; cdoBasic
fields.sendusername := "from@gmail.com"
fields.sendpassword := "password"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"
pfld := pmsg.Configuration.Fields
For field,value in fields
pfld.Item(schema . field) := value
pfld.Update()
pmsg.Send()
return
}
send_email(Text, CC="")
{
ComObjError(false)
pmsg := ComObjCreate("CDO.Message")
pmsg.From := "from@gmail.com"
pmsg.To := "to@sms.lmt.lv"
pmsg.CC := CC
pmsg.Subject := "subject"
pmsg.TextBody := Text
fields := Object()
fields.smtpserver := "smtp.gmail.com" ; specify your SMTP server
fields.smtpserverport := 465
fields.smtpusessl := True ; False
fields.sendusing := 2 ; cdoSendUsingPort
fields.smtpauthenticate := 1 ; cdoBasic
fields.sendusername := "from@gmail.com"
fields.sendpassword := "password"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"
pfld := pmsg.Configuration.Fields
For field,value in fields
pfld.Item(schema . field) := value
pfld.Update()
pmsg.Send()
return
}
(3) нет, это все есть. я все тело не приложил
Код работал до мая 100%, у меня закралось мнение что-то с сертификатом на клиентском компьютере. Может быть можно включить отладку на CDO
ВесьКод |
|---|
Set loConfig = CreateObject("CDO.Configuration")
Set loCdoMessage = CreateObject("CDO.Message")
loCdoMessage.BodyPart.Charset = "windows-1251"
loCdoMessage.Configuration = loConfig
loCdoMessage.From = "noreply@mydomain"
loCdoMessage.To = "toAddr@mydomain.ru"
loCdoMessage.Subject = "Title"
loCdoMessage.textbody = "Body";
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mymail@mydomain.ru"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
loConfig.Fields.Update
loCdoMessage.Send
Показать |
Код работал до мая 100%, у меня закралось мнение что-то с сертификатом на клиентском компьютере. Может быть можно включить отладку на CDO
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот