Cách thêm hàng loạt tất cả người nhận nhiều email vào danh bạ Outlook

Một số người dùng mong đợi một giải pháp cho phép họ nhanh chóng thêm tất cả những người nhận nhiều email vào thư mục Danh bạ Outlook dưới dạng danh bạ mới. Vì vậy, bài viết này sẽ giới thiệu một cách tiếp cận nhanh chóng như vậy.

Ví dụ: bạn nhận được một số email được gửi đồng thời tới nhiều người nhận khác ngoại trừ bạn. Hơn nữa, những người nhận này không được lưu trữ trong Danh bạ Outlook của bạn. Trong trường hợp này, bạn có thể muốn thêm những người nhận này vào Danh bạ Outlook. Để đạt được nó theo đợt, bạn có thể sử dụng cách sau.

Thêm hàng loạt tất cả người nhận nhiều email vào danh bạ Outlook

1. Để bắt đầu, hãy khởi chạy chương trình Outlook của bạn.
2. Sau đó, nhấn các nút phím “Alt + F11” để truy cập eidtor Outlook VBA.
3. Sau đó, trong cửa sổ “Microsoft Visual Basic for Application”, hãy sao chép và dán đoạn mã sau vào một mô-đun trống.

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. Sau đó, thu nhỏ hoặc thoát khỏi cửa sổ này.
5. Sau đó, bạn nên thêm macro này vào Thanh công cụ truy cập nhanh có tham chiếu đến “Cách chạy mã VBA trong Outlook của bạn".
6. Cuối cùng, bạn có thể thử macro này.

• Đầu tiên, hãy chọn nhiều email mà người nhận sẽ được thêm vào danh bạ.
• Sau đó, bấm vào nút macro trong Thanh công cụ truy cập nhanh.
• Khi macro kết thúc, bạn có thể chuyển tới thư mục Danh bạ mặc định. Những người nhận đó đã được thêm vào.
• Liên hệ mới sẽ trông giống như ảnh chụp màn hình sau.

Xem xét mọi rủi ro xung quanh triển vọng của bạn

Mặc dù Outlook được ưu đãi với các tính năng đa dạng nhưng nó dễ bị ảnh hưởng bởi nhiều yếu tố bao gồm lỗi của con người, lỗi phần mềm, sự cố phần cứng và vi-rút. Vì vậy, chúng ta cần phải để mắt tới mọi rủi ro tiềm ẩn xung quanh Outlook của mình. Ngoài ra, thực hiện các biện pháp phòng ngừa đầy đủ là một vấn đề cần thiết. Ví dụ: tốt hơn hết bạn nên sử dụng công cụ sửa lỗi PST, chẳng hạn như DataNumen Outlook Repair, có thể sửa chữa PST vấn đề một cách dễ dàng dễ dàng.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm