Partager via


Événement MailItem.BeforeCheckNames (Outlook)

Se produit juste avant que Microsoft Outlook commence à résoudre les noms dans la collection de destinataires d’un élément (qui est une instance de l’objet parent).

Syntaxe

expression. BeforeCheckNames( _Cancel_ )

expression Variable qui représente un objet MailItem.

Paramètres

Nom Requis/Facultatif Type de données Description
Cancel Obligatoire Booléen False lorsque l'événement se produit. Si la procédure événementielle affecte à cet argument la valeur True, le processus de résolution des noms n’est pas achevé.

Remarques

Vous utilisez l’événement BeforeCheckNames dans VBScript, mais l’événement ne se déclenche pas lorsqu’un nom d’e-mail est résolu sur le formulaire.

L'événement ne se déclenche pas dans les circonstances suivantes :

  • Vous avez personnalisé une entrée de journal puis trouvé une correspondance pour un contact dans le champ Contacts.

  • Vous avez personnalisé un formulaire Contact puis trouvé une correspondance pour un contact dans le champ Contacts.

  • Vous avez personnalisé n'importe quel type de formulaire et Outlook a automatiquement trouvé une correspondance pour le nom en arrière-plan.

  • Vous avez créé un destinataire et trouvé une correspondance pour celui-ci via un programme.

Exemple

Cet exemple Visual Basic pour Applications (VBA) demande à l’utilisateur si l’utilisateur souhaite résoudre les noms et retourne False pour annuler l’opération si l’utilisateur répond non. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession, et la SendMail() procédure doit être appelée avant que la procédure événementielle puisse être appelée par Outlook.

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Private Sub myItem_BeforeCheckNames(Cancel As Boolean) 
 
 If MsgBox("Do you want to resolve names now?", 4) = vbOK Then 
 
 Cancel = True 
 
 End If 
 
End Sub 
 
 
 
Public Sub SendMail() 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 myItem.Recipients.Add ("Dan Wilson") 
 
 myItem.Recipients.Add ("Nate Sun") 
 
 myItem.Body = "Good morning!" 
 
 myItem.Send 
 
End Sub

Voir aussi

Objet MailItem

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.