Slik legger du til alle mottakere av flere e-poster i Outlook-kontakter

Noen brukere lengter etter en løsning som lar dem raskt legge til alle mottakerne av flere e-poster til Outlook-kontaktmappen som nye kontakter. Så denne artikkelen vil introdusere en så rask tilnærming.

For eksempel mottar du noen e-poster som samtidig sendes til mange andre mottakere bortsett fra deg. Dessuten er disse mottakerne ikke lagret i Outlook-kontaktene dine. I dette tilfellet vil du kanskje legge til disse mottakerne i Outlook-kontakter. For å oppnå det i partier, kan du bruke følgende måte.

Batch Legg til alle mottakere av flere e-poster til Outlook-kontakter

1. Til å begynne med, start Outlook-programmet.
2. Deretter trykker du på "Alt + F11"-tastene for å få tilgang til Outlook VBA eidtor.
3. Deretter, i "Microsoft Visual Basic for Applications"-vinduet, kopierer og limer du inn følgende kode 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. Etter det, minimer eller avslutt dette vinduet.
5. Senere bør du legge denne makroen til Quick Access Toolbar med referanse til "Hvordan kjøre VBA-kode i Outlook".
6. Til slutt kan du prøve denne makroen.

• Først velger du flere e-poster hvis mottakere skal legges til i kontakter.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Når makroen er ferdig, kan du gå til standard Kontakter-mappen. Disse mottakerne er lagt til.
• Den nye kontakten vil se ut som følgende skjermbilde.

Se opp alle risikoer rundt Outlook

Selv om Outlook er utstyrt med forskjellige funksjoner, er det sårbart for mange faktorer, inkludert menneskelige feil, programvarefeil, maskinvareproblemer og virus. Så det er nødvendig for oss å holde øye med alle potensielle risikoer rundt Outlook. Det er også nødvendig å ta tilstrekkelige forholdsregler. For eksempel er det bedre å få tak i et PST-fikseverktøy, som f.eks DataNumen Outlook Repair, som kan reparere PST problemer med uanstrengt letthet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med