Access 2013中使用SendObject函数多参数时崩溃问题求助

根据你描述的情况，这大概率是第三方邮件客户端Amicron Mailoffice与Access的SendObject函数的MAPI接口兼容性冲突导致的——SendObject在调用多参数时会触发MAPI的复杂交互，而部分小众邮件客户端的MAPI实现可能不够完整，进而引发Access崩溃。下面是几个针对性的解决方案：

1. 逐步定位触发崩溃的参数 #

先简化你的调用代码，逐步添加参数，找到具体是哪个参数导致的崩溃：

• 先测试仅带收件人：DoCmd.SendObject acSendNoObject, , , "email@email.com"
• 再添加主题：DoCmd.SendObject acSendNoObject, , , "email@email.com", , , "Subject"
• 最后添加正文和对话框参数：DoCmd.SendObject acSendNoObject, , , "email@email.com", , , "Subject", "Test Text", True, False

通过这种方式，你可以确定是否是某个特定参数（比如正文格式、对话框开关）触发了冲突，后续可以针对性调整。

2. 改用原生MAPI对象手动构建邮件 #

绕过Access封装的SendObject，直接调用MAPI对象来创建邮件，这种方式兼容性更强：

Sub SendEmailViaMAPI()
    Dim objMAPI As Object
    Dim objMessage As Object
    
    On Error GoTo Cleanup
    
    ' 创建MAPI会话
    Set objMAPI = CreateObject("MAPI.Session")
    objMAPI.Logon ' 会触发邮件客户端的登录验证（如果需要）
    
    ' 创建新邮件
    Set objMessage = objMAPI.Outbox.Messages.Add
    objMessage.To = "email@email.com"
    objMessage.Subject = "Your Subject Here"
    objMessage.Text = "Your email body text here"
    
    ' 显示邮件对话框（True）或直接发送（False）
    objMessage.Send showDialog:=True
    
Cleanup:
    ' 清理对象
    If Not objMessage Is Nothing Then Set objMessage = Nothing
    If Not objMAPI Is Nothing Then
        objMAPI.Logoff
        Set objMAPI = Nothing
    End If
    If Err.Number <> 0 Then MsgBox "发送失败：" & Err.Description
End Sub

3. 检查Amicron Mailoffice的MAPI设置 #

• 打开Amicron Mailoffice的设置，确认它已被设置为默认MAPI客户端
• 查找是否有“完整MAPI支持”或“兼容MAPI模式”的选项，启用该选项（部分小众客户端默认只启用简化版MAPI）
• 尝试更新Amicron Mailoffice到最新版本，修复可能的MAPI接口bug

4. 替代方案：带参数的mailto链接（无附件需求时） #

如果不需要添加附件，你可以用ShellExecute调用带参数的mailto链接，这种方式不会触发Access崩溃：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As LongPtr, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub SendEmailViaMailto()
    Dim mailtoLink As String
    mailtoLink = "mailto:email@email.com?subject=Your Subject&body=Your email body text"
    ShellExecute 0, "open", mailtoLink, vbNullString, vbNullString, vbNormalFocus
End Sub

注意：这种方式不支持添加附件，仅适用于无附件的场景。

5. 检查Access信任设置 #

有时候Access的宏安全设置会干扰VBA的系统调用：

• 打开Access的「文件」→「选项」→「信任中心」→「信任中心设置」
• 临时将「宏设置」改为「启用所有宏」（仅用于测试，测试完成后改回安全设置），看是否能解决崩溃问题

内容的提问来源于stack exchange，提问作者Kai