2 Metody kopiowania wszystkich członków z jednej grupy kontaktów do innej w programie Outlook

W tym artykule przedstawimy 2 podejścia do kopiowania wszystkich członków z jednej grupy kontaktów do drugiej. Możesz wybrać według swoich potrzeb.

Wielu użytkowników ma nadzieję, że Outlook umożliwi szybkie skopiowanie członków z jednej grupy kontaktów do drugiej. Może im to pomóc uciec od problemu ręcznego dodawania członków jeden po drugim. W dalszej części podzielimy się dwoma sposobami. Pierwsza z nich to obejście przy użyciu natywnej funkcji Outlooka. A ten drugi jest znacznie mądrzejszy dzięki wykorzystaniu kodu VBA.

Metoda 1: Ręczne kopiowanie i wklejanie członków

1. Najpierw uruchom program Outlook.
2. Następnie możesz uzyskać dostęp do obszaru Kontakty, w którym musisz zlokalizować i promować określoną grupę kontaktów.
3. Następnie możesz kliknąć przycisk „E-mail” w grupie „Komunikuj się” w zakładce „Strona główna”.
4. Następnie pojawi się nowy e-mail, w którym należy kliknąć ikonę „+” przed grupą w polu „Do”, aby rozwinąć grupę.
5. Później skopiuj adresy e-mail wszystkich członków po rozwinięciu w polu „Do”.
6. Następnie wróć do folderu Kontakty i znajdź i otwórz grupę kontaktów, do której chcesz skopiować członków.
7. W oknie docelowej grupy kontaktów kliknij „Dodaj członków” > „Z książki adresowej”.
8. Następnie w wyskakującym oknie dialogowym naciśnij „Ctrl + V”, aby wkleić skopiowanych członków w polu „Członkowie->”.
9. Na koniec kliknij „OK” i „Zapisz i zamknij”, aby zapisać zmiany.

Metoda 2: Skopiuj członków z jednej grupy kontaktów do drugiej za pośrednictwem VBA

1. Po pierwsze, w głównym oknie Outlooka wciśnij klawisze „Alt + F11”.
2. W kolejnym oknie „Microsoft Visual Basic for Applications” skopiuj następujący kod VBA do nieużywanego modułu.

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. Następnie możesz jak zwykle dodać to makro do paska narzędzi szybkiego dostępu.
4. Wreszcie możesz spróbować.

• Na początek wybierz lub otwórz źródłową grupę kontaktów.
• Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
• Później zostaniesz poproszony o podanie nazwy docelowej grupy kontaktów.
• Następnie naciśnij „OK”. Outlook natychmiast znajdzie docelową grupę kontaktów i skopiuje do niej członków grupy źródłowej.

Uratuj uszkodzone pliki programu Outlook

Program Outlook jest podatny na różne złośliwe czynniki, w tym przerwy w dostawie prądu, infekcje wirusowe i tak dalej. Aby zabezpieczyć się przed niechcianymi uszkodzeniami, nie mamy innego wyjścia, jak tylko regularnie wykonywać kopię zapasową programu Outlook. Poza tym wskazane jest zainstalowanie potężnego narzędzia do naprawy PST, takiego jak DataNumen Outlook Repair. Może skanować i naprawa PST plik z wysokim współczynnikiem odzyskiwania.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com