2 tapaa kopioida kaikki jäsenet yhdestä yhteysryhmästä toiseen Outlookissa

Tässä artikkelissa esitellään 2 lähestymistapaa kaikkien jäsenten kopioimiseksi yhdestä yhteysryhmästä toiseen. Voit valita joko tarpeidesi mukaan.

Monet käyttäjät toivovat, että Outlook voi tarjota nopean tavan kopioida jäsenet yhteysryhmästä toiseen. Se voi auttaa heitä välttämään vaivaa lisätä jäseniä yksitellen manuaalisesti. Seuraavassa kerromme kahdella tavalla. Ensimmäinen on kiertotapa Outlookin natiivitoiminnon avulla. Ja jälkimmäinen on paljon älykkäämpi, koska se käyttää VBA-koodia.

Tapa 1: Kopioi ja liitä jäsenet manuaalisesti

1. Käynnistä ensin Outlook-ohjelmasi.
2. Sitten voit käyttää Yhteystiedot-aluetta, jolla sinun on löydettävä ja asetettava tietty yhteysryhmä.
3. Seuraavaksi voit napsauttaa "Sähköposti" -painiketta "Kommunikoi" -ryhmässä "Koti" -välilehdessä.
4. Sen jälkeen näyttöön tulee uusi sähköposti, jossa sinun on napsautettava ryhmän edessä olevaa + -kuvaketta Vastaanottaja-kentässä laajentaaksesi ryhmää.
5. Kopioi myöhemmin kaikkien jäsenten sähköpostiosoitteet, kun olet laajentunut Vastaanottaja-kenttään.
6. Palaa sitten Yhteystiedot-kansioon ja etsi ja avaa yhteysryhmä, johon haluat kopioida jäsenet.
7. Napsauta kohdeyhteysryhmäikkunassa ”Lisää jäseniä” > ”Osoitekirjasta”.
8. Paina sitten ponnahdusvalintaikkunassa "Ctrl + V" liittääksesi kopioidut jäsenet "Jäsenet->" -kenttään.
9. Lopuksi napsauta "OK" ja "Tallenna ja sulje" -painikkeita tallentaaksesi muutokset.

Tapa 2: Kopioi jäsenet yhdestä yhteysryhmästä toiseen VBA: n kautta

1. Ensinnäkin, paina Outlook-pääikkunassa "Alt + F11" -näppäimiä.
2. Kopioi seuraava VBA-koodi seuraavassa Microsoft Visual Basic for Applications -ikkunassa käyttämättömään moduuliin.

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. Sitten voit lisätä tämän makron Pikatyökaluriville tavalliseen tapaan.
4. Lopuksi voit kokeilla.

• Aluksi valitse tai avaa lähdekontaktiryhmä.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Myöhemmin sinua pyydetään antamaan kohdeyhteysryhmän nimi.
• Paina sen jälkeen “OK”. Outlook löytää heti kohdeyhteystietoryhmän ja kopioi lähderyhmän jäsenet siihen.

Pelasta vahingoittuneet Outlook-tiedostot

Outlook on altis useille haitallisille tekijöille, kuten sähkökatkolle, virustartunnalle ja niin edelleen. Suojellaksemme ei-toivotuilta vioittumisilta meillä ei ole muuta vaihtoehtoa kuin tehdä säännöllinen Outlook-varmuuskopio. Lisäksi on suositeltavaa asentaa voimakas PST-korjaustyökalu, kuten DataNumen Outlook Repair. Se voi skannata ja korjaa PST tiedostoa korkealla palautusasteella.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com