2 metode pentru a copia toți membrii dintr-un grup de contact în altul în Outlook

Acest articol va introduce 2 abordări pentru a copia toți membrii dintr-un grup de contact în altul. Puteți alege oricare în funcție de nevoile dvs.

Mulți utilizatori speră că Outlook poate oferi un mijloc rapid de a copia membrii dintr-un grup de contact în altul. Îi poate ajuta să scape de necazul de a adăuga membri unul câte unul manual. Acum, în cele ce urmează, vom împărtăși 2 moduri. Prima este o soluție, folosind funcția nativă Outlook. Iar acesta din urmă este mult mai inteligent datorită utilizării codului VBA.

Metoda 1: Copiați și lipiți membrii manual

1. În primul rând, porniți programul Outlook.
2. Apoi, puteți accesa zona Contacte, în care trebuie să localizați și să prezentați un anumit grup de contacte.
3. Apoi, puteți face clic pe butonul „E-mail” din grupul „Comunicare” din fila „Acasă”.
4. După aceea, se va afișa un nou e-mail, în care trebuie să faceți clic pe pictograma „+” din fața grupului în câmpul „Către” pentru a extinde grupul.
5. Mai târziu, copiați adresele de e-mail ale tuturor membrilor după extinderea în câmpul „Către”.
6. Ulterior, reveniți la folderul Contacte și localizați și deschideți grupul de contacte în care doriți să copiați membrii.
7. În fereastra Grupului de contacte țintă, faceți clic pe „Adăugați membri” > „Din agendă”.
8. Apoi, în caseta de dialog pop-up, apăsați „Ctrl + V” pentru a lipi membrii copiați în câmpul „Membri->”.
9. În cele din urmă, faceți clic pe „OK” și pe butonul „Salvare și închidere” pentru a salva modificările.

Metoda 2: Copiați membrii dintr-un grup de contact în altul prin VBA

1. În primul rând, în fereastra principală Outlook, apăsați butoanele tastei „Alt + F11”.
2. În fereastra ulterioară „Microsoft Visual Basic for Applications”, copiați următorul cod VBA într-un modul neutilizat.

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. Apoi, puteți adăuga această macrocomandă la Bara de instrumente Acces rapid, ca de obicei.
4. În sfârșit, puteți încerca.

• Pentru început, selectați sau deschideți un grup de contacte sursă.
• Apoi faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Mai târziu, vi se va solicita să introduceți numele grupului de contacte țintă.
• După aceea, apăsați „OK”. Imediat, Outlook va găsi grupul de contacte țintă și va copia membrii grupului sursă în acesta.

Salvați fișierele Outlook deteriorate

Outlook este susceptibil la diferiți factori rău intenționați, inclusiv întreruperea curentului, infecția cu virus și așa mai departe. Pentru a ne proteja împotriva corupțiilor nedorite, nu avem de ales decât să facem o copie de rezervă regulată a Outlook. În plus, este recomandabil să instalați un instrument puternic de reparare PST, cum ar fi DataNumen Outlook Repair. Poate scana și repara PST fișier cu o rată de recuperare ridicată.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com