VBA调用CDO对象连接outlook服务器邮箱发邮件

lss001 · 发表于 2025-4-15 20:19

本帖最后由 lss001 于 2025-4-19 06:47 编辑

见以下楼分析

伶俐的毛豆 · 发表于 2025-4-15 20:43

lss001 发表于 2025-4-15 20:19
可以试试手动发送邮件是否能正常发送
有什么问题可以论坛私信

手动是可以发的，就是用CDO发不出去

伶俐的毛豆 · 发表于 2025-4-16 16:59

有路过的师傅帮忙调试一下吗

lss001 · 发表于 2025-4-16 18:28

伶俐的毛豆发表于 2025-4-16 16:59
有路过的师傅帮忙调试一下吗

根据你提供的代码以及授权码测试了一下，
跟一楼的测试一样，返回错误。
查看帮助文件及外网信息，
是微软关闭了相关协议，
目前建议使用其他邮件端口。

sdytsxd991122 · 发表于 2025-4-16 21:36

.Item(schema & "smtpusetls") = True这段我注释掉了，我通过公司邮箱服务器可以直接发送邮件，也能带附件

伶俐的毛豆 · 发表于 2025-4-17 08:05

sdytsxd991122 发表于 2025-4-16 21:36
.Item(schema & "smtpusetls") = True这段我注释掉了，我通过公司邮箱服务器可以直接发送邮件，也能带附 ...

麻烦您再帮我测试一下，用密码（不要用授权码）能发送邮件吗

伶俐的毛豆 · 发表于 2025-4-17 08:13

sdytsxd991122 发表于 2025-4-16 21:36
.Item(schema & "smtpusetls") = True这段我注释掉了，我通过公司邮箱服务器可以直接发送邮件，也能带附 ...

真的能发出去吗，但是我这边没有收到邮件

伶俐的毛豆 · 发表于 2025-4-17 08:14

lss001 发表于 2025-4-16 18:28
根据你提供的代码以及授权码测试了一下，
跟一楼的测试一样，返回错误。
查看帮助文件及外网信息，

也就是说用outlook没希望了，换qq，网易什么的

lss001 · 发表于 2025-4-17 08:49

伶俐的毛豆发表于 2025-4-17 08:14
也就是说用outlook没希望了，换qq，网易什么的

企业版应该是可以的
个人版目前还不行

sdytsxd991122 · 发表于 2025-4-17 09:19

伶俐的毛豆发表于 2025-4-17 08:14
也就是说用outlook没希望了，换qq，网易什么的

刚才通过公司邮箱发送你一封邮件了

		自动登录	找回密码
密码			免费注册

[求助] VBA调用CDO对象连接outlook服务器邮箱发邮件