Application.NewMail-Ereignis (Outlook)
Tritt auf, wenn eine oder mehrere neue E-Mail-Nachrichten im Posteingang empfangen werden.
Syntax
Ausdruck. NewMail
expression Eine Variable, die ein Application-Objekt darstellt.
Bemerkungen
Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.
Das Ereignis NewMail wird noch vor der Regelverarbeitung des Clients ausgelöst, wenn neue Nachrichten im Posteingang eingehen. Wenn Sie im Posteingang eingehende Elemente verarbeiten möchten, können Sie das Ereignis ItemAdd auf die Elementsammlung im Posteingang anwenden. Das Ereignis ItemAdd übergibt einen Verweis zu jedem Element, das einem Ordner hinzugefügt wird.
Das Ereignis NewMail wird nicht ausgelöst, wenn der Benutzer im Offline-Modus arbeitet.
Beispiel
In diesem Beispiel für Microsoft Visual Basic for Applications (VBA) wird der Ordner Posteingang angezeigt, wenn eine neue E-Mail-Nachricht eingeht. 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.
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 auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.