2 méthodes pour copier tous les membres d'un groupe de contacts vers un autre dans Outlook

Cet article présentera 2 approches pour copier tous les membres d'un groupe de contact à un autre. Vous pouvez choisir l'un ou l'autre selon vos besoins.

De nombreux utilisateurs espèrent qu'Outlook peut fournir un moyen rapide de copier les membres d'un groupe de contacts à un autre. Cela peut les aider à échapper à la difficulté d'ajouter des membres un par un manuellement. Maintenant, dans ce qui suit, nous partagerons 2 façons. La première est une solution de contournement, utilisant la fonctionnalité native d'Outlook. Et ce dernier est beaucoup plus intelligent en raison de son utilisation du code VBA.

Méthode 1 : copier et coller manuellement les membres

1. Pour commencer, ouvrez votre programme Outlook.
2. Ensuite, vous pouvez accéder à la zone Contacts, dans laquelle vous devez localiser et proposer un groupe de contacts spécifique.
3. Ensuite, vous pouvez cliquer sur le bouton « E-mail » dans le groupe « Communiquer » sous l'onglet « Accueil ».
4. Après cela, un nouvel e-mail s'affichera, dans lequel vous devrez cliquer sur l'icône "+" devant le groupe dans le champ "À" pour développer le groupe.
5. Plus tard, copiez les adresses e-mail de tous les membres après avoir développé le champ "À".
6. Ensuite, revenez au dossier Contacts et recherchez et ouvrez le groupe de contacts dans lequel vous souhaitez copier les membres.
7. Dans la fenêtre du groupe de contacts cible, cliquez sur « Ajouter des membres » > « À partir du carnet d’adresses ».
8. Ensuite, dans la boîte de dialogue contextuelle, appuyez sur "Ctrl + V" pour coller les membres copiés dans le champ "Membres->".
9. Enfin, cliquez sur "OK" et sur le bouton "Enregistrer et fermer" pour enregistrer les modifications.

Méthode 2 : copier des membres d'un groupe de contacts à un autre via VBA

1. Tout d'abord, dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
2. Dans la fenêtre suivante "Microsoft Visual Basic pour Applications", copiez le code VBA suivant dans un module inutilisé.

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. Ensuite, vous pouvez ajouter cette macro à la barre d'outils Accès rapide comme d'habitude.
4. Enfin, vous pouvez essayer.

• Pour commencer, sélectionnez ou ouvrez un groupe de contacts source.
• Cliquez ensuite sur le bouton macro dans la barre d'outils d'accès rapide.
• Vous serez ensuite invité à saisir le nom du groupe de contacts cible.
• Ensuite, appuyez sur « OK ». Outlook trouvera alors le groupe de contacts cible et y copiera les membres du groupe source.

Récupérer les fichiers Outlook endommagés

Outlook est sensible à divers facteurs malveillants, notamment les pannes de courant, les infections virales, etc. Afin de se prémunir contre les corruptions indésirables, nous n'avons d'autre choix que de faire une sauvegarde régulière d'Outlook. En outre, il est conseillé d'installer un puissant outil de réparation PST, tel que DataNumen Outlook Repair. Il peut scanner et réparer la TVP fichier dans un taux de récupération élevé.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupération SQL et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com