vba - 从 Outlook 调用 Access 子程序 - 对象 _Application 的方法运行失败

Question

当在 Outlook 中收到电子邮件时，我正在尝试在 MS Access 中运行子程序。

我正在使用 Access.Application 对象及其 Run 方法。

我收到以下错误：对象_应用程序的方法运行失败。

Private Sub Application_newmail()
    MsgBox "New mail"
    Dim accessdb As Access.Application
    Set accessdb = CreateObject("Access.Application")

    accessdb.opencurrentdatabase "C:/Camps.accdb", False

    accessdb.Run "test"

    accessdb.CloseCurrentDatabase

    Set accessdb = Nothing

End Sub

“测试”子程序是 Checkdb 模块中的一个空子程序（在我尝试调用实际子程序但未能成功之后）。

我正在运行 Office 2007。

Answer 1

我使用 VBScript 而不是 Outlook 测试了您的代码。您的代码对我来说很好，除了我确实将您的正斜杠更改为数据库路径中的反斜杠：“C:\Camps.accdb”

确保您将“测试”功能/子标记为公开。

Public Function Test()
    MsgBox "Test Works"
End Function