Kaip į paketą įtraukti visus kelių el. laiškų gavėjus į „Outlook“ kontaktus

Kai kurie vartotojai trokšta sprendimo, kuris leistų greitai įtraukti visus kelių el. laiškų gavėjus į „Outlook“ kontaktų aplanką kaip naujus kontaktus. Taigi, šiame straipsnyje bus pristatytas toks greitas metodas.

Pavyzdžiui, jūs gaunate kai kuriuos el. laiškus, kurie vienu metu siunčiami daugeliui kitų gavėjų, išskyrus jus. Be to, šie gavėjai nėra saugomi jūsų „Outlook“ kontaktuose. Tokiu atveju galbūt norėsite įtraukti šiuos gavėjus prie „Outlook“ kontaktų. Norėdami tai pasiekti partijomis, galite naudoti šį būdą.

Paketas pridėkite visus kelių el. laiškų gavėjus į „Outlook“ kontaktus

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada paspauskite „Alt + F11“ klavišų mygtukus, kad pasiektumėte „Outlook VBA eidtor“.
3. Tada lange „Microsoft Visual Basic for Applications“ nukopijuokite ir įklijuokite šį kodą į tuščią 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. Po to sumažinkite arba išeikite iš šio lango.
5. Vėliau šią makrokomandą turėtumėte įtraukti į greitosios prieigos įrankių juostą su nuoroda į „Kaip paleisti VBA kodą „Outlook“.".
6. Galiausiai galite išbandyti šią makrokomandą.

• Iš pradžių pasirinkite kelis el. laiškus, kurių gavėjus norite įtraukti į kontaktus.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Kai makrokomanda bus baigta, galite pereiti į numatytąjį kontaktų aplanką. Tie gavėjai buvo pridėti.
• Naujas kontaktas atrodys taip, kaip toliau pateikta ekrano kopija.

Atsižvelkite į visas rizikas, susijusias su jūsų „Outlook“.

Nors "Outlook" yra aprūpinta įvairiomis funkcijomis, ji yra pažeidžiama daugelio veiksnių, įskaitant žmogaus klaidas, programinės įrangos klaidas, aparatinės įrangos problemas ir virusus. Taigi, mums būtina stebėti visas galimas su „Outlook“ susijusias rizikas. Be to, būtina imtis pakankamų atsargumo priemonių. Pavyzdžiui, geriau įsigyti PST taisymo įrankį, pvz DataNumen Outlook Repair, kuri gali remontas PST problemų be vargo.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontuoti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com