Outlookで新しいメールを受信した後にマクロを起動するにはどうすればよいですか？

Question

私はNagiosサーバーから電子メールとして受け取ったアラートに基づいてデータベースにチケットを作成するマクロを書いています。しかし、メールをチェックしている間、無限ループでマクロを実行させることはできません。リソースが重すぎてデスクトップがハングアップするためです。私は新しいメールが受信されたときにのみマクロをトリガーする方法を見つける必要があります。

MSDN WebサイトのNewMailイベントの行に沿って何かを探しましたが、一貫したものは見つかりませんでした。誰かが私に新しいメールイベントからマクロをトリガする方法を示すちょっとしたサンプルコードを表示できますか？

Answer 1

このコードは、デフォルトのローカル受信トレイにイベントリスナーを追加し、受信メールに対して何らかの処理を行います。そのアクションを以下のコードに追加する必要があります。

Private WithEvents Items As Outlook.Items 
Private Sub Application_Startup() 
    Dim olApp As Outlook.Application 
    Dim objNS As Outlook.NameSpace 
    Set olApp = Outlook.Application 
    Set objNS = olApp.GetNamespace("MAPI") 
    ' default local Inbox 
    Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 
End Sub 
Private Sub Items_ItemAdd(ByVal item As Object) 

    On Error Goto ErrorHandler 
    Dim Msg As Outlook.MailItem 
    If TypeName(item) = "MailItem" Then 
    Set Msg = item 
    ' ****************** 
    ' do something here 
    ' ****************** 
    End If 
ProgramExit: 
    Exit Sub 
ErrorHandler: 
    MsgBox Err.Number & " - " & Err.Description 
    Resume ProgramExit 
End Sub 

ThisOutlookSessionモジュールにコードを貼り付けた後、Outlookを再起動する必要があります。

Answer 2

はThisOutlookSession内部でこのような何かを試してみてください：

Private Sub Application_NewMail() 
    Call Your_main_macro 
End Sub 

私が電子メールを受信して​​開いているアプリケーションのイベントがあったとき、私の見通しのVBAだけで解雇しました。

編集：メールの受信時にapplication_newmailイベントで呼び出された後、hello world msgボックスをテストしました。