从Outlook调用访问子 - 对象_Application失败的方法

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”

确保你的“Test”功能/子标记为Public。

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