Événement Application.NewMail (Outlook)

Article
04/07/2023

Se produit lorsqu’un ou plusieurs nouveaux messages électroniques sont reçus dans la boîte de réception.

Syntaxe

expression. NewMail

expressionUne variable qui représente un objetApplication.

Remarques

Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).

L’événement NewMail se déclenche lorsque de nouveaux messages arrivent dans la boîte de réception et avant le traitement des règles client. Si vous souhaitez traiter les éléments qui arrivent dans la boîte de réception, envisagez d’utiliser l’événement ItemAdd sur la collection d’éléments dans la boîte de réception. L’événement ItemAdd transmet une référence à chaque élément ajouté à un dossier.

L’événement NewMail n’est pas déclenché lorsque l’utilisateur est en mode hors connexion.

Exemple

Cet exemple Microsoft Visual Basic pour Applications (VBA) affiche le dossier Boîte de réception lorsqu’un nouveau message électronique arrive. L’exemple de code doit être placé dans un module de classe et la Initialize_handler routine doit être appelée avant que la procédure événementielle puisse être appelée par 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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via