Application.NewMail-Ereignis (Outlook)

  • Artikel

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

Application-Objekt

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.