Wie können Sie beim Antworten in Outlook automatisch einen Kontakt aus einer E-Mail hinzufügen?

AutorKelly Änderungsdatum2025-08-15

Beim Antworten auf E-Mails möchten Sie Absender oder Empfänger vielleicht automatisch zu Ihren Outlook-Kontakten hinzufügen – das spart Zeit und stellt sicher, dass Ihnen nie wichtige Kontaktinformationen verloren gehen. Obwohl Outlook beim Antworten keine native Funktion zum automatischen Hinzufügen von Kontakten bietet, zeige ich Ihnen zwei Methoden, um beim Antworten automatisch Kontakte aus einer E-Mail hinzuzufügen – darunter eine praktische Funktion von Kutools für Outlook.

Automatisches Kontakt hinzufügen aus einer Outlook-E-Mail beim Antworten mithilfe von VBA

Stapel hinzufügen mehrere Absender und Empfänger aus Ausgewählte Objekte mit Kutools zu Kontakten hinzufügen

Automatisches Kontakt hinzufügen aus einer Outlook-E-Mail beim Antworten mithilfe von VBA

Dieses VBA fügt beim Antworten auf eine E-Mail in Outlook automatisch den Absender sowie alle Empfänger dieser Nachricht als Kontakte hinzu. Gehen Sie dazu wie folgt vor:

1. Drücken Sie die Tasten Alt + F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Erweitern Sie Projekt1, doppelklicken Sie auf ThisOutlookSession, um es zu öffnen, und fügen Sie anschließend den unten stehenden VBA-Code in das ThisOutlookSession-Fenster ein. Siehe Screenshot:

Der Screenshot der automatischen Hinzufügung von Kontakten aus einer Outlook-E-Mail beim Antworten mit VBA

VBA: Automatisches Kontakt hinzufügen aus einer E-Mail beim Antworten 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. Speichern Sie den VBA-Code und starten Sie Microsoft Outlook neu.

Ab sofort werden beim Antworten auf eine E-Mail in Outlook automatisch Absender und alle Empfänger dieser Nachricht als Kontakte im Standardkontaktordner des Standard-E-Mail-Kontos gespeichert.

Stapel hinzufügen mehrere Absender und Empfänger aus Ausgewählte Objekte mit Kutools zu Kontakten hinzufügen

Kutools für Outlook vereinfacht das Hinzufügen von Kontakten mit seiner Funktion Absender und mehrere Empfänger der ausgewählten E-Mails zu Kontakten hinzufügen. So können Sie Kontakte ganz einfach und gebündelt aus einer oder mehreren E-Mails hinzufügen.

👉 Arbeiten Sie intelligenter in Outlook!Herunterladen Kutools für Outlook, um Ihre Produktivität mit 100+ zeitsparenden Funktionen zu steigern – 30 Tage lang kostenlos!

Schritt 1. Laden Sie Kutools für Outlook herunter und installieren Sie es. Wechseln Sie anschließend in den Ordner „Gesendete Elemente“ (oder einen anderen Ordner) und wählen Sie die Nachrichten aus, deren Absender und Empfänger Sie zu Ihren Kontakten hinzufügen möchten.

Schritt 2. Klicken Sie auf Kutools > Kontakt hinzufügen > Absender und mehrere Empfänger der ausgewählten E-Mails zu Kontakten hinzufügen.

Schritt 3. Im Dialogfeld „Kontakte aus E-Mail hinzufügen“

Wählen Sie einen Kontaktordner aus: Wählen Sie den Ordner aus, in dem Sie die Kontakte speichern möchten.
Wählen Sie die Adressen aus: Standardmäßig sind alle Adressen ausgewählt – außer solche, die bereits vorhanden sind. Prüfen Sie die Liste und deaktivieren Sie die Kontrollkästchen für Adressen, die Sie nicht hinzufügen möchten.
Klicken Sie auf OK: Bestätigen Sie Ihre Auswahl und speichern Sie die Kontakte im gewählten Ordner.

Schritt 4. Es erscheint ein Dialogfeld, das die Anzahl der erfolgreich hinzugefügten Kontakte anzeigt. Klicken Sie auf OK, um das Dialogfeld zu schließen.

Hinweis: Doppelte E-Mail-Adresse werden nur einmal zu den Kontakten hinzugefügt.

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

🤖KUTOOLS AI:Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – einschließlich Beantworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …

📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …

📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …

🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...

👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...

👩🏼‍🤝‍👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...

Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Zum Kauf gehen

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)

Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!

✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint

Über das Paket ⬇ Das Paket herunterladen 💳 Das Paket kaufen