Kuidas lisada Outlooki kontaktidesse kõik mitme meili adressaadid

Mõned kasutajad igatsevad lahendust, mis võimaldaks neil kiiresti lisada kõik mitme meili saajad Outlooki kontaktide kausta uute kontaktidena. Niisiis, see artikkel tutvustab sellist kiiret lähenemisviisi.

Näiteks saate mõned meilid, mis saadetakse samaaegselt paljudele teistele adressaatidele peale teie. Lisaks ei salvestata neid adressaate teie Outlooki kontaktidesse. Sel juhul võiksite need adressaadid lisada Outlooki kontaktidesse. Selle partiidena saavutamiseks võite kasutada järgmist viisi.

Pakkides lisage Outlooki kontaktidesse kõik mitme meili adressaadid

1. Alustuseks käivitage Outlooki programm.
2. Seejärel vajutage Outlook VBA eidtorile juurdepääsuks klahvikombinatsiooni Alt + F11.
3. Seejärel kopeerige ja kleepige aknas „Microsoft Visual Basic for Applications” järgmine kood tühja moodulisse.

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. Pärast seda minimeerige see aken või väljuge sellest.
5. Hiljem peaksite selle makro lisama kiirpääsuribale viitega "Kuidas Outlookis VBA-koodi käivitada".
6. Lõpuks saate seda makrot proovida.

• Esmalt valige mitu e-kirja, mille adressaadid lisada kontaktidesse.
• Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.
• Kui makro on lõppenud, saate minna vaikekausta Kontaktid. Need saajad on lisatud.
• Uus kontakt näeb välja nagu järgmine ekraanipilt.

Vaadake kõiki oma Outlookiga seotud riske

Kuigi Outlook on varustatud mitmesuguste funktsioonidega, on see haavatav paljude tegurite, sealhulgas inimlike vigade, tarkvararikete, riistvaraprobleemide ja viiruste suhtes. Seega peame silmas pidama kõiki meie Outlookiga seotud potentsiaalseid riske. Samuti on vajalik piisavate ettevaatusabinõude rakendamine. Näiteks on parem hankida mõni PST-parandustööriist, näiteks DataNumen Outlook Repair, mis võib remont PST probleeme vaevata.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom