Sådan batchføjes alle modtagere af flere e-mails til Outlook-kontakter

Nogle brugere længes efter en løsning, der giver dem mulighed for hurtigt at tilføje alle modtagere af flere e-mails til mappen Outlook-kontakter som nye kontakter. Så denne artikel vil introducere sådan en hurtig tilgang.

For eksempel modtager du nogle e-mails, der samtidig sendes til mange andre modtagere undtagen dig. Desuden er disse modtagere ikke gemt i dine Outlook-kontakter. I dette tilfælde vil du måske tilføje disse modtagere til Outlook-kontakter. For at opnå det i batches kan du bruge følgende måde.

Batch Tilføj alle modtagere af flere e-mails til Outlook-kontakter

1. Start med at starte dit Outlook-program.
2. Tryk derefter på "Alt + F11"-tasterne for at få adgang til Outlook VBA eidtor.
3. Kopier og indsæt derefter følgende kode i et tomt modul i vinduet "Microsoft Visual Basic for Applications".

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. Derefter skal du minimere eller afslutte dette vindue.
5. Senere bør du tilføje denne makro til Quick Access Toolbar med henvisning til "Sådan køres VBA-kode i din Outlook".
6. Endelig kan du prøve denne makro.

• Først skal du vælge flere e-mails, hvis modtagere skal føjes til kontakter.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Når makroen er færdig, kan du gå til standardmappen Kontakter. Disse modtagere er tilføjet.
• Den nye kontakt vil se ud som følgende skærmbillede.

Hold øje med alle risici omkring din Outlook

Selvom Outlook er udstyret med forskellige funktioner, er det sårbart over for mange faktorer, herunder menneskelige fejl, softwarefejl, hardwareproblemer og vira. Så det er nødvendigt for os at holde øje med alle potentielle risici omkring vores Outlook. Det er også nødvendigt at træffe tilstrækkelige forholdsregler. Det er fx bedre at få fat i et PST fixværktøj, som f.eks DataNumen Outlook Repair, Hvilket kan reparation PST problemer uden besvær.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com