在 Outlook 中將一個聯繫人組的所有成員複製到另一個聯繫人組的 2 種方法

本文將介紹兩種將一個聯繫人組的所有成員複製到另一個聯繫人組的方法。 您可以根據需要選擇其中之一。

許多用戶希望 Outlook 能夠提供一種將成員從一個聯繫人組複製到另一個聯繫人組的快速方法。 可以幫助他們擺脫手動一一添加成員的麻煩。 現在，在下面，我們將分享兩種方法。 第一個是使用 Outlook 本機功能的解決方法。 後者由於使用了 VBA 代碼而更加智能。

方法 1：手動複製和粘貼成員

1. 首先，啟動 Outlook 程式。
2. 然後，您可以訪問聯繫人區域，您需要在其中找到並推介特定的聯繫人組。
3. 接下來，您可以單擊“主頁”選項卡下“通信”組中的“電子郵件”按鈕。
4. 之後，將顯示一封新電子郵件，您需要在“收件人”字段中單擊該組前面的“+”圖標以展開該組。
5. 稍後，在“收件人”字段中展開後復制所有成員的電子郵件地址。
6. 隨後，返回“聯繫人”文件夾，找到並打開要將成員複製到的聯繫人組。
7. 在目標聯絡人群組視窗中，按一下「新增成員」>「從通訊錄」。
8. 然後，在彈出的對話框中，按“Ctrl + V”將復制的成員粘貼到“成員->”字段中。
9. 最後，單擊“確定”和“保存並關閉”按鈕保存更改。

方法 2：通過 VBA 將成員從一個聯繫人組複製到另一個聯繫人組

1. 首先，在 Outlook 主窗口中，按“Alt + F11”鍵按鈕。
2. 在隨後的“Microsoft Visual Basic for Applications”窗口中，將以下 VBA 代碼複製到未使用的模塊中。

Sub CopyMembersFromOneContactGroupToAnother()
    Dim objSourceGroup As DistListItem
    Dim strTargetGroupName As String
    Dim objCurrentContactsFolder, objDefaultContactsFolder As Folder
    Dim objTargetGroup As DistListItem
    Dim objGroupMember As recipient
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objSourceGroup = ActiveInspector.CurrentItem
           Case olExplorer
                Set objSourceGroup = ActiveExplorer.Selection.Item(1)
    End Select
 
    If objSourceGroup.MemberCount > 0 Then
 
       strTargetGroupName = InputBox("Enter the target contact group name:", "Specify Target Contact Group")
 
       Set objCurrentContactsFolder = objSourceGroup.parent
       Set objTargetGroup = objCurrentContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
       If Not objTargetGroup Is Nothing Then
          For i = objSourceGroup.MemberCount To 1 Step -1
              Set objGroupMember = objSourceGroup.GetMember(i)
              objTargetGroup.AddMember objGroupMember
          Next i
          objTargetGroup.Save
          MsgBox "Copy Successfully!", vbInformation
      Else
          Set objDefaultContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
          Set objTargetGroup = objDefaultContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
          If Not objTargetGroup Is Nothing Then
             For i = objSourceGroup.MemberCount To 1 Step -1
                 Set objGroupMember = objSourceGroup.GetMember(i)
                 objTargetGroup.AddMember objGroupMember
             Next i
             objTargetGroup.Save
             MsgBox "Copy Successfully!", vbInformation
         Else
             MsgBox "There is not a contact group named as" & Chr(34) & strTargetGroupName & Chr(34) & "!", vbExclamation
         End If
      End If
    End If
End Sub

3. 然後，您可以像往常一樣將此宏添加到快速訪問工具欄。
4. 最後，您可以嘗試一下。

• 首先，選擇或打開源聯繫人組。
• 然後單擊快速訪問工具欄中的宏按鈕。
• 稍後，系統會要求您輸入目標聯絡人群組的名稱。
• 之後，按“確定”。 Outlook 將立即找到目標聯絡人群組，並將來源群組的成員複製到該群組。

搶救損壞的Outlook文件

Outlook容易受到各種惡意因素的影響，包括斷電、病毒感染等。 為了防止不必要的損壞，我們別無選擇，只能定期進行 Outlook 備份。 此外，建議安裝有效的 PST 修復工具，例如 DataNumen Outlook Repair。 它可以掃描並 維修PST 文件恢復率高。

作者簡介：

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