41

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

MSDN Web サイトで NewMail イベントの行に沿って何かを探しましたが、首尾一貫したものを見つけることができません。新着メール イベントからマクロをトリガーする方法を示すサンプル コードを少しだけ見せてもらえますか?

4

2 に答える 2

58

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

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 を再起動する必要があります。

于 2012-06-29T19:22:58.067 に答える
9

内部で次のようなことを試してくださいThisOutlookSession

Private Sub Application_NewMail()
    Call Your_main_macro
End Sub

電子メールを受信し、そのアプリケーションイベントを開いたときに、Outlook vba が起動しました。

編集:hello world msgボックスをテストしたapplication_newmailところ、メールが受信されたときにイベントで呼び出された後に実行されました。

于 2012-06-29T14:53:39.687 に答える