Batch Voeg alle ontvangers van meerdere e-mails toe aan Outlook-contactpersonen

Sommige gebruikers verlangen naar een oplossing waarmee ze snel alle ontvangers van meerdere e-mails als nieuwe contacten kunnen toevoegen aan de map Outlook-contactpersonen. Dit artikel introduceert dus zo'n snelle aanpak.

U ontvangt bijvoorbeeld enkele e-mails die tegelijkertijd naar veel andere ontvangers worden verzonden, behalve u. Bovendien worden deze ontvangers niet opgeslagen in uw Outlook-contactpersonen. In dat geval wilt u deze ontvangers wellicht toevoegen aan Outlook-contactpersonen. Om het in batches te bereiken, kunt u de volgende manier gebruiken.

Batch Voeg alle ontvangers van meerdere e-mails toe aan Outlook-contactpersonen

1. Start om te beginnen uw Outlook-programma.
2. Druk vervolgens op de toets "Alt + F11" om toegang te krijgen tot Outlook VBA eidtor.
3. Kopieer en plak vervolgens in het venster “Microsoft Visual Basic for Applications” de volgende code in een lege module.

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. Minimaliseer of sluit dit venster daarna.
5. Later zou u deze macro aan de werkbalk Snelle toegang moeten toevoegen met verwijzing naar “Hoe u VBA-code in uw Outlook uitvoert'.
6. Eindelijk kunt u deze macro proberen.

• Selecteer eerst meerdere e-mails waarvan de ontvangers moeten worden toegevoegd aan contacten.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• Wanneer de macro is voltooid, kunt u naar de standaardmap Contacten gaan. Die ontvangers zijn toegevoegd.
• Het nieuwe contact ziet eruit als de volgende schermafbeelding.

Pas op voor alle risico's in uw Outlook

Hoewel Outlook is uitgerust met diverse functies, is het kwetsbaar voor vele factoren, waaronder menselijke fouten, softwarefouten, hardwareproblemen en virussen. Het is dus noodzakelijk dat we alle mogelijke risico's rondom onze Outlook in de gaten houden. Ook het nemen van voldoende voorzorgsmaatregelen is een noodzaak. U kunt bijvoorbeeld beter een PST-fixtool aanschaffen, zoals DataNumen Outlook Repair, welke kan reparatie PST problemen met moeiteloos gemak.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com