如何使用Outlook VBA批量更改所有联系人的邮件显示名称格式

展望解决方案 2025 年 9 月 29 日
立即分享：

Outlook 将以其默认显示名称格式显示所有联系人电子邮件，即“全名（电子邮件地址）”。 如果您不喜欢它，则每次创建新联系人时都需要手动更改它。 本文将教您使用 Outlook VBA 快速批量更改它们的方法。

在新建Outlook联系人时，输入全名和邮箱地址后，点击“显示为”框，系统会自动填写默认显示名，如下图所示：

默认电子邮件显示名称格式

当您需要选择联系人时，此电子邮件显示名称将生效。 如下图，2nd “显示名称”列对应于“显示为”字段中的信息。

显示名称列

当您想更改电子邮件显示名称格式时，您必须手动更改它。 但是借助VBA，您可以将所有联系人的电子邮件显示名称格式批量更改为您想要的格式。

批量更改所有联系人的电子邮件显示名称格式

  1. 首先，启动 Outlook 并按“Alt + F11”键按钮访问“Visual Basic”窗口。
  2. 然后打开一个新模块并将以下 VBA 代码复制到其中。
Sub BatchChangeContactDisplayName()
    Dim obApp As Application
    Dim olContacts As Outlook.Items
    Dim obj As Object
    Dim oContact As Outlook.ContactItem
    Dim strName As String
 
    Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
 
    For Each obj In olContacts
        If TypeName(obj) = "ContactItem" Then
           Set oContact = obj
           With oContact
                'Display name format: "fullname (company name)(email address)"
                 strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
                .Email1DisplayName = strName
                .Save
           End With
        End If
    Next
End Sub

将 VBA 代码复制到新模块中

额外提示：

  • 您可以根据自己的喜好更改“全名”、“公司名称”和“电子邮件地址”之间的顺序。
  • “”。全名”指的是“Firstname Lastname”中的格式。 如果你想在“姓氏名字”中显示，使用“.姓氏和名字”。
  1. 随后，粘贴 VBA 代码后，您应该将新宏添加到快速访问工具栏。 请按照以下步骤操作：
  • 首先，返回 Outlook 主窗口并点击快速访问工具栏中的向下箭头。
  • 从下拉列表中选择“更多命令”。更多命令
  • 然后在“Outlook 选项”窗口中，您应该在“从以下位置选择命令”框中选择“宏”。
  • 随后，投球 tar获取宏并按中心的“添加”按钮。
  • 最后点击“确定”按钮。将新宏添加到快速访问工具栏
  1. 最终您可以返回到您的默认联系人文件夹。 单击快速访问工具栏中的宏按钮。 之后，您可以打开一个联系人进行检查。 您会发现电子邮件显示名称格式已更改。更改所有联系人的电子邮件显示名称格式

逃离 Outlook 数据丢失

众所周知，Outlook 容易出错、损坏。 因此，保护​​ Outlook 数据并防止数据丢失是一项艰巨的任务。 所以您应该定期备份您的 Outlook 数据，这将有助于 Outlook数据损坏恢复 在 Outlook 崩溃的情况下。 此外，获得强大的修复工具也很重要，例如 DataNumen Outlook Repair. 总而言之，如果备份不是最新的或无法生效，它将派上用场。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 SQL Server mdf数据库损坏 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。