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

Wie füge ich automatisch Kontakte aus einer E-Mail hinzu, wenn ich in Outlook antworte?

In Outlook 2010 können Sie das aktivieren Vorgeschlagene Kontakte Funktion und fügen automatisch Empfänger als neue Kontakte hinzu. Dies jedoch Vorgeschlagene Kontakte Die Funktion wird in Outlook 2013 und 2016 nicht unterstützt. Hier werde ich eine VBA einführen, mit der Absender und Empfänger einer E-Mail automatisch als neue Kontakte hinzugefügt werden, wenn in Outlook geantwortet wird.

Fügen Sie automatisch Kontakte aus einer Outlook-E-Mail hinzu, wenn Sie mit VBA antworten

Registerkarte "Office" - Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie die Arbeit erheblich ...
Kutools für Outlook - Bringt 100 leistungsstarke erweiterte Funktionen in Microsoft Outlook
  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Regeln; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten, wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen im Mail-Gespräch; Antworten Sie auf viele E-Mails gleichzeitig. Begrüßung automatisch hinzufügen bei der Antwort; Automatisches Hinzufügen von Datum und Uhrzeit zum Betreff ...
  • Anbaugeräte: Automatisch trennen, Alle komprimieren, Alle umbenennen, Alle automatisch speichern ... Kurzbericht, Ausgewählte Mails zählen, Doppelte Mails und Kontakte entfernen ...
  • Mehr als 100 erweiterte Funktionen werden Löse die meisten deiner Probleme in Outlook 2021 - 2010 oder Office 365. 60-tägige kostenlose Testversion mit vollem Funktionsumfang.

Fügen Sie automatisch Kontakte aus einer Outlook-E-Mail hinzu, wenn Sie mit VBA antworten

Dieser VBA fügt den Absender und alle Empfänger einer E-Mail automatisch als neue Kontakte hinzu, wenn Sie die E-Mail in Outlook beantworten. Bitte gehen Sie wie folgt vor:

1. Drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Erweitern Sie das Projekt1 und doppelklicken Sie DieseOutlookSession Um es zu öffnen, fügen Sie den folgenden VBA-Code in das Fenster ThisOutlookSession ein. Siehe Screenshot:

VBA: Beim Hinzufügen in Outlook automatisch Kontakte aus einer E-Mail hinzufügen

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.

Wenn Sie von nun an eine E-Mail in Outlook beantworten, werden der Absender dieser E-Mail und alle Empfänger automatisch als neue Kontakte im Standardkontaktordner des Standard-E-Mail-Kontos gespeichert.


Verwandte Artikel


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (1)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, danke für diesen Code.
Aber es dupliziert (zumindest in meinem Fall) die Kontakte so oft, wie ich ihnen schreibe. Irgendeine Idee?
Übrigens ist in den Outlook-Optionen das Kontrollkästchen "Beim Speichern eines neuen Kontakts nach Duplikaten suchen" aktiviert.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL