2 методи копіювання всіх членів з однієї контактної групи в іншу в Outlook

У цій статті буде представлено 2 підходи для копіювання всіх членів однієї контактної групи до іншої. Ви можете вибрати будь-який за вашими потребами.

Багато користувачів сподіваються, що Outlook може надати швидкий спосіб скопіювати учасників з однієї контактної групи в іншу. Це може допомогти їм врятуватися від проблеми додавання членів по одному вручну. Тепер, далі, ми поділимося двома способами. Перший - обхідний шлях із використанням власної функції Outlook. А останній набагато розумніший завдяки використанню коду VBA.

Спосіб 1: Копіювати та вставляти учасників вручну

1. Спочатку запустіть програму Outlook.
2. Потім ви можете отримати доступ до області контактів, у якій вам потрібно знайти та навести певну групу контактів.
3. Далі ви можете натиснути кнопку «Електронна пошта» у групі «Спілкуватися» на вкладці «Домашня сторінка».
4. Після цього з’явиться новий електронний лист, у якому потрібно клацнути піктограму “+” перед групою в полі “Кому”, щоб розширити групу.
5. Пізніше скопіюйте електронні адреси всіх учасників після розгортання у полі “Кому”.
6. Згодом поверніться до папки Контакти та знайдіть та відкрийте групу контактів, до якої потрібно скопіювати учасників.
7. У вікні цільової групи контактів натисніть «Додати учасників» > «З адресної книги».
8. Потім у спливаючому діалоговому вікні натисніть “Ctrl + V”, щоб вставити скопійовані члени в поле “Члени->”.
9. Нарешті, натисніть кнопку «OK» та кнопку «Зберегти та закрити», щоб зберегти зміни.

Спосіб 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. Нарешті, можна спробувати.

• Для початку виберіть або відкрийте вихідну групу контактів.
• Потім натисніть кнопку макросу на панелі швидкого доступу.
• Пізніше вам буде запропоновано ввести назву цільової групи контактів.
• Після цього натисніть «OK». Outlook одразу знайде цільову групу контактів і скопіює до неї учасників вихідної групи.

Пошкодження пошкоджених файлів Outlook

Outlook сприйнятливий до різних шкідливих факторів, зокрема відключення електроенергії, зараження вірусом тощо. Щоб захиститися від небажаних пошкоджень, нам не залишається нічого іншого, як зробити звичайну резервну копію Outlook. Крім того, доцільно встановити потужний засіб для ремонту PST, такий як DataNumen Outlook Repair. Він може сканувати і ремонт PST файл із високим коефіцієнтом відновлення.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення SQL та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com