Vba 通过SendObject发送电子邮件“我得到”；错误2293，数据库可以'；t已发送此电子邮件消息“；

我在Access 2016中创建了一个数据库

它在我用来开发它的PC上工作

在另外三台计算机上，当试图通过SendObject发送电子邮件时，我得到

错误2293，数据库无法发送此电子邮件

如果编辑为真或假，或者我的电子邮件客户端处于打开或关闭状态，则会发生这种情况

我尝试使用不同的电子邮件应用程序，但Windows默认选择似乎没有任何区别

在它工作的PC上，它总是用Thunderbird打开电子邮件

数据库位于受信任的位置。宏在信任中心中启用。Windows和Office都是最新的。没有参考图书馆的差异。使用的所有帐户都具有管理员权限。已禁用防病毒软件进行测试

很多谷歌。所有电脑都运行Win10 Pro

Private Sub Command204_Click()
On Error GoTo errHandler
    Dim vRecipient As String
    Dim vMsg As String
    Dim vSubject As String

    vMsg = ""
    vSubject = ""
    vRecipient = Me.Text202

    DoCmd.SendObject acSendNoObject, , , vRecipient, , , vSubject, vMsg, True
exitOnErr:
    Exit Sub
errHandler:
    If Err.Number <> 2501 Then MsgBox "Error (" & Err.Number & ") - " & Err.Description, vbCritical
    Resume exitOnErr
End Sub

Private子命令204_Click（）
关于错误转到错误处理程序
像线一样暗的颜色
将vMsg设置为字符串
将vSubject设置为字符串
vMsg=“”
vSubject=“”
vRecipient=Me.Text202
DoCmd.SendObject acSendNoObject，，vRecipient，，vSubject，vMsg，True
exitOnErr：
出口接头
错误处理程序：
如果错误号为2501，则MsgBox“错误（“&Err.Number&”）-”&Err.Description，vbCritical
恢复退出错误
端接头

---

理想情况下，电子邮件应该在默认的电子邮件客户端中打开。实际上，它会导致“错误2293，数据库无法发送此电子邮件”。

在错误2293之前或之后，它是否会发送任何其他错误消息，或者是否有关于错误的较长消息，因为您包含的错误消息可能意味着相当多的问题。嗨，不，它没有提供其他信息，我没有收到其他错误。我尝试使用SendDatabaseObject宏。这将在默认电子邮件客户端中打开一封空白电子邮件…但没有宏中的任何信息..没有附件、主题、收件人地址等。另一个问题，但我认为额外的信息可能会有所帮助。这似乎是Outlook安全更新的问题。这是一个可能的修复列表，我不确定这将帮助你，因为我不知道你的电子邮件设置。它是否在2293错误之前或之后提供了任何其他错误消息，或者是否有关于错误的更长消息，因为您包含的错误消息可能意味着一系列问题。嗨，不，它没有提供其他信息，我也没有收到其他错误。我尝试使用SendDatabaseObject宏。这将在默认电子邮件客户端中打开一封空白电子邮件…但没有宏中的任何信息..没有附件、主题、收件人地址等。另一个问题，但我认为额外的信息可能会有所帮助。这似乎是Outlook安全更新的问题。这是一个可能的修复列表，我不确定这将帮助你，因为我不知道你的电子邮件设置。