2 metoder for å kopiere alle medlemmer fra en kontaktgruppe til en annen i Outlook

Outlook-løsninger September 29, 2025

Denne artikkelen vil introdusere 2 tilnærminger for å kopiere alle medlemmene fra en kontaktgruppe til en annen. Du kan velge enten etter dine behov.

Mange brukere håper at Outlook kan gi en rask måte å kopiere medlemmene fra en kontaktgruppe til en annen. Det kan hjelpe dem å slippe unna bryet med å legge til medlemmer én etter én manuelt. Nå, i det følgende, vil vi dele 2 måter. Den første er en løsning ved å bruke den opprinnelige Outlook-funksjonen. Og sistnevnte er mye smartere på grunn av bruken av VBA-kode.

Kopier alle medlemmer fra en kontaktgruppe til en annen i Outlook

Metode 1: Kopier og lim inn medlemmer manuelt

  1. Først og fremst, start Outlook-programmet ditt.
  2. Deretter kan du få tilgang til kontaktområdet, der du må finne og vise en spesifikk kontaktgruppe.
  3. Deretter kan du klikke på "E-post"-knappen i "Kommunisere"-gruppen under fanen "Hjem".E-post til kontaktgruppe
  4. Etter det vil en ny e-post vises, der du må klikke på "+"-ikonet foran gruppen i "Til"-feltet for å utvide gruppen.
  5. Kopier alle medlemmers e-postadresser senere etter å ha utvidet i "Til"-feltet.
  6. Gå deretter tilbake til Kontakter-mappen og finn og åpne kontaktgruppen som du vil kopiere medlemmene til.
  7. I vinduet for målkontaktgruppen klikker du på «Legg til medlemmer» > «Fra adressebok».
  8. Deretter, i popup-dialogboksen, trykk "Ctrl + V" for å lime inn de kopierte medlemmene i "Members->"-feltet.Legg til medlemmer
  9. Til slutt klikker du på "OK" og "Lagre og lukk"-knappen for å lagre endringene.

Metode 2: Kopier medlemmer fra en kontaktgruppe til en annen via VBA

  1. Først av, i hovedvinduet i Outlook, trykk på "Alt + F11" -tastene.
  2. I det påfølgende "Microsoft Visual Basic for Applications"-vinduet kopierer du følgende VBA-kode til en ubrukt 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
  1. Deretter kan du legge til denne makroen til Quick Access Toolbar som vanlig.
  2. Endelig kan du prøve.
  • Til å begynne med, velg eller åpne en kildekontaktgruppe.
  • Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
  • Senere vil du bli bedt om å legge inn navnet på målkontaktgruppen.Angi målkontaktgruppe
  • Trykk deretter på «OK». Outlook vil umiddelbart finne målkontaktgruppen og kopiere medlemmene i kildegruppen til den.

Redd skadede Outlook-filer

Outlook er utsatt for ulike ondsinnede faktorer, inkludert strømbrudd, virusinfeksjon og så videre. For å beskytte mot uønsket korrupsjon har vi ikke noe annet valg enn å ta en vanlig Outlook-sikkerhetskopi. Dessuten er det tilrådelig å installere et potent PST-reparasjonsverktøy, som f.eks DataNumen Outlook Repair. Den kan skanne og reparere PST fil med høy gjenopprettingshastighet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.