Note: The other languages of the website are Google-translated. Back to English

Hoe automatisch contacten uit een e-mail toe te voegen bij het beantwoorden in Outlook?

In Outlook 2010 kunt u het Voorgestelde contacten functie en automatisch ontvangers toevoegen als nieuwe contacten. Dit Voorgestelde contacten functie wordt niet ondersteund in Outlook 2013 en 2016. Hier zal ik een VBA introduceren om automatisch afzenders en ontvangers van een e-mail toe te voegen als nieuwe contacten bij het beantwoorden in Outlook.

Voeg automatisch contacten toe vanuit een Outlook-e-mail bij het beantwoorden met VBA

Office-tabblad - Schakel bewerken en browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2021 - 2010 of Office 365. Volledige functies 60 dagen gratis op proef.

Voeg automatisch contacten toe vanuit een Outlook-e-mail bij het beantwoorden met VBA

Deze VBA voegt automatisch de afzender en alle ontvangers van een e-mail toe als nieuwe contacten wanneer u de e-mail beantwoordt in Outlook. Ga als volgt te werk:

1. pers anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Vouw Project1 uit en dubbelklik DezeOutlookSessie om het te openen en plak vervolgens onder VBA-code in het ThisOutlookSession-venster. Zie screenshot:

VBA: automatisch contacten toevoegen vanuit een e-mail bij het 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 uw Microsoft Outlook opnieuw.

Vanaf nu, wanneer u een e-mail beantwoordt in Outlook, worden de afzender van deze e-mail en alle ontvangers automatisch opgeslagen als nieuwe contacten in de standaardcontactmap van het standaard e-mailaccount.


Gerelateerde artikelen


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (1)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor deze code.
Maar het dupliceert (in mijn geval tenminste) de contacten zo vaak als ik ze schrijf. Enig idee?
Trouwens, in de Outlook-opties is het vakje "zoeken naar duplicaten bij het opslaan van een nieuw contact" aangevinkt.
Er zijn nog geen reacties geplaatst
Laat uw opmerkingen in het Engels achter
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL