在 Outlook 中将所有成员从一个联系人组复制到另一个联系人组的 2 种方法

本文将介绍两种将所有成员从一个联系人组复制到另一个联系人组的方法。 您可以根据自己的需要进行选择。

许多用户希望 Outlook 能够提供一种快速的方法来将成员从一个联系人组复制到另一个联系人组。 它可以帮助他们摆脱手动添加成员的麻烦。 现在，在下文中，我们将分享 2 种方式。 第一个是解决方法，使用 Outlook 本机功能。 后者由于使用了 VBA 代码而更加智能。

方法 1：手动复制和粘贴成员

1. 首先，start 您的 Outlook 程序。
2. 然后，您可以访问“联系人”区域，您需要在其中找到并推介特定的联系人组。
3. 接下来，您可以单击“主页”选项卡下“通信”组中的“电子邮件”按钮。
4. 之后，将显示一封新邮件，您需要在“收件人”字段中单击组前面的“+”图标以展开组。
5. 稍后，在“收件人”字段中展开后复制所有成员的电子邮件地址。
6. 随后，返回“联系人”文件夹，找到并打开要将成员复制到的联系人组。
7. 在 tar获取联系人组窗口，单击“添加成员”>“来自地址簿”。
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. 最后，你可以试试看。

• 首先，选择或打开源联系人组。
• 然后单击快速访问工具栏中的宏按钮。
• 稍后，系统会要求您输入 tar获取联系人组。
• 之后，按“确定”。 Outlook 会立即找到 tar获取联系人组并将源组的成员复制到它。

拯救损坏的 Outlook 文件

Outlook容易受到各种恶意因素的影响，包括断电、病毒感染等。 为了防止不必要的损坏，我们别无选择，只能定期备份 Outlook。 此外，建议安装一个强大的 PST 修复工具，例如 DataNumen Outlook Repair. 它可以扫描和 修复PST 文件恢复率高。

作者简介：

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