如何使用 Outlook VBA 批量更改所有聯繫人的電子郵件顯示名稱格式

Outlook解決方案 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 選項”窗口中，您應該在“從中選擇命令”框中選擇“宏”。
  • 然後，將音調調整到目標宏上，然後按下中間的「新增」按鈕。
  • 最後單擊“確定”按鈕。將新的宏添加到快速訪問工具欄
  1. 最終您可以返回到您的默認聯繫人文件夾。 單擊快速訪問工具欄中的宏按鈕。 之後，您可以打開一個聯繫人進行檢查。 您會發現電子郵件顯示名稱格式已更改。更改所有聯繫人的電子郵件顯示名稱格式

擺脫Outlook數據丟失

眾所周知，Outlook 容易出錯、損壞。 因此，保護 Outlook 數據並防止數據丟失是一項艱鉅的任務。 所以你應該為你的 Outlook 數據做一個定期備份，這將有很大的幫助 Outlook數據損壞恢復 在 Outlook 崩潰的情況下。 此外，獲得強大的修復工具也很重要，例如 DataNumen Outlook Repair. 總而言之，如果備份不是最新的或無法生效，它將派上用場。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修復 SQL Server mdf 數據庫損壞 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。