2 spôsoby kopírovania všetkých členov z jednej kontaktnej skupiny do druhej v programe Outlook

Tento článok predstaví dva prístupy na kopírovanie všetkých členov z jednej kontaktnej skupiny do druhej. Môžete si vybrať buď podľa svojich potrieb.

Mnoho používateľov dúfa, že program Outlook môže poskytnúť rýchly spôsob kopírovania členov z jednej skupiny kontaktov do druhej. Môže im pomôcť uniknúť z problémov s manuálnym pridávaním členov. Teraz sa v nasledujúcich častiach budeme deliť o 2 spôsoby. Prvým z nich je riešenie, ktoré využíva natívnu funkciu Outlooku. A ten druhý je oveľa inteligentnejší vďaka použitiu kódu VBA.

Metóda 1: Ručné kopírovanie a vkladanie členov

1. V prvom rade spustite program Outlook.
2. Potom môžete vstúpiť do oblasti Kontakty, v ktorej musíte vyhľadať a osloviť konkrétnu skupinu kontaktov.
3. Ďalej môžete kliknúť na tlačidlo „E-mail“ v ​​skupine „Komunikovať“ na karte „Domov“.
4. Potom sa zobrazí nový e-mail, v ktorom musíte kliknutím na ikonu „+“ pred skupinou v poli „Komu“ skupinu rozšíriť.
5. Neskôr po rozšírení do poľa „Komu“ skopírujte e-mailové adresy všetkých členov.
6. Následne sa vráťte do priečinka Kontakty a vyhľadajte a otvorte skupinu kontaktov, do ktorej chcete členov skopírovať.
7. V okne cieľovej skupiny kontaktov kliknite na „Pridať členov“ > „Z adresára“.
8. Potom v rozbaľovacom dialógovom okne stlačte „Ctrl + V“ a vložte skopírované členy do poľa „Členovia->“.
9. Nakoniec zmeny uložte kliknutím na tlačidlo „OK“ a na tlačidlo „Uložiť a zavrieť“.

Metóda 2: Kopírovanie členov z jednej kontaktnej skupiny do druhej prostredníctvom VBA

1. Najskôr v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
2. V nasledujúcom okne „Microsoft Visual Basic for Applications“ skopírujte nasledujúci 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. Potom môžete toto makro pridať na panel s nástrojmi Rýchly prístup ako obvykle.
4. Nakoniec to môžete vyskúšať.

• Najskôr vyberte alebo otvorte skupinu kontaktov zdroja.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Neskôr budete požiadaní o zadanie názvu cieľovej skupiny kontaktov.
• Potom stlačte tlačidlo „OK“. Outlook okamžite nájde cieľovú skupinu kontaktov a skopíruje do nej členov zdrojovej skupiny.

Záchrana poškodených súborov programu Outlook

Outlook je citlivý na rôzne škodlivé faktory, ako napríklad výpadok napájania, vírusová infekcia atď. Aby sme sa chránili pred nežiaducimi korupciami, nezostáva nám nič iné, ako si pravidelne zálohovať Outlook. Okrem toho je vhodné inštalovať silný nástroj na opravu PST, ako je napr DataNumen Outlook Repair. Môže skenovať a opraviť PST súbor vo vysokej miere obnovy.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S