Jak grupowo dodać wszystkich odbiorców wielu wiadomości e-mail do kontaktów programu Outlook

Niektórzy użytkownicy tęsknią za rozwiązaniem, które pozwoli im szybko dodać wszystkich odbiorców wielu wiadomości e-mail do folderu Kontakty programu Outlook jako nowe kontakty. Tak więc ten artykuł wprowadzi takie szybkie podejście.

Na przykład otrzymujesz wiadomości e-mail, które są jednocześnie wysyłane do wielu innych odbiorców oprócz Ciebie. Co więcej, ci odbiorcy nie są przechowywani w kontaktach programu Outlook. W takim przypadku możesz chcieć dodać tych odbiorców do kontaktów programu Outlook. Aby osiągnąć to partiami, możesz skorzystać z następującego sposobu.

Wsadowo dodaj wszystkich odbiorców wielu wiadomości e-mail do kontaktów programu Outlook

1. Na początek uruchom program Outlook.
2. Następnie naciśnij klawisze „Alt + F11”, aby uzyskać dostęp do eidtora Outlook VBA.
3. Następnie w oknie „Microsoft Visual Basic for Applications” skopiuj i wklej następujący kod do pustego modułu.

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. Następnie zminimalizuj lub zamknij to okno.
5. Później powinieneś dodać to makro do paska narzędzi szybkiego dostępu w odniesieniu do „Jak uruchomić kod VBA w swoim Outlooku".
6. Wreszcie możesz wypróbować to makro.

• Najpierw wybierz wiele e-maili, których odbiorców chcesz dodać do kontaktów.
• Następnie kliknij przycisk makra na pasku narzędzi Szybki dostęp.
• Po zakończeniu działania makra możesz przejść do domyślnego folderu Kontakty. Ci odbiorcy zostali dodani.
• Nowy kontakt będzie wyglądał jak na poniższym zrzucie ekranu.

Zwróć uwagę na wszystkie zagrożenia związane z Twoim programem Outlook

Chociaż Outlook jest wyposażony w różnorodne funkcje, jest podatny na wiele czynników, w tym błędy ludzkie, usterki oprogramowania, problemy ze sprzętem i wirusy. Dlatego konieczne jest, abyśmy zwracali uwagę na wszystkie potencjalne zagrożenia związane z naszą prognozą. Konieczne jest również podjęcie odpowiednich środków ostrożności. Na przykład lepiej jest zdobyć narzędzie do naprawy plików PST, takie jak DataNumen Outlook Repair, Który może naprawa PST problemy z łatwością.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com