vba调用cdo发送邮件（qq邮箱）

星语心愿

用楼主的代码修改，出现如下错误提示，不知道是什么原因。
Sub CDOSENDEMAIL()
Dim CDOMail As Variant
On Error Resume Next '出错后继续执行
Application.DisplayAlerts = False '禁用系统提示
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly '将工作簿设置为只读模式
Set CDOMail = CreateObject("CDO.Message") '创建对象
CDOMail.From = "6169628@qq.com" '设置发信人的邮箱
CDOMail.To = "78583296@qq.com" '设置收信人的邮箱
CDOMail.Subject = "主题:用CDO发送邮件试验" '设定邮件的主题
'CDOMail.TextBody = "文本内容" '使用文本格式发送邮件
CDOMail.HtmlBody = "当您看到此封邮件，表明CDO设置正确" '使用Html格式发送邮件
CDOMail.AddAttachment ThisWorkbook.FullName '发送本工作簿为附件
stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
With CDOMail.Configuration.Fields
.Item(stUl & "smtpusessl") = True
.Item(stUl & "smtpserver") = "smtp.qq.com" 'SMTP服务器地址
.Item(stUl & "smtpserverport") = 465 'SMTP服务器端口
.Item(stUl & "sendusing") = 2 '发送端口
.Item(stUl & "smtpauthenticate") = 1 '远程服务器需要验证
.Item(stUl & "sendusername") = "10000" '发送方邮箱名称
.Item(stUl & "sendpassword") = "vsoxubndgmvwbhjg" '发送方邮箱密码
.Item(stUl & "smtpconnectiontimeout") = 60 '连接超时（秒）
.Update
End With
CDOMail.Send '执行发送
Set CDOMail = Nothing '发送成功后即时释放对象
If Err.Number = 0 Then
MsgBox "成功发送邮件", , "温馨提示" '如果没有出错，则提示发送成功
Else
MsgBox Err.Description, vbInformation, "邮件发送失败" '如果出错，则提示错误类型和错误代码
End If
ThisWorkbook.ChangeFileAccess Mode:=xlReadWrite '将工作簿设置为读写模式
Application.DisplayAlerts = True '恢复系统提示
End Sub



其中，.Item(stUl & "sendpassword") = vsoxubndgmvwbhjg '发送方邮箱密码。这一句的授权码加不加引号，都是同样的错误提示。

星语心愿

suxinsen 发表于 2021-11-17 12:40
您好，我使用您的代码，提示发送失败，邮件无法发送到 SMTP 服务器。传输错误代码为 0x80040217邮件无法发 ...

.Item(stUl & "sendusername") = "1234567" '发送方邮箱名称
这一句是不是没有修改？

星语心愿

stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址

请教一下这句话有什么意义呢？

星语心愿

请教一下楼主QQ邮箱定时发送的字段是什么，谢谢了。

星语心愿

请教一下，有没有办法可以实现定时发送？
还有，怎么添加已读回执。

语虚何以言知

星语心愿 发表于 2021-12-3 03:52
请教一下，有没有办法可以实现定时发送？
还有，怎么添加已读回执。

cdo对象貌似没这个功能吧
vbs+win计划任务吧

xuqing8331

占位 学习。。。

星语心愿

添加多个附件呢？怎么添加？
QQ邮箱都有定时发送和已读回执这个功能，cdo调用的也是QQ邮箱，按道理应该有的吧。

星语心愿

邮件正文呢？怎么添加？找了一天都没有找到这个功能。希望得到你的帮助，谢谢。

语虚何以言知

星语心愿 发表于 2021-12-3 18:39
邮件正文呢？怎么添加？找了一天都没有找到这个功能。希望得到你的帮助，谢谢。

'CDOMail.TextBody = "文本内容" '使用文本格式发送邮件
CDOMail.HtmlBody = "当您看到此封邮件，表明CDO设置正确" '使用Html格式发送邮件
这两句