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