2 metode za kopiranje svih članova iz jedne kontakt grupe u drugu u Outlooku

Ovaj članak će predstaviti 2 pristupa za kopiranje svih članova iz jedne kontakt grupe u drugu. Možete odabrati bilo koje prema vašim potrebama.

Mnogi korisnici se nadaju da Outlook može pružiti brz način za kopiranje članova iz jedne grupe kontakata u drugu. To im može pomoći da pobjegnu od problema ručnog dodavanja članova jednog po jednog. Sada, u nastavku, podijelit ćemo 2 načina. Prvi je zaobilazno rješenje, koristeći izvornu funkciju Outlooka. A ovaj drugi je mnogo pametniji zbog upotrebe VBA koda.

Metoda 1: Ručno kopirajte i zalijepite članove

1. Prvo, pokrenite Outlook program.
2. Zatim možete pristupiti oblasti Kontakti, u kojoj trebate locirati i postaviti određenu grupu kontakata.
3. Zatim možete kliknuti na dugme „E-pošta” u grupi „Komunikacija” na kartici „Početna”.
4. Nakon toga, pojavit će se novi email u kojem trebate kliknuti na ikonu “+” ispred grupe u polju “Za” da biste proširili grupu.
5. Kasnije kopirajte adrese e-pošte svih članova nakon što proširite polje “Za”.
6. Zatim se vratite u fasciklu Kontakti i pronađite i otvorite grupu kontakata u koju želite da kopirate članove.
7. U prozoru ciljne grupe kontakata kliknite na "Dodaj članove" > "Iz adresara".
8. Zatim, u iskačućem dijaloškom okviru, pritisnite “Ctrl + V” da zalijepite kopirane članove u polje “Članovi->”.
9. Na kraju, kliknite na “OK” i “Save & Close” dugme da sačuvate promene.

Metod 2: Kopirajte članove iz jedne kontakt grupe u drugu preko VBA

1. Prvo, u glavnom prozoru programa Outlook, pritisnite tipke “Alt + F11”.
2. U sledećem prozoru „Microsoft Visual Basic za aplikacije“, kopirajte sledeći VBA kod u nekorišćeni modul.

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. Zatim možete dodati ovaj makro na traku sa alatkama za brzi pristup kao i obično.
4. Konačno, možete probati.

• Za početak odaberite ili otvorite izvornu grupu kontakata.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Kasnije će se od vas tražiti da unesete naziv ciljne grupe kontakata.
• Nakon toga, pritisnite "OK". Outlook će odmah pronaći ciljnu grupu kontakata i kopirati članove izvorne grupe u nju.

Spašavanje oštećenih Outlook datoteka

Outlook je podložan raznim zlonamjernim faktorima, uključujući nestanak struje, infekciju virusom i tako dalje. Kako bismo se zaštitili od neželjenih oštećenja, nemamo izbora osim da napravimo redovnu sigurnosnu kopiju Outlooka. Osim toga, preporučljivo je instalirati moćan PST alat za popravku, kao što je DataNumen Outlook Repair. Može skenirati i popraviti PST fajl u visokoj stopi oporavka.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com