Outlook で電子メールを受信したときに、MS Access でサブルーチンを実行しようとしています。
Access.Application オブジェクトとその Run メソッドを使用しています。
次のエラーが表示されます: Object _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
「テスト」サブルーチンは、Checkdb モジュールの空のサブです (実際のサブを呼び出そうとしたが失敗した後)。
Office 2007 を実行しています。