Application.NewMail イベント (Outlook)

  • [アーティクル]

受信トレイに 1 つ以上の新しい電子メール メッセージが受信されたときに発生します。

構文

expression. NewMail

expressionApplicationオブジェクトを表す変数 。

注釈

このイベントは、Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

NewMail イベントは、新しいメッセージが受信トレイに到着し、クライアント ルール処理が発生する前に発生します。 受信トレイに到着したアイテムを処理する場合は、受信トレイ内のアイテムのコレクションで ItemAdd イベントを使用することを検討してください。 ItemAdd イベントは、フォルダーに追加されるアイテムごとに参照を渡します。

ユーザーがオフライン モードの場合、NewMail イベントは実行されません。

例

この Microsoft Visual Basic for Applications (VBA) の例では、新しい電子メール メッセージが届いたときに受信トレイ フォルダーが表示されます。 サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 
 
 
 
Private Sub myOlApp_NewMail() 
 
 Dim myExplorers As Outlook.Explorers 
 
 Dim myFolder As Outlook.Folder 
 
 Dim x As Integer 
 
 Set myExplorers = myOlApp.Explorers 
 
 Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
 
 If myExplorers.Count <> 0 Then 
 
 For x = 1 To myExplorers.Count 
 
 On Error GoTo skipif 
 
 If myExplorers.Item(x).CurrentFolder.Name = "Inbox" Then 
 
 myExplorers.Item(x).Display 
 
 myExplorers.Item(x).Activate 
 
 Exit Sub 
 
 End If 
 
skipif: 
 
 Next x 
 
 End If 
 
 On Error GoTo 0 
 
 myFolder.Display 
 
End Sub

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。