Ältere Versionen von Outlook bieten eine sehr einfache Möglichkeit, einen Kontakt aus einer E-Mail-Nachricht zu erstellen: Klicken Sie mit der rechten Maustaste auf eine Adresse im Feld Von, An oder CC und wählen Sie Zu Outlook-Kontakten hinzufügen. Dadurch wird ein Kontakt mit dem Anzeigenamen und der E-Mail-Adresse erstellt, die Sie in ein neues Kontaktformular eingegeben haben.
Dies funktioniert in älteren Versionen von Outlook, ab Outlook 2013 jedoch nicht mehr, was sehr frustrierend ist.
Hier ist ein Beispiel für ein VBA-Makro, das einen Kontakt aus einer E-Mail-Nachricht in Outlook erstellt.
Bitte beachten Sie, dass Sie die Developer-Leiste in Outlook aktiviert und die notwendigen Zugriffsrechte haben müssen, um Makros zu erstellen und auszuführen.
Sub ErstellenKontaktAusEmail()
Dim objMail As Outlook.MailItem
Dim objContact As Outlook.ContactItem
Dim strEmail As String
'Wählt die aktuell ausgewählte E-Mail-Nachricht aus.
Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
strEmail = objMail.SenderEmailAddress
'Erstellt einen neuen Kontakt.
Set objContact = Application.CreateItem(olContactItem)
With objContact
.Email1Address = strEmail
.FullName = objMail.SenderName
.Body = "Kontakt erstellt aus der E-Mail: " & objMail.Subject
.Save
End With
Set objMail = Nothing
Set objContact = Nothing
End Sub
Das macht der Code:
- Der VBA-Code beginnt mit der Definition der Subroutine `ErstellenKontaktAusEmail`.
- Wir deklarieren drei Variablen, `objMail` als `Outlook.MailItem`, `objContact` als `Outlook.ContactItem` und `strEmail` als String
- Dann setzen wir `objMail` auf das aktuell ausgewählte Element in Outlook. Das bedeutet, wir arbeiten mit der E-Mail, die Sie gerade in Outlook ausgewählt haben
- Die E-Mail-Adresse des Absenders der ausgewählten E-Mail wird in der `strEmail` Variable gespeichert
- Danach wird ein neuer Kontakt erstellt (`Set objContact = Application.CreateItem(olContactItem)`)
- Im Block `With objContact` wird der neue Kontakt ausgefüllt: Die E-Mail-Adresse und der vollständige Name des Absenders der ausgewählten E-Mail werden gesetzt, und eine Notiz wird im Textkörper des Kontakts hinzugefügt, dass der Kontakt aus der bestimmten E-Mail erstellt wurde. Danach wird der Kontakt gespeichert.
– Zum Schluss setzen wir `objMail` und `objContact` auf `Nothing`, um den Speicher freizugeben.
Vergessen Sie nicht, dass Sie für die Ausführung von Makros in Outlook bestimmte Sicherheitseinstellungen ändern müssen. Bevor Sie dieses Makro oder ein anderes ausführen, stellen Sie sicher, dass Sie die Risiken verstehen und angemessene Vorsichtsmaßnahmen treffen.
