Freigeben über

MailItem.BeforeCheckNames-Ereignis (Outlook)

  • Artikel

Tritt auf, bevor in Microsoft Outlook mit dem Auflösen von Namen in der Empfängerauflistung für ein Element (bei dem es sich um eine Instanz des übergeordneten Objekts handelt) begonnen wird.

Syntax

Ausdruck. BeforeCheckNames( _Cancel_ )

Ausdruck Eine Variable, die ein MailItem-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Abbrechen Erforderlich Boolean False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festgelegt wird, wird der Vorgang der Lösung nicht abgeschlossen.

HinwBemerkungeneise

Sie verwenden das BeforeCheckNames-Ereignis in VBScript, aber das Ereignis wird nicht ausgelöst, wenn ein E-Mail-Name im Formular aufgelöst wird.

Das Ereignis wird unter den folgenden Umständen nicht ausgelöst:

  • Sie haben ein Journaleintragsformular angepasst und anschließend einen Kontakt im Feld Kontakte aufgelöst.

  • Sie haben ein Kontaktformular angepasst und anschließend einen Kontakt im Feld Kontakte aufgelöst.

  • Sie haben einen beliebigen Formulartyp angepasst, und Outlook hat den Namen automatisch im Hintergrund aufgelöst.

  • Sie haben einen Empfänger programmseitig erstellt und aufgelöst.

Beispiel

Visual Basic für Applikationen (VBA) wird gefragt werden, der Benutzer, wenn der Benutzer auflösen möchte nennt und gibt False zurück, um den Vorgang abzubrechen, wenn der Benutzer keine beantwortet. Der Beispielcode muss in einem Klassenmodul wie ThisOutlookSessionplatziert werden, und die SendMail() Prozedur sollte aufgerufen werden, bevor die Ereignisprozedur von Outlook aufgerufen werden kann.

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

Siehe auch

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