Comment ajouter automatiquement un contact à partir d’un e-mail lors d’une réponse dans Outlook ?
Lorsque vous répondez à des e-mails, vous souhaitez peut-être ajouter automatiquement l’expéditeur ou les destinataires à vos contacts Outlook. Cela vous fait gagner du temps et garantit que vous ne perdez jamais d’informations de contact importantes. Bien qu’Outlook ne prenne pas nativement en charge l’ajout automatique de contacts lors d’une réponse, je vais vous guider pas à pas à travers deux méthodes pour ajouter automatiquement des contacts à partir d’un e-mail, dont une utilisant la fonctionnalité de Kutools pour Outlook.
Ajouter automatiquement des Ajouter un contact à partir d’un e-mail Outlook lors d’une réponse avec VBA
Ce code VBA ajoutera automatiquement l’expéditeur et tous les destinataires de l’e-mail en tant que contacts dès que vous y répondrez dans Outlook. Procédez comme suit :
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Développez Projet1, puis double-cliquez sur ThisOutlookSession pour l’ouvrir et collez le code VBA ci-dessous dans la fenêtre ThisOutlookSession. Voir capture d’écran :
VBA : Ajout automatique de Ajouter un contact à partir d’un e-mail lors d’une réponse dans Outlook
Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub
Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub
3. Enregistrez le code VBA, puis redémarrez Microsoft Outlook.
Désormais, lorsque vous répondez à un e-mail dans Outlook, l’expéditeur ainsi que tous les destinataires de ce message sont automatiquement enregistrés en tant que contacts dans le dossier de contacts par défaut de votre compte e-mail principal.
Importer plusieurs expéditeurs et destinataires de Éléments sélectionnés vers les contacts avec Kutools
Kutools pour Outlook simplifie l’ajout de contacts grâce à sa fonctionnalité Ajouter les expéditeurs et destinataires multiples des e-mails sélectionnés aux contacts. Cela vous permet d’effectuer une importation par lot à partir d’un ou plusieurs e-mails.
1. Téléchargez et installez Kutools pour Outlook, puis accédez au dossier Éléments envoyés (ou à un autre dossier) et sélectionnez les messages dont vous souhaitez ajouter les expéditeurs et destinataires à vos contacts.
Étape 2. Cliquez sur Kutools > Ajouter un contact > Ajouter les expéditeurs et destinataires multiples des e-mails sélectionnés aux contacts.
Étape 3. Dans la boîte de dialogue « Ajouter des contacts depuis l’e-mail »,
Sélectionnez un dossier de contacts : choisissez le dossier dans lequel vous souhaitez enregistrer le contact.
Sélectionnez les adresses : Par défaut, toutes les adresses sont sélectionnées, sauf celles déjà existantes. Vérifiez la liste et décochez celles que vous ne souhaitez pas ajouter.
Cliquez sur OK : confirmez votre sélection et enregistrez les contacts dans le dossier choisi.
Étape 4. Une boîte de dialogue s’affiche, indiquant le nombre de contacts ajoutés avec succès. Cliquez sur OK pour fermer la boîte de dialogue.
Articles associés
Meilleurs outils de productivité Office
Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !
📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...
📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…
📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…
🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...
👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…
👩🏼🤝👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…
Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !
🚀 Téléchargement en un clic — Obtenez tous les compléments Office
Fortement recommandé : Kutools for Office (5-en-1)
Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !
- ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
- 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
- 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint