É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
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.