Ako je možné hromadne pridať všetkých príjemcov viacerých e-mailov do kontaktov programu Outlook

Niektorí používatelia túžia po riešení, ktoré im umožní rýchlo pridať všetkých príjemcov viacerých e-mailov do priečinka Kontakty programu Outlook ako nové kontakty. Tento článok teda predstaví taký rýchly prístup.

Napríklad dostanete niekoľko e-mailov, ktoré sa súčasne odošlú mnohým ďalším príjemcom okrem vás. Okrem toho títo príjemcovia nie sú uložení vo vašich kontaktoch programu Outlook. V takom prípade môžete týchto príjemcov pridať do Kontaktov programu Outlook. Aby ste to dosiahli v dávkach, môžete použiť nasledujúci spôsob.

Hromadne pridajte všetkých príjemcov viacerých e-mailov do kontaktov programu Outlook

1. Najskôr spustite program Outlook.
2. Potom stlačte klávesovú skratku „Alt + F11“, aby ste sa dostali do eidtoru aplikácie Outlook VBA.
3. Následne v okne „Microsoft Visual Basic for Applications“ skopírujte a vložte nasledujúci kód do prázdneho modulu.

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. Potom toto okno minimalizujte alebo ukončite.
5. Neskôr by ste mali pridať toto makro na Panel s nástrojmi Rýchly prístup s odkazom na „Ako spustiť kód VBA v programe Outlook".
6. Nakoniec môžete vyskúšať toto makro.

• Najskôr vyberte viac e-mailov, ktorých príjemcov chcete pridať do kontaktov.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Po dokončení makra môžete prejsť do predvoleného priečinka Kontakty. Títo príjemcovia boli pridaní.
• Nový kontakt bude vyzerať ako na nasledujúcej snímke obrazovky.

Pozrite sa na všetky riziká spojené s vaším programom Outlook

Aj keď je Outlook vybavený rôznymi funkciami, je zraniteľný voči mnohým faktorom vrátane ľudských chýb, softvérových chýb, hardvérových problémov a vírusov. Je preto nevyhnutné, aby sme sledovali všetky potenciálne riziká spojené s našim programom Outlook. Rovnako je nevyhnutné urobiť dostatočné preventívne opatrenia. Lepšie je napríklad zohnať nástroj na opravu PST, ako je napr DataNumen Outlook Repair, ktorý môže opraviť PST problémy bez námahy.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S