跳到主要內容

如何批量更改文件作為Outlook中所有聯繫人的格式?

通常,聯繫人文件在Outlook中顯示為“姓氏”,但是如何快速將聯繫人文件的格式批量更改為“公司”或其他順序,如下圖所示? 選項默認的“文件為”順序僅適用於新聯繫人,不適用於現有聯繫人。 在這裡,我介紹了一個VBA代碼,以批量更改文件作為Outlook中所有現有聯繫人的格式。

與使用VBA的所有聯繫人一樣的批量更改文件


與使用VBA的所有聯繫人一樣的批量更改文件

1.選擇要將文件更改為的聯繫人,然後按 Alt + F11 啟用 Microsoft Visual Basic for Applications 窗口。

2.雙擊 ThisOutlookSession in Project-Project1 窗格,然後將以下代碼複製並粘貼到空白腳本中。

VBA:將文件更改為

Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
    If xItem.Class = olContact Then
        Set xContact = xItem
        With xContact
            If .CompanyName = "" Then
                xFileAs = .FullName
            Else
                xFileAs = .CompanyName
            End If
            .FileAs = xFileAs
            .Save
        End With
    End If
Next
End Sub

doc 將文件更改為 3

3。 按 F5 鍵運行程式碼,然後所有選定的聯絡人都已將文件更改為公司。

注意:

1.在程式碼中,可以更改 CompanyName 到您想要將文件顯示為的其他欄位。

2. 如果沒有公司訊息,則顯示全名。


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I run the script above in 5 min and saved hours!! GREAT!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations