Jak dávkově přidat všechny příjemce více e-mailů do kontaktů aplikace Outlook

Někteří uživatelé touží po řešení, které jim umožní rychle přidat všechny příjemce více e-mailů do složky Kontakty aplikace Outlook jako nové kontakty. Tento článek tedy představí takový rychlý přístup.

Například obdržíte některé e-maily, které jsou současně odeslány mnoha dalším příjemcům kromě vás. Navíc tito příjemci nejsou uloženi ve vašich kontaktech aplikace Outlook. V tomto případě můžete chtít přidat tyto příjemce do kontaktů aplikace Outlook. Chcete-li toho dosáhnout v dávkách, můžete použít následující způsob.

Dávkové přidání všech příjemců více e-mailů do kontaktů aplikace Outlook

1. Nejprve spusťte program Outlook.
2. Poté stisknutím kláves „Alt + F11“ otevřete Outlook VBA eidtor.
3. Následně v okně „Microsoft Visual Basic for Applications“ zkopírujte a vložte následující kód do prázdného 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. Poté toto okno minimalizujte nebo opusťte.
5. Později byste toto makro měli přidat na panel nástrojů Rychlý přístup s odkazem na „Jak spustit kód VBA ve vašem Outlooku".
6. Nakonec můžete toto makro vyzkoušet.

• Nejprve vyberte více e-mailů, jejichž příjemce chcete přidat do kontaktů.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Po dokončení makra můžete přejít do výchozí složky Kontakty. Tito příjemci byli přidáni.
• Nový kontakt bude vypadat jako na následujícím snímku obrazovky.

Podívejte se na všechna rizika kolem vašeho Outlooku

Přestože je aplikace Outlook vybavena různými funkcemi, je zranitelná vůči mnoha faktorům, včetně lidských chyb, softwarových chyb, problémů s hardwarem a virů. Je tedy nutné, abychom dávali pozor na všechna potenciální rizika kolem našeho výhledu. Nezbytností je také provedení dostatečných opatření. Například je lepší získat nástroj pro opravu PST, jako je např DataNumen Outlook Repair, které mohou opravit PST problémy s lehkostí bez námahy.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com