2 metoder för att kopiera alla medlemmar från en kontaktgrupp till en annan i Outlook

Outlook-lösningar September 29, 2025

Denna artikel kommer att introducera två metoder för att kopiera alla medlemmar från en kontaktgrupp till en annan. Du kan välja antingen enligt dina behov.

Många användare hoppas att Outlook kan ge ett snabbt sätt att kopiera medlemmarna från en kontaktgrupp till en annan. Det kan hjälpa dem att fly från besväret att lägga till medlemmar en efter en manuellt. Nu, i det följande, delar vi två sätt. Den första är en lösning med Outlook-inbyggd funktion. Och den senare är mycket smartare på grund av dess användning av VBA-kod.

Kopiera alla medlemmar från en kontaktgrupp till en annan i Outlook

Metod 1: Kopiera och klistra in medlemmar manuellt

  1. Först och främst, starta ditt Outlook-program.
  2. Sedan kan du komma åt Kontakter-området där du behöver lokalisera och slå på en specifik kontaktgrupp.
  3. Därefter kan du klicka på knappen "E-post" i gruppen "Kommunicera" under fliken "Hem".E-post till kontaktgruppen
  4. Därefter visas ett nytt e-postmeddelande där du måste klicka på "+" -ikonen framför gruppen i "Till" -fältet för att expandera gruppen.
  5. Senare, kopiera alla medlemmars e-postadresser efter att ha expanderat i fältet "Till".
  6. Gå sedan tillbaka till mappen Kontakter och leta upp och öppna kontaktgruppen, som du vill kopiera medlemmarna till.
  7. I fönstret för målkontaktgruppen klickar du på "Lägg till medlemmar" > "Från adressboken".
  8. Tryck sedan på "Ctrl + V" i popup-dialogrutan för att klistra in de kopierade medlemmarna i fältet "Medlemmar->".Lägg till medlemmar
  9. Slutligen klickar du på "OK" och "Spara och stäng" för att spara ändringarna.

Metod 2: Kopiera medlemmar från en kontaktgrupp till en annan via VBA

  1. Först och främst, i huvudfönstret i Outlook, tryck på “Alt + F11” -knapparna.
  2. I det efterföljande “Microsoft Visual Basic for Applications” -fönstret kopierar du följande VBA-kod till en oanvänd 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. Sedan kan du lägga till detta makro i snabbåtkomstverktygsfältet som vanligt.
  2. Slutligen kan du prova.
  • Till att börja med väljer eller öppnar du en källkontaktgrupp.
  • Klicka sedan på makroknappen i snabbåtkomstverktygsfältet.
  • Senare kommer du att bli ombedd att ange namnet på målkontaktgruppen.Ange målkontaktgrupp
  • Tryck sedan på “OK”. Outlook hittar direkt målgruppen för kontakter och kopierar medlemmarna i källgruppen till den.

Rädda skadade Outlook-filer

Outlook är mottagligt för olika skadliga faktorer, inklusive strömavbrott, virusinfektion och så vidare. För att skydda mot oönskade korruptioner har vi inget annat val än att göra en vanlig Outlook-säkerhetskopia. Dessutom är det lämpligt att installera ett kraftfullt PST-reparationsverktyg, t.ex. DataNumen Outlook Repair. Det kan skanna och reparera PST fil i en hög återhämtningsgrad.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL-återhämtning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.