AddressList.GetContactsFolder-Methode (Outlook)

Erhält ein Folder -Objekt, das den Kontakteordner für das AddressList -Objekt darstellt.

Syntax

Ausdruck. GetContactsFolder

Ausdruck Eine Variable, die ein AddressList-Objekt darstellt.

Rückgabewert

Ein Folder -Objekt, das Outlook-Kontakteordner für das AddressList-Objekt darstellt. Gibt Null (in Visual Basic Nothing) zurück, wenn kein Outlook-Kontakteordner gefunden wird.

Hinweise

Mit dieser Methode können Sie ein AddressList-Objekt für den Kontakteordner abgleichen, die Sie als Startadressenliste im Dialogfeld Namen auswählen einrichten möchten.

Beispiel

Im folgenden Codebeispiel wird veranschaulicht, wie das Dialogfeld Namen auswählen, mit der AddressList-Objekt für den Standardordner Kontakte nicht initialisiert werden. Zuerst wird das Folder-Objekt für den Standardordner Kontakte abgerufen und nach dessen AddressList gesucht, indem die Entry-ID dieses Folder-Objekts mit der Entry-ID des Folder-Objekts verglichen wird, das jedem AddressList-Objekt in der aktuellen Sitzung zugeordnet ist, bis eine Übereinstimmung gefunden wird. Klicken Sie dann die InitialAddressList -Eigenschaft festgelegt, und das Dialogfeld Namen auswählen angezeigt.

Sub SetContactsFolderAsInitialAddressList() 
 
 Dim oMsg As MailItem 
 
 Set oMsg = Application.CreateItem(olMailItem) 
 
 Dim oDialog As SelectNamesDialog 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 
 Dim oAL As AddressList 
 
 Dim oContacts As Folder 
 
 Set oContacts = _ 
 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 
 
 On Error GoTo HandleError 
 
 'Look for the AddressList for the default Contacts folder 
 
 For Each oAL In Application.Session.AddressLists 
 
 If oAL.AddressListType = olOutlookAddressList Then 
 
 If oAL.GetContactsFolder.EntryID = _ 
 
 oContacts.EntryID Then 
 
 Exit For 
 
 End If 
 
 End If 
 
 Next 
 
 
 
 With oDialog 
 
 .Caption = "Select Customer Contact" 
 
 .ToLabel = "Customer C&ontact" 
 
 .NumberOfRecipientSelectors = olShowTo 
 
 .InitialAddressList = oAL 
 
 
 
 'Let the selected names be the recipients of the new message 
 
 .Recipients = oMsg.Recipients 
 
 
 
 If .Display Then 
 
 'Recipients Resolved 
 
 End If 
 
 End With 
 
 
 
HandleError: 
 
 Exit Sub 
 
End Sub

Siehe auch

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