2 Metoda për të kopjuar të gjithë anëtarët nga një grup kontakti në tjetrin në Outlook

Ky artikull do të prezantojë 2 mënyra për të kopjuar të gjithë anëtarët nga një grup kontakti në tjetrin. Ju mund të zgjidhni ose sipas nevojave tuaja.

Shumë përdorues shpresojnë se Outlook mund të sigurojë një mjet të shpejtë për të kopjuar anëtarët nga një grup kontakti në tjetrin. Mund t'i ndihmojë ata të shpëtojnë nga telashet e shtimit të anëtarëve një nga një manualisht. Tani, në vijim, ne do të ndajmë 2 mënyra. E para është një zgjidhje, duke përdorur veçorinë origjinale të Outlook. Dhe kjo e fundit është shumë më e zgjuar për shkak të përdorimit të kodit VBA.

Metoda 1: Kopjoni dhe ngjisni anëtarët manualisht

1. Në radhë të parë, nisni programin tuaj Outlook.
2. Më pas, mund të hyni në zonën e Kontakteve, në të cilën ju duhet të gjeni dhe të vendosni në një grup të caktuar kontaktesh.
3. Më pas, mund të klikoni në butonin "E-mail" në grupin "Komunikoni" nën skedën "Home".
4. Pas kësaj, do të shfaqet një email i ri, në të cilin duhet të klikoni ikonën "+" përpara grupit në fushën "Për" për të zgjeruar grupin.
5. Më vonë, kopjoni adresat e emailit të të gjithë anëtarëve pasi të keni zgjeruar në fushën "Për".
6. Më pas, kthehuni te dosja Kontaktet dhe gjeni dhe hapni grupin e kontaktit, në të cilin dëshironi të kopjoni anëtarët.
7. Në dritaren e Grupit të Kontaktit të synuar, klikoni "Shto Anëtarë" > "Nga Libri i Adresave".
8. Më pas, në kutinë e dialogut që shfaqet, shtypni "Ctrl + V" për të ngjitur anëtarët e kopjuar në fushën "Anëtarët->".
9. Së fundi, klikoni "OK" dhe butonin "Ruaj & Mbyll" për të ruajtur ndryshimet.

Metoda 2: Kopjoni anëtarët nga një grup kontakti në tjetrin nëpërmjet VBA

1. Së pari, në dritaren kryesore të Outlook, shtypni butonat "Alt + F11".
2. Në dritaren pasuese "Microsoft Visual Basic për aplikacione", kopjoni kodin e mëposhtëm VBA në një modul të papërdorur.

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. Më pas, mund ta shtoni këtë makro në shiritin e veglave të aksesit të shpejtë si zakonisht.
4. Më në fund, mund të provoni.

• Për të filluar, zgjidhni ose hapni një grup kontakti burimor.
• Pastaj klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Më vonë, do t'ju kërkohet të futni emrin e grupit të kontaktit të synuar.
• Pas kësaj, shtypni "OK". Menjëherë, Outlook do të gjejë grupin e kontakteve të synuar dhe do të kopjojë anëtarët e grupit burimor në të.

Shpëtoni skedarët e dëmtuar të Outlook

Outlook është i ndjeshëm ndaj faktorëve të ndryshëm keqdashës, duke përfshirë ndërprerjen e energjisë, infeksionin nga virusi etj. Për t'u mbrojtur nga korrupsioni i padëshiruar, nuk na mbetet gjë tjetër veçse të bëjmë një kopje rezervë të rregullt të Outlook. Përveç kësaj, këshillohet të instaloni një mjet të fuqishëm riparimi PST, si p.sh DataNumen Outlook Repair. Mund të skanojë dhe riparim PST skedar me një shkallë të lartë rikuperimi.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com