Question

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

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

我收到以下错误：对象_Application的方法运行失败。

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

“test”子程序是Checkdb模块中的一个空子（在我尝试并且无法调用实际的子程序之后）。

我正在运行Office 2007。

Answer 1

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

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

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

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

1 个答案: