如何從具有特定職位的所有 Outlook 聯繫人快速創建聯繫人組

Outlook解決方案 2025 年 9 月 29 日
立即分享：

為了更輕鬆地與具有特定職位的聯繫人通信，您可能希望從這些聯繫人快速創建一個聯繫人組。 現在，在本文中，我們將與您分享一個快速的方法。

如果您經常向具有特定職位的聯繫人批量發送電子郵件、任務或會議邀請，則從他們創建聯繫人組會方便得多。 一般情況下，標準方式需要先新建一個聯繫人組，然後將聯繫人一一添加到該組中作為成員。 有點麻煩。 因此，在下文中，我們將教您一種更快的方法來獲得它。

從具有特定職位的所有聯繫人創建聯繫人組

  1. 首先，在“聯繫人”文件夾中，選擇具有特定職位的聯繫人。選擇聯繫人
  2. 然後，按“Alt + F11”訪問 Outlook VBA 編輯器。
  3. 接下來，將以下 VBA 代碼複製到空白模塊或項目中。
Dim objContact As Outlook.ContactItem
Dim strJobTitle As String
Dim objNewGroup As Outlook.DistListItem
Dim objTempMail As Outlook.MailItem

Sub CreateContactGroupfromContactsSameJobTitle()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    Set objContact = Outlook.Application.ActiveExplorer.Selection(1)
    strJobTitle = objContact.JobTitle
 
    Set objNewGroup = Outlook.Application.CreateItem(olDistributionListItem)
    Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
    'Process all Contacts folders
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olContactItem Then
               Call ProcessContactsFolders(objFolder)
            End If
        Next
    Next
 
    objNewGroup.AddMembers objTempMail.Recipients
    objNewGroup.Display
End Sub

Sub ProcessContactsFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If objItem.Class = olContact Then
           If objItem.JobTitle = strJobTitle Then
              'Add the contact having the specific job title to the new group
              objTempMail.Recipients.Add (objItem.Email1Address)
              objTempMail.Recipients.ResolveAll
           End If
        End If
    Next
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessContactsFolders(objSubfolder)
       Next
    End If
End Sub

VBA 代碼 - 從具有特定職位的所有聯繫人創建聯繫人組

  1. 之後，將光標移至第一個子例程。
  2. 最後，點擊“F5”鍵按鈕來運行這個宏。
  3. 宏完成後，將顯示一個新的聯繫人組。 它包含與步驟 1 中所選聯繫人具有相同職位的所有聯繫人。來自具有特定職位的所有聯繫人的新聯繫人組

有效保護 Outlook 數據

儘管 Outlook 功能豐富，但它無法擺脫易受攻擊的事實。 因此，如果您不想丟失寶貴的 Outlook 數據，則必須努力保護它。 例如，您需要定期備份 Outlook 數據。 另外，如果負擔得起，建議有一個尖端的PST修復工具，例如 DataNumen Outlook Repair， 哪個行 維修PST 一瞬間的數據。

作者簡介：

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

立即分享：

評論被關閉。