Comment ajouter par lots tous les destinataires de plusieurs e-mails aux contacts Outlook

Certains utilisateurs aspirent à une solution qui leur permette d'ajouter rapidement tous les destinataires de plusieurs e-mails au dossier Outlook Contacts en tant que nouveaux contacts. Donc, cet article présentera une approche aussi rapide.

Par exemple, vous recevez des e-mails qui sont envoyés simultanément à de nombreux autres destinataires sauf vous. De plus, ces destinataires ne sont pas stockés dans vos contacts Outlook. Dans ce cas, vous souhaiterez peut-être ajouter ces destinataires aux contacts Outlook. Pour y parvenir par lots, vous pouvez utiliser la méthode suivante.

Ajouter par lots tous les destinataires de plusieurs e-mails aux contacts Outlook

1. Pour commencer, lancez votre programme Outlook.
2. Ensuite, appuyez sur les touches "Alt + F11" pour accéder à Outlook VBA eidtor.
3. Ensuite, dans la fenêtre "Microsoft Visual Basic pour Applications", copiez et collez le code suivant dans un module vide.

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. Après cela, réduisez ou quittez cette fenêtre.
5. Plus tard, vous devrez ajouter cette macro à la barre d'outils d'accès rapide en faisant référence à "Comment exécuter le code VBA dans votre Outlook ».
6. Enfin, vous pouvez essayer cette macro.

• Dans un premier temps, sélectionnez plusieurs e-mails dont les destinataires seront ajoutés aux contacts.
• Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
• Une fois la macro terminée, vous pouvez accéder au dossier Contacts par défaut. Ces destinataires ont été ajoutés.
• Le nouveau contact ressemblera à la capture d'écran suivante.

Faites attention à tous les risques autour de vos perspectives

Bien qu'Outlook soit doté de diverses fonctionnalités, il est vulnérable à de nombreux facteurs, notamment les erreurs humaines, les défaillances logicielles, les problèmes matériels et les virus. Il est donc nécessaire pour nous de garder un œil sur tous les risques potentiels autour de nos perspectives. Aussi, prendre des précautions suffisantes est une nécessité. Par exemple, vous feriez mieux de vous procurer un outil de correction PST, tel que DataNumen Outlook Repair, Qui peut réparer la TVP problèmes avec une facilité sans effort.

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éparation mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com