Тема: ANY: Отказ работы системных компонентов [CDO, XMLHTTP] с SSL (HTTPS)
Сейчас повально все почтовые сервера перешли на SSL\TLS.
В скрипте это учитано.
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
From = "FromMail@yandex.ru"
To = "ToMail@yandex.ru"
With o_Mess
.From = From
.To = To
.Subject = "theme"
.TextBody = "textbody"
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2
.Item(v_Conf & "smtpserver") = "smtp.yandex.ru"
.Item(v_Conf & "smtpauthenticate") = 1
.Item(v_Conf & "sendusername") = from
.Item(v_Conf & "sendpassword") = "password"
.Item(v_Conf & "smtpserverport") = 465
.Item(v_Conf & "smtpusessl") = true
.Item(v_Conf & "smtpconnectiontimeout") = 60
.Update
End With
On Error Resume Next
.send
If Err.Number <> 0 Then
MsgBox err.description,16, "ERROR"
else
msgbox "Email been send",vbInformation
end if
End With
Выдаёт ошибку: CDO.Message.1: Транспорту не удалось подключиться к серверу.
И судя по всему, ошибка достаточно распространённая. Но в чём же проблема??
Win XP. Ни антивирусов, ни фаероволов не стоит.
У вас работает CDO?