Application. NewMail-Ereignis (Outlook)Application.NewMail event (Outlook)

Tritt auf, wenn eine oder mehrere neue e-Mail-Nachrichten im Posteingangempfangen werden.Occurs when one or more new email messages are received in the Inbox.

SyntaxSyntax

Ausdruck.expression. NewMail

expression Eine Variable, die ein Application-Objekt darstellt.expression A variable that represents an Application object.

BemerkungenRemarks

Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.This event is not available in Microsoft Visual Basic Scripting Edition (VBScript).

Das Ereignis NewMail wird noch vor der Regelverarbeitung des Clients ausgelöst, wenn neue Nachrichten im Posteingang eingehen.The NewMail event fires when new messages arrive in the Inbox and before client rule processing occurs. Wenn Sie Elemente verarbeiten möchten, die im Posteingangeingehen, sollten Sie das ItemAdd -Ereignis für die Auflistung von Elementen im Posteingangverwenden.If you want to process items that arrive in the Inbox, consider using the ItemAdd event on the collection of items in the Inbox. Das Ereignis ItemAdd übergibt einen Verweis zu jedem Element, das einem Ordner hinzugefügt wird.The ItemAdd event passes a reference to each item that is added to a folder.

Das Ereignis NewMail wird nicht ausgelöst, wenn der Benutzer im Offline-Modus arbeitet.The NewMail event does not fire when the user is in offline mode.

BeispielExample

In diesem Beispiel für Microsoft Visual Basic für Applikationen (VBA) wird der Ordner Posteingang angezeigt, wenn eine neue e-Mail-Nachricht eintrifft.This Microsoft Visual Basic for Applications (VBA) example displays the Inbox folder when a new email message arrives. Der Beispielcode muss sich in einem Klassenmodul befinden, und die Initialize_handler-Routine muss aufgerufen werden, bevor die Ereignisprozedur von Microsoft Outlook aufgerufen werden kann.The sample code must be placed in a class module, and the Initialize_handler routine must be called before the event procedure can be called by 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

Siehe auchSee also

Application-ObjektApplication Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.