2 metody kopírování všech členů z jedné skupiny kontaktů do jiné v aplikaci Outlook

Tento článek představí 2 přístupy ke kopírování všech členů z jedné skupiny kontaktů do jiné. Můžete si vybrat buď podle svých potřeb.

Mnoho uživatelů doufá, že Outlook může poskytnout rychlý způsob kopírování členů z jedné skupiny kontaktů do druhé. Může jim pomoci uniknout z problémů s manuálním přidáváním členů jeden po druhém. Nyní v následujících částech sdílíme 2 způsoby. První z nich je řešení pomocí nativní funkce aplikace Outlook. A ten druhý je mnohem chytřejší díky použití kódu VBA.

Metoda 1: Ruční kopírování a vkládání členů

1. Nejprve spusťte program Outlook.
2. Poté můžete vstoupit do oblasti Kontakty, ve které musíte vyhledat a hodit na konkrétní skupinu kontaktů.
3. Dále můžete kliknout na tlačítko „E-mail“ ve skupině „Komunikovat“ na kartě „Domů“.
4. Poté se zobrazí nový e-mail, ve kterém musíte kliknutím na ikonu „+“ před skupinou v poli „Komu“ skupinu rozšířit.
5. Později po rozbalení v poli „Komu“ zkopírujte e-mailové adresy všech členů.
6. Následně se vraťte do složky Kontakty a vyhledejte a otevřete skupinu kontaktů, do které chcete členy zkopírovat.
7. V okně cílové skupiny kontaktů klikněte na „Přidat členy“ > „Z adresáře“.
8. Poté v rozbalovacím dialogovém okně stiskněte „Ctrl + V“ a vložte zkopírované členy do pole „Members->“.
9. Nakonec změny uložte kliknutím na tlačítka „OK“ a „Uložit a zavřít“.

Metoda 2: Kopírování členů z jedné kontaktní skupiny do druhé prostřednictvím VBA

1. Nejprve stiskněte v hlavním okně Outlooku klíčová tlačítka „Alt + F11“.
2. V následujícím okně „Microsoft Visual Basic for Applications“ zkopírujte následující kód VBA do nepoužívaného modulu.

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. Poté můžete toto makro přidat na panel nástrojů Rychlý přístup jako obvykle.
4. Nakonec to můžete vyzkoušet.

• Nejprve vyberte nebo otevřete skupinu kontaktů zdroje.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Později budete požádáni o zadání názvu cílové skupiny kontaktů.
• Poté stiskněte tlačítko „OK“. Outlook okamžitě vyhledá cílovou skupinu kontaktů a zkopíruje do ní členy zdrojové skupiny.

Zachraňte poškozené soubory aplikace Outlook

Outlook je citlivý na různé škodlivé faktory, včetně výpadku napájení, virové infekce atd. Abychom se ochránili před nežádoucím poškozením, nezbývá nám nic jiného, ​​než provést pravidelné zálohování aplikace Outlook. Kromě toho je vhodné nainstalovat silný nástroj pro opravu PST, jako je DataNumen Outlook Repair. Může skenovat a opravit PST soubor ve vysoké obnovovací rychlosti.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com