Cách sao chép hàng loạt tất cả các siêu liên kết trong nhiều email sang một email Outlook mới

Nếu bạn muốn sao chép tất cả các siêu liên kết trong nhiều email và sau đó gửi chúng trong một email mới cho người khác, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này. Nó có thể cho phép bạn có được điều này trong một lần.

Đôi khi, bạn có thể cần trích xuất và gửi các siêu liên kết từ nhiều email đã nhận đến một địa chỉ email cụ thể. Chẳng hạn, đồng nghiệp của bạn gửi cho bạn một số email có chứa các siêu liên kết liên quan đến một dự án đang diễn ra. Sau đó, bạn muốn trích xuất các siêu liên kết này vào một email và gửi email này đến địa chỉ email khác của bạn. Trong trường hợp này, most cách trực tiếp là sao chép từng siêu liên kết đến email mới từ các email nguồn. Nhưng, nó quá ngu ngốc và kém hiệu quả. Bây giờ, sau đây, chúng tôi sẽ chia sẻ cho bạn một phương pháp thuận tiện và nhanh chóng hơn.

Sao chép hàng loạt tất cả các siêu liên kết trong nhiều email sang một email mới

1. Ngay từ đầu, hãy khởi chạy ứng dụng Outlook.
2. Sau đó, chọn các email mà bạn muốn trích xuất các siêu liên kết.
3. Tiếp theo, kích hoạt trình soạn thảo Outlook VBA theo “Cách chạy mã VBA trong Outlook của bạn".
4. Trong cửa sổ soạn thảo VBA, bật tham chiếu đến “MS Word Object Library” theo “Cách thêm một đối tượng Library Tham khảo trong VBA".
5. Sau đó, đặt đoạn mã sau vào một mô-đun.

Sub CopyAllHyperlinksOfMultipleEmails()
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
 
    'Create a new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
           Set objMail = objSelection.Item(i)
 
           Set objMailDocument = objMail.GetInspector.WordEditor
 
           'Copy hyperlink to new mail body
           For Each objHyperlink In objMailDocument.Hyperlinks
               objHyperlink.Range.Copy
               objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
               objNewMailDocument.Range(0, 0).Select
               objNewMailDocument.Application.Selection.TypeParagraph
           Next
        End If
    Next
End Sub

6. Sau đó, nhấn “F5” để chạy macro này ngay bây giờ.
7. Cuối cùng, khi macro hoàn tất, một thư mới sẽ hiển thị, thư này chứa tất cả các siêu liên kết được trích xuất từ ​​​​các email đã chọn trước đó.

Đặc biệt chú ý đến các siêu liên kết không xác định

Điều đặc biệt cần thiết đối với người dùng Outlook là phải cẩn thận với tất cả các siêu liên kết đáng ngờ trong các email không xác định. Đó là bởi vì most trong số chúng có thể mang vi-rút, có thể trực tiếp dẫn đến hỏng dữ liệu Outlook. Rõ ràng, không ai sẵn sàng để mất dữ liệu Outlook của họ. Do đó, trong công việc hàng ngày, bạn nên đề phòng những mail lạ, đề phòng virus và phần mềm độc hại. Ngoài ra, nếu có thể, bạn nên nhờ một người có kinh nghiệm và đáng tin cậy Sửa chữa Outlook công cụ, chẳng hạn như DataNumen Outlook Repair. Nó chắc chắn sẽ giúp bạn rất nhiều khi tệp Outlook PST của bạn bị xâm phạm.

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 sql 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