如何解决从 Access 数据库发送电子邮件
我正在尝试从 Access 发送电子邮件。
我确认凭据正确,在 Office 365 上启用了 SMTP 设置。我收到此错误。
无法将邮件发送到 SMTP 服务器。传输错误代码是 0x80040217。服务器响应不可用。
“运行时错误 -2147220973 (80040213)。传输无法连接到服务器。”
如果有任何替代解决方案,第 3 方库,我愿意接受所有选择。
我试过 (https://youtu.be/mWf-FExqGr8)。它可以工作,但不允许我添加除使用 Outlook 配置之外的自定义帐户。
Option Compare Database
Option Explicit
Private Const cdoSendUsingPort = 2
Private Const cdobasic = 1
Private Const cdoNTLM = 2
' The docmentation of all these settings is available at
' https://msdn.microsoft.com/en-us/library/ms872853.aspx
Private Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Private Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Private Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Private Const cdoSMTPUseSSL = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
Private Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Private Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Private Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
Public Sub SendSimpleCDOMailWithBasicAuthentication()
Dim mail As Object ' cdo.message
Dim config As Object ' CDO.Configuration
Set mail = CreateObject("cdo.message")
Set config = CreateObject("CDO.Configuration")
config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
config.Fields(cdoSMTPServer).Value = "smtp.office365.com"
config.Fields(cdoSMTPServerPort).Value = 25
config.Fields(cdoSMTPAuthenticate).Value = cdobasic
config.Fields(cdoSendUserName).Value = "from@test.onmicrosoft.com"
config.Fields(cdoSendPassword).Value = "@password"
config.Fields(cdoSMTPUseSSL).Value = "true"
config.Fields.Update
Set mail.Configuration = config
With mail
.To = "To@gmail.com"
.From = "from@test.onmicrosoft.com"
.Subject = "First email with CDO"
.TextBody = "This is the body of the first plain text email with CDO."
.AddAttachment "D:\my daily work.txt"
.Send
End With
Set config = nothing
Set mail = nothing
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。