從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