[疑难排除][电邮]CDO返回错误'80040211' 编辑词条 发表评论(0)

1. 在您的CDO的部分，请确保您使用的是正确的SMTPserver，应该是mail.YOURdomain.com。
2. 有效的sendusername，它应该是一个如postmaster@Yourdomain.com的有效电子邮件地址。请确保您有创建这样的电子邮件地址。
3. 正确的sendpassword。这是sendusername的电子邮件地址密码。
4. 请确保sendobject.FROM和步骤2中的sendusername是相同的电子邮件地址。
当您确保所有4个步骤是正确的，错误应该消失。
这里有一个使用CDO代码示例：
------------------------------------------------------------

Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
    
'本节提供了远程SMTP服务器的配置信息。
    
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '使用网络来发送邮件（通过网络的SMTP）。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.YOURDomain.com" '您的SMTP服务器
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False '于连接中使用SSL（True或False）
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    
' 如果您的发送邮件服务器需要SMTP验证，注释下面的线路和使用一个有效的电子邮件地址和密码。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '基本（clear-text）身份验证
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="youremail@yourdomain.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourEmailPassword" '您的电子邮件地址密码
    
ObjSendMail.Configuration.Fields.Update
    
'完成远程SMTP服务器的配置
    
ObjSendMail.To = "To_address_here;" '收件人地址
ObjSendMail.Subject = emailSubject '标题

ObjSendMail.From = "youremail@yourdomain.com" '请确保这与上述的sendusername是相同。
    
'我们正在发送文字邮件..简单地切换以下代码来发送HTML电子邮件
'ObjSendMail.HTMLBody = "this is the body" '本文
ObjSendMail.TextBody = "test" '电子邮件本文
    
ObjSendMail.Send