以编程方式更改所有联系人的显示格式

在 Outlook 中，可以通过“联系人”选项以及创建新联系人时指定如何提交新联系人的默认设置。 例如，默认设置“姓氏, 名字”以姓氏后跟随名字的形式对联系人进行存档。 但是，更改此设置仅应用到您创建的新联系人。 对于已存在的联系人，如果要更改其姓名的归档方式，例如，从默认的 “最后”、“第一 ”更改为“ 第一”、“最后”，则必须为检查器中的每个现有联系人单独执行此操作，或者，必须编写宏来更改“联系人”文件夹中所有现有联系人的设置。

本主题演示一个代码示例，该示例将遍历默认“联系人”文件夹中的所有“联系人”项目，并使用每个“联系人”项的 FileAs 属性来指定要将联系人作为存档依据的字符串;在此特定示例中，字符串更改为名字，后跟空白，然后是姓氏。 然后，此代码示例将更改保存到联系人项目中。

注意 通常，Outlook 中的文件夹可以包含异类项目，联系人文件夹可以包含 ContactItem 对象以及其他项目。 此代码示例对邮件类 IPM.Contact 进行筛选，以确保只更改联系人项目的存档格式。 有关项目类型和消息类的详细信息，请参阅项目类型和邮件类。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。