在 Access 2003 中使用 vba 发送邮件时出现运行时错误 287

Question

我目前正在编写一个 vba 宏来发送电子邮件，并且消息已创建，但由于生成错误而未发送。 我当前的代码是：

Function CreateHURMail(Filename)

Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = New Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)

With objMail
    .Subject = "Test Message"
    .Body = "Body Text"
    .To = "abc@xyz"
    .Attachments.Add (Filename)
    .Display

    On Error Resume Next
    .Send

    'If Err.Number = 287 Then
    '    MsgBox "Still doesn't work!", vbOKOnly, "DOH!"
    'End If
End With


End Function

有谁知道如何解决这个问题？

提前致谢。

Answer 1

在 Access 中使用 DoCmd.SendObject 发送电子邮件。 示例：

Call DoCmd.SendObject(acSendNoObject, To:="abc@xyz", 
    Subject:="Test Message", MessageText:="Body Text", EditMessage:=true)

除了发送“无对象”之外，您还可以发送表格、查询、表单、报告或表单。 无法通过这种方式附加普通文件。

如果您自动化 Outlook 并尝试发送邮件，Outlook 会捕获该邮件。 根据 Outlook 的安全设置，它完全不允许通过自动化发送邮件，它会使用弹出窗口询问用户是否允许自动化，或者只是发送邮件（请小心后者）。

如果由于安全性完全禁止通过自动化发送邮件或由于用户在确认对话框中单击“否”而中止发送邮件，则会出现错误 287。

有两种方法可以解决此问题：禁用安全性（完全禁用或让用户确认发送邮件），或签署您的 mdb 文件并在 Outlook 中信任它。 后者相当复杂，但最安全。

希望这可以帮助，

Answer 2

您不妨考虑Outlook 兑换。