如果您想複製多封電子郵件中的所有超鏈接,然後通過新電子郵件將它們發送給其他人,您可以使用本文介紹的方法。 它能讓你一口氣搞定。
有時,您可能需要從多封收到的電子郵件中提取超連結並發送到特定的電子郵件地址。例如,您的同事發送了一些包含與正在進行的專案相關的超連結的電子郵件。這時,您希望將這些超連結提取到一封電子郵件中,然後將這封郵件發送到您的另一個電子郵件地址。在這種情況下,最直接的方法是從來源郵件中逐一複製超連結到新郵件中。但是,這種方法既笨拙又低效。接下來,我們將為您介紹一種更方便快速的方法。
批量複製多封郵件中的所有超鏈接到新郵件
- 首先,啟動Outlook應用程序。
- 然後,選擇要從中提取超鏈接的電子郵件。

- 接下來,根據“觸發Outlook VBA編輯器如何在Outlook中運行VBA代碼“。
- 在 VBA 編輯器視窗中,請依照「…」的說明啟用「MS Word 物件庫」的參考。如何在 VBA 中新增物件庫引用“。
- 稍後,將以下代碼放入模塊中。
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
- 之後,按“F5”立即運行此宏。
- 最後,當宏完成時,將顯示一封新郵件,其中包含從先前選擇的電子郵件中提取的所有超鏈接。
特別注意未知的超鏈接
對於 Outlook 用戶來說,尤其需要警惕未知郵件中的所有可疑超連結。因為大多數此類郵件可能攜帶病毒,直接導致 Outlook 資料損壞。顯然,沒有人願意丟失 Outlook 資料。因此,在日常工作中,您應該密切注意未知郵件,防範病毒和惡意軟體。此外,如果可能,建議您尋求經驗豐富且可靠的專業人士的協助。 Outlook修復 工具,例如 DataNumen Outlook Repair. 當您的 Outlook PST 文件遭到破壞時,它肯定會對您有很大幫助。
作者簡介:
Shirley Zhang是的數據恢復專家 DataNumen,Inc.是數據恢復技術的全球領導者,包括 修復SQL 和Outlook修復軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM

