-1

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 を実行しています。

4

1 に答える 1

1

Outlook の代わりに VBScript を使用してコードをテストしました。データベースパスのスラッシュをバックスラッシュに変更したことを除いて、コードはうまく機能しました:「C:\ Camps.accdb」

「テスト」関数/サブがパブリックとしてマークされていることを確認してください。

Public Function Test()
    MsgBox "Test Works"
End Function
于 2012-04-30T01:27:03.310 に答える