代码之家 › 专栏 › 技术社区 › Hanz Cheah

使用cdo.message在Windows Server 2012 R2上发送电子邮件时出现错误“80040211”

cdo.message windows-server-2012-r2 asp-classic vbscript

Hanz Cheah · 技术社区 · 7 年前

使用以下相同的vbscript/asp文件,我只能在Win7 PC上发送电子邮件。在Windows Server 2012 R2上运行相同的脚本时,在关闭所有防火墙的情况下,我无法发送电子邮件。有一个McAfee病毒扫描仪,但即使我禁用它,我也无法发送电子邮件。我还设置了Gmail帐户上的 allow less secure apps:on on,我仍然获得了 error on'80040211' please help me as I run out of ideas to troubleshoot.

dim objsendmail

设置objsendmail=createObject(“cdo.message”)。

objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/sendUsing”)=2
objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”)=“smtp.gmail.com”
objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”)=465
objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”)=“真”
objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”)=60
objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”)=1
objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/sendUsername”)=“****@gmail.com”
objsendmail.configuration.fields.item(“http://schemas.microsoft.com/cdo/configuration/sendpassword”)=“*****”
objsendmail.configuration.fields.update

objsendmail.subject=“测试发送电子邮件”
objsendmail.from=“****@gmail.com”
objsendmail.to=“hello123@gmail.com”
objsendmail.htmlbody=“发送邮件成功”
objsendmail.send

设置objsendmail=无

回复。写“电子邮件发送成功”

设置telnet之后,我输入telnet smtp.gmail.com 587,得到以下响应:

.Allow less secure apps: ON在Gmail账户上,我仍然得到error on '80040211'当我没有解决问题的想法时,请帮助我。


Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "True"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****@gmail.com"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"
ObjSendMail.Configuration.Fields.Update

ObjSendMail.Subject = "Testing Send Email"
ObjSendMail.From = "****@gmail.com"
ObjSendMail.To = "hello123@gmail.com"
ObjSendMail.HTMLBody = "Send mail successful"
ObjSendMail.Send

Set ObjSendMail = Nothing

response.Write "Email Sent Successfully"


设置telnet后,我键入telnet smtp.gmail.com 587,得到以下响应:

2 回复 | 直到 7 年前

Hanz Cheah 7 年前

Keivan Alipoor 7 年前

<%

Set myMail=CreateObject("CDO.Message")
myMail.BodyPart.Charset = "UTF-8"


myMail.Subject= Your Message Subject
myMail.From= "anotheremail@anotherdomain.com"
myMail.To=Receiver Email Address
myMail.CreateMHTMLBody "Test Email Subject"


myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")= SMTP_SERVER
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername")=SMTP_Email_Username
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword")=Smtp_Email_Password
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

%>