SelectNamesDialog.InitialAddressList-Eigenschaft (Outlook)

  • Artikel

Dient zum Zurückgeben oder Festlegen eines AddressList -Objekts, das die anfängliche Adressliste bestimmt, die im Dialogfeld Namen auswählen angezeigt wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. InitialAddressList

Ausdruck Eine Variable, die ein SelectNamesDialog-Objekt darstellt.

HinwBemerkungeneise

Festlegen der InitialAddressList -Eigenschaft ist die programmgesteuerte Entsprechung zum Auswählen eines AddressList-Objekt aus der Dropdownliste für Adressbuch im Dialogfeld Namen auswählen.

InitialAddressList ist sein Standardzustand das AddressList-Objekt, das die Eigenschaft hat, die die AddressList.IsInitialAddressList auf True festgelegt. IsInitialAddressList entspricht dem Festlegen von Diese Adressliste erste im Dialogfeld Adressierung, die zur Verfügung steht, indem Sie auf Extras und dann auf Optionen im Dialogfeld Adressbuch.

Beispiel

Das folgende Codebeispiel veranschaulicht, wie InitialAddressList und SelectNamesDialog.ShowOnlyInitialAddressList verwenden, um das Dialogfeld Namen auswählen immer nur die Adressliste in den Standardordner Kontakte, unabhängig von der Einstellung des Benutzers für die anfängliche Adressliste angezeigt haben.

Sub ShowOnlyContacts() 
 
 Dim oMsg As MailItem 
 
 Set oMsg = Application.CreateItem(olMailItem) 
 
 
 
 Dim oDialog As SelectNamesDialog 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 
 
 
 Dim oContacts As Folder 
 
 Set oContacts = _ 
 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 
 
 Dim oAL As AddressList 
 
 For Each oAL In Application.Session.AddressLists 
 
 If oAL.GetContactsFolder = oContacts Then 
 
 Exit For 
 
 End If 
 
 Next 
 
 With oDialog 
 
 .InitialAddressList = oAL 
 
 .ShowOnlyInitialAddressList = True 
 
 .Recipients = oMsg.Recipients 
 
 If .Display Then 
 
 'Recipients Resolved 
 
 End If 
 
 End With 
 
End Sub

Siehe auch

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