2 метода копирования всех участников из одной группы контактов в другую в Outlook

В этой статье будут представлены 2 подхода для копирования всех участников из одной контактной группы в другую. Вы можете выбрать либо в соответствии с вашими потребностями.

Многие пользователи надеются, что Outlook сможет быстро скопировать участников из одной группы контактов в другую. Это может помочь им избежать проблем с добавлением участников по одному вручную. Теперь, в дальнейшем, мы поделимся двумя способами. Первый — это обходной путь, использующий встроенную функцию Outlook. И последний намного умнее из-за использования кода VBA.

Способ 1: копирование и вставка участников вручную

1. В первую очередь, сtarв вашей программе Outlook.
2. Затем вы можете получить доступ к области «Контакты», в которой вам нужно найти и передать определенную контактную группу.
3. Далее вы можете нажать на кнопку «Электронная почта» в группе «Общаться» на вкладке «Главная».
4. После этого отобразится новое электронное письмо, в котором вам нужно нажать значок «+» перед группой в поле «Кому», чтобы развернуть группу.
5. Позже скопируйте адреса электронной почты всех участников после расширения в поле «Кому».
6. Затем вернитесь в папку «Контакты», найдите и откройте группу контактов, в которую вы хотите скопировать участников.
7. В tarполучить окно группы контактов, нажмите «Добавить участников» > «Из адресной книги».
8. Затем во всплывающем диалоговом окне нажмите «Ctrl + V», чтобы вставить скопированные элементы в поле «Участники->».
9. Наконец, нажмите кнопку «ОК» и «Сохранить и закрыть», чтобы сохранить изменения.

Способ 2: копирование участников из одной контактной группы в другую через VBA

1. Прежде всего, в главном окне Outlook нажмите клавиши «Alt + F11».
2. В последующем окне «Microsoft Visual Basic для приложений» скопируйте следующий код 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 файл с высокой скоростью восстановления.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая sql восстановление и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com