获取运行时错误-使用gmail在excel中发送电子邮件时发生自动错误

你好，我试着用excel发送电子邮件

这是我的密码

    Sub send_email_via_Gmail()
Dim myMail As CDO.Message

Set myMail = New CDO.Message

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

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

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

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

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

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "example@gmail.com"

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

myMail.Configuration.Fields.Update

With myMail
.Subject = "Test Email from Dr. Takyar"
.From = "example@gmail.com"
.To = "example1@gmail.com"

.TextBody = "Good morning!"

End With

myMail.Send
MsgBox ("Mail has been sent")
Set myMail = Nothing

End Sub

但当我运行它时，它会给我运行时错误 当我试图发送邮件时。。 对我来说，编码似乎是正确的。。我不知道是什么问题。。

---

请帮助

您是否已将CDO引用添加到您的项目中？如果我没有记错，上次我测试的CDO程序使用相同的gmail地址作为收件人和发件人，我收到了一个错误。当我从一个地址发送到另一个地址时，它就消失了。我建议先检查一下。是的，我已将CDO引用添加到我的项目中，我已添加了“不同的到”和“从”，但我仍然收到相同的错误。您是否已在端口465（而不是587）上尝试过？