(Outlook) 的 Application.NewMail 事件

在 [收件匣] 中收到一或多封新電子郵件訊息時發生。

語法

expression。 NewMail

expression 代表 Application 物件的變數。

註解

Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

當新訊息抵達 [收件匣] 時，以及用戶端規則處理發生之前，就會引發 NewMail 事件。 如果您想要處理送達收件匣的專案，請考慮在 [收件匣] 中的專案集合上使用ItemAdd事件。 ItemAdd 事件會將參照傳遞給每一個新增到資料夾的項目。

NewMail 事件不會在使用者處於離線模式時觸發。

範例

此 Microsoft Visual Basic for Applications (VBA) 範例會在新電子郵件訊息送達時顯示 [ 收件匣 ] 資料夾。 範例程式碼必須放在類別模組中，而且 Initialize_handler 必須先呼叫常式，Microsoft Outlook 才能呼叫事件程序。

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 支援與意見反應。