Hoe voeg ik automatisch een contact toe uit een e-mail bij het beantwoorden in Outlook?
Bij het beantwoorden van e-mails wilt u mogelijk automatisch de afzender of ontvangers toevoegen aan uw Outlook-contacten. Dit kan Tijd besparen en zorgt ervoor dat u nooit belangrijke contactgegevens kwijtraakt. Hoewel Outlook standaard geen automatisch Contact toevoegen ondersteunt bij het beantwoorden, leg ik u twee methoden uit om automatisch Contact toevoegen uit een e-mail, inclusief een Kutools voor Outlook-functie.
Automatisch Contact toevoegen uit een Outlook-e-mail bij beantwoorden met VBA
Automatisch Contact toevoegen uit een Outlook-e-mail bij beantwoorden met VBA
Deze VBA voegt automatisch de afzender en alle ontvangers van een e-mail toe als contactpersoon zodra u de e-mail beantwoordt in Outlook. Volg deze stappen:
1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Vouw Project1 uit en dubbelklik op ThisOutlookSession om het te openen. Plak vervolgens de onderstaande VBA-code in het ThisOutlookSession-venster. Zie schermafbeelding:
VBA: Automatisch Contact toevoegen uit een e-mail bij beantwoorden in 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. Sla de VBA-code op en start Microsoft Outlook opnieuw op.
Vanaf nu worden bij het beantwoorden van een e-mail in Outlook automatisch de afzender en alle ontvangers opgeslagen als contactpersonen in de standaardcontactmap van uw standaard e-mailaccount.
Batch toevoegen meerdere afzenders en ontvangers uit Geselecteerde items toevoegen aan contacten met Kutools
Kutools voor Outlook vereenvoudigt het toevoegen van contacten met de functie Afzenders en meerdere ontvangers van de geselecteerde e-mails toevoegen aan contacten. Hiermee voegt u in één keer contacten toe uit één of meerdere e-mails.
Stap 1. Download en installeer Kutools voor Outlook. Ga daarna naar de map Verzonden items (of een andere map) en selecteer de berichten waarvan u de afzenders en ontvangers als contacten wilt opslaan.
Stap 2. Klik op Kutools > Contact toevoegen > Afzenders en meerdere ontvangers van de geselecteerde e-mails toevoegen aan contacten.
Stap 3. In het dialoogvenster 'Contacten toevoegen vanuit e-mail',
Selecteer een contactmap: Kies de map waarin u het contact wilt opslaan.
Selecteer de adressen: Standaard zijn alle adressen geselecteerd, behalve bestaande. Controleer de lijst en schakel eventuele adressen uit die u niet wilt toevoegen.
Klik op OK: Bevestig uw selectie en sla de contacten op in de map van uw keuze.
Stap 4. Er verschijnt een dialoogvenster met het aantal contacten dat succesvol is toegevoegd. Klik op OK om het dialoogvenster te sluiten.
Gerelateerde artikelen
Hoe voeg ik contacten in batch toe vanuit e-mails of de map Verzonden items in Outlook?
Hoe voeg ik meerdere contacten tegelijk toe aan een contactgroep in Outlook?
Beste Office-productiviteitstools
Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!
📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…
📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…
📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…
🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...
👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...
👩🏼🤝👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!
🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!
- ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
- 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
- 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint