Programmgesteuertes Ändern des Anzeigeformats für alle Kontakte

In Outlook können Sie die Standardeinstellung für das Speichern neuer Kontakte über die Optionen für Kontakte sowie beim Erstellen des neuen Kontakts angeben. For example, the default setting is Last, First, which files a contact by the last name followed by the first name. However, changing this setting only applies to new contacts that you create. Wenn Sie bei bereits vorhandenen Kontakten die Art und Weise ändern möchten, wie ihre Namen abgelegt werden, indem Sie z. B. von der Standardeinstellung Last, First in First, Last wechseln, müssen Sie dies entweder einzeln für jeden vorhandenen Kontakt im Inspektor tun, oder Sie müssen ein Makro schreiben, um die Einstellung für alle vorhandenen Kontakte im Ordner Kontakte zu ändern.

Dieses Thema zeigt ein Codebeispiel, das alle Contact-Elemente im Standardordner Kontakte durchläuft und die FileAs-Eigenschaft jedes Contact-Elements verwendet, um die Zeichenfolge anzugeben, nach der der Kontakt abgelegt werden soll. In diesem speziellen Beispiel wird die Zeichenfolge in vornamen, gefolgt von einem leeren und dann in den Nachnamen geändert. The code sample then saves the changes to the Contact item.

Hinweis Im Allgemeinen kann ein Ordner in Outlook heterogene Elemente enthalten, und der Ordner Contact kann ContactItem-Objekte sowie andere Elemente enthalten. The code sample ensures that it only changes the file-as format for Contact items by filtering on the message class IPM.Contact. Weitere Informationen zu Elementtypen und Nachrichtenklassen finden Sie unter Elementtypen und Nachrichtenklassen.

Private Sub ReFileContacts() 
 Dim items As items, item As ContactItem, folder As folder 
 Dim contactItems As Outlook.items 
 Dim itemContact As Outlook.ContactItem 
 
 Set folder = Session.GetDefaultFolder(olFolderContacts) 
 Set items = folder.items 
 Count = items.Count 
 If Count = 0 Then 
 MsgBox "Nothing to do!" 
 Exit Sub 
 End If 
 
 'Filter on the message class to obtain only contact items in the folder 
 Set contactItems = items.Restrict("[MessageClass]='IPM.Contact'") 
 
 For Each itemContact In contactItems 
 itemContact.FileAs = itemContact.FirstName + " " + itemContact.LastName 
 itemContact.Save 
 Next 
 
 MsgBox "Your contacts have been re-filed." 
End Sub

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.