2 methoden om alle leden van de ene contactgroep naar de andere in Outlook te kopiëren

Outlook-oplossingen 29 september 2025

Dit artikel introduceert twee benaderingen om alle leden van de ene contactgroep naar de andere te kopiëren. U kunt een van beide kiezen volgens uw behoeften.

Veel gebruikers hopen dat Outlook een snelle manier kan zijn om de leden van de ene contactgroep naar de andere te kopiëren. Het kan hen helpen te ontsnappen aan de moeite om handmatig leden één voor één toe te voegen. Nu, in het volgende, zullen we twee manieren delen. De eerste is een tijdelijke oplossing, met behulp van de native Outlook-functie. En de laatste is veel slimmer vanwege het gebruik van VBA-code.

Kopieer alle leden van de ene contactgroep naar de andere in Outlook

Methode 1: leden handmatig kopiëren en plakken

  1. Start allereerst uw Outlook-programma.
  2. Vervolgens krijgt u toegang tot het gebied Contacten, waarin u een specifieke contactgroep moet zoeken en pitchen.
  3. Vervolgens kunt u op de knop “E-mail” klikken in de groep “Communiceren” onder het tabblad “Home”.E-mail naar contactgroep
  4. Daarna wordt een nieuwe e-mail weergegeven, waarin u op het pictogram "+" voor de groep in het veld "Aan" moet klikken om de groep uit te vouwen.
  5. Kopieer later de e-mailadressen van alle leden nadat ze zijn uitgevouwen in het veld "Aan".
  6. Keer vervolgens terug naar de map Contacten en zoek en open de contactgroep waarnaar u de leden wilt kopiëren.
  7. Klik in het venster van de betreffende contactgroep op 'Leden toevoegen' > 'Uit adresboek'.
  8. Druk vervolgens in het pop-upvenster op "Ctrl + V" om de gekopieerde leden in het veld "Leden->" te plakken.Voeg leden toe
  9. Klik ten slotte op "OK" en "Opslaan en sluiten" om de wijzigingen op te slaan.

Methode 2: Kopieer leden van de ene contactgroep naar de andere via VBA

  1. Allereerst drukt u in het hoofdvenster van Outlook op de toetsen "Alt + F11".
  2. Kopieer in het volgende venster "Microsoft Visual Basic for Applications" de volgende VBA-code naar een ongebruikte module.
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
  1. Vervolgens kunt u deze macro zoals gewoonlijk aan de werkbalk Snelle toegang toevoegen.
  2. Eindelijk kun je het proberen.
  • Selecteer of open om te beginnen een broncontactgroep.
  • Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
  • Later wordt u gevraagd de naam van de doelcontactgroep in te voeren.Specificeer de doelgroep
  • Druk daarna op 'OK'. Outlook zoekt direct de gewenste contactgroep op en kopieert de leden van de brongroep ernaartoe.

Red beschadigde Outlook-bestanden

Outlook is vatbaar voor verschillende schadelijke factoren, waaronder stroomuitval, virusinfecties, enzovoort. Om ons te beschermen tegen ongewenste corrupties, hebben we geen andere keuze dan een regelmatige Outlook-back-up te maken. Bovendien is het raadzaam om een ​​krachtige PST-reparatietool te installeren, zoals DataNumen Outlook Repair. Het kan scannen en reparatie PST bestand met een hoog herstelpercentage.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql herstel en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.