SelectNamesDialog.ShowOnlyInitialAddressList-Eigenschaft (Outlook)
Zurückgeben oder Festlegen einer vom Typ Boolean, der bestimmt, ob das AddressList-Objekt dargestellte SelectNamesDialog.InitialAddressList die einzige AddressList-Objekt in der Dropdownliste für Adressbuch im Dialogfeld Namen auswählen verfügbar ist. Lese-/Schreibzugriff.
Syntax
Ausdruck. ShowOnlyInitialAddressList
Ausdruck Eine Variable, die ein SelectNamesDialog-Objekt darstellt.
Hinweise
Der Standardwert dieser Eigenschaft ist False, was bedeutet, dass alle Adresslisten angezeigt werden. Legen Sie ShowOnlyInitialAddressList auf true fest, um die Dropdownliste für Adressbuch auf angegeben wird InitialAddressList zu beschränken.
Wenn Sie die InitialAddressList-Eigenschaft nicht festlegen und dann ShowOnlyInitialAddressList auf True festlegen, istAddressList mit AddressList.IsInitialAddressList die einzige Adressliste, die in der Dropdownliste für Adressbuch verfügbar ist.
Beispiel
Das folgende Codebeispiel veranschaulicht, wie IsInitialAddressList und 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
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.