So fügen Sie alle Empfänger mehrerer E-Mails stapelweise zu Outlook-Kontakten hinzu

Manche Nutzer sehnen sich nach einer Lösung, mit der sie alle Empfänger mehrerer E-Mails schnell als neue Kontakte zum Outlook-Kontaktordner hinzufügen können. In diesem Artikel wird ein solch schneller Ansatz vorgestellt.

Beispielsweise erhalten Sie einige E-Mails, die gleichzeitig an viele andere Empfänger außer Ihnen gesendet werden. Darüber hinaus werden diese Empfänger nicht in Ihren Outlook-Kontakten gespeichert. In diesem Fall möchten Sie diese Empfänger möglicherweise zu den Outlook-Kontakten hinzufügen. Um dies stapelweise zu erreichen, können Sie die folgende Methode verwenden.

Fügen Sie alle Empfänger mehrerer E-Mails stapelweise zu Outlook-Kontakten hinzu

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Drücken Sie dann die Tasten „Alt + F11“, um auf den Outlook VBA-Editor zuzugreifen.
3. Anschließend kopieren Sie im Fenster „Microsoft Visual Basic für Applikationen“ den folgenden Code und fügen ihn in ein leeres Modul ein.

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. Danach minimieren oder schließen Sie dieses Fenster.
5. Später sollten Sie dieses Makro zur Symbolleiste für den Schnellzugriff hinzufügen und dabei auf „So führen Sie VBA-Code in Outlook aus".
6. Schließlich können Sie dieses Makro ausprobieren.

• Wählen Sie zunächst mehrere E-Mails aus, deren Empfänger zu den Kontakten hinzugefügt werden sollen.
• Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf die Makroschaltfläche.
• Wenn das Makro abgeschlossen ist, können Sie zum Standardordner „Kontakte“ wechseln. Diese Empfänger wurden hinzugefügt.
• Der neue Kontakt sieht wie im folgenden Screenshot aus.

Achten Sie auf alle Risiken in Ihrem Outlook

Obwohl Outlook über vielfältige Funktionen verfügt, ist es anfällig für viele Faktoren, darunter menschliches Versagen, Softwarefehler, Hardwareprobleme und Viren. Daher ist es für uns notwendig, alle potenziellen Risiken rund um unseren Ausblick im Auge zu behalten. Außerdem ist es notwendig, ausreichende Vorsichtsmaßnahmen zu treffen. Beispielsweise ist es besser, sich ein PST-Reparaturtool zu besorgen, z DataNumen Outlook Repair, Denen PST reparieren Probleme mit müheloser Leichtigkeit.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX