Hur man batchlägger till alla mottagare av flera e-postmeddelanden till Outlook-kontakter

Vissa användare längtar efter en lösning som gör att de snabbt kan lägga till alla mottagare av flera e-postmeddelanden till mappen Outlook-kontakter som nya kontakter. Så den här artikeln kommer att introducera ett så snabbt tillvägagångssätt.

Du får till exempel en del e-postmeddelanden som samtidigt skickas till många andra mottagare förutom dig. Dessutom lagras inte dessa mottagare i dina Outlook-kontakter. I det här fallet kanske du vill lägga till dessa mottagare i Outlook-kontakter. För att uppnå det i omgångar kan du använda följande sätt.

Batch Lägg till alla mottagare av flera e-postmeddelanden till Outlook-kontakter

1. Till att börja med startar du ditt Outlook-program.
2. Tryck sedan på "Alt + F11" knapparna för att komma åt Outlook VBA eidtor.
3. Därefter, i fönstret "Microsoft Visual Basic for Applications", kopiera och klistra in följande kod i en tom modul.

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. Efter det, minimera eller avsluta det här fönstret.
5. Senare borde du lägga till detta makro i verktygsfältet Snabbåtkomst med hänvisning till "Hur du kör VBA-kod i din Outlook".
6. Slutligen kan du prova detta makro.

• Välj först flera e-postmeddelanden vars mottagare ska läggas till i kontakter.
• Klicka sedan på makroknappen i verktygsfältet Snabbåtkomst.
• När makrot är klart kan du gå till standardmappen Kontakter. Dessa mottagare har lagts till.
• Den nya kontakten kommer att se ut som följande skärmdump.

Håll utkik efter alla risker kring din Outlook

Även om Outlook kommer med olika funktioner, är det sårbart för många faktorer, inklusive mänskliga fel, programvarufel, hårdvaruproblem och virus. Så det är nödvändigt för oss att hålla utkik efter alla potentiella risker kring vår Outlook. Det är också nödvändigt att vidta tillräckliga försiktighetsåtgärder. Det är till exempel bättre att få tag i ett PST-fixverktyg, som t.ex DataNumen Outlook Repair, som kan reparera PST problem utan problem.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com