當收到一封電子郵件，該郵件的正文中包含多個重要URL時，您可能需要將所有URL精確到文本文件。 因此，在本文中，我們將介紹一種快速獲取它的方法。
通常，要將URL從Outlook電子郵件中提取到文本文件，必須首先創建一個文本文件，然後將URL手動複製到該文件。 您可能認為這太麻煩了，正在尋求一種更有效的方法。 如果是這樣，您可以繼續閱讀。 在這裡，我們將分享一種批量導出電子郵件中所有URL的方法。
快速將電子郵件中的所有URL提取到文本文件
- 首先，在Outlook中，根據“如何在Outlook中運行VBA代碼“。
- 然後，將以下VBA代碼複製並粘貼到未使用的模塊中。
Sub ExportURLsFromEmail2TextFile ()
Dim objMail As Outlook.MailItem
Dim objRegExp As RegExp
Dim strFolder As String
Dim objMatchCollection As MatchCollection
Dim objMatch As Match
Dim strURL As String
'Get the source mail
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
'Get URLs using regular expression
Set objRegExp = New RegExp
With objRegExp
.Pattern = "(https?[:]//([0-9a-z=\?:/\.&-^!#$;_])*)"
.Global = True
.IgnoreCase = True
End With
If objRegExp.test(objMail.Body) Then
'Create a new text file
strTextFile = "E:\Hyperlinks (" & objMail.Subject & ").txt"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
objTextFile.WriteLine ("Extracted URLs:" & vbCrLf & vbCrLf)
Set objMatchCollection = objRegExp.Execute(objMail.Body)
i = 0
For Each objMatch In objMatchCollection
strURL = objMatch.SubMatches(0)
i = i + 1
'Write the URLs to the text file
objTextFile.WriteLine (i & ". " & strURL & vbCrLf)
Next
objTextFile.Close
'Open the text file
Shell ("notepad.exe " & strTextFile)
End If
End Sub
- 之後，將此宏添加到快速訪問工具欄或功能區。
- 最後，請按照以下步驟嘗試。
- 首先，選擇或打開一封電子郵件。
- 然後，單擊快速訪問工具欄或功能區中的宏按鈕。
- 一次，將打開一個新的純文本文件，您可以在其中看到所有提取的UTL，如以下屏幕截圖所示。
當心電子郵件中的危險鏈接
每天，您都可以在Outlook中接收各種電子郵件。 有些來自已知的聯繫人，有些可能來自未知的發件人。 面對它們，您需要當心未知電子郵件，其中一些可能帶有可疑鏈接。 如果您打開鏈接，則您的Outlook文件可能已感染病毒。 然後，您不僅需要通過防病毒軟件殺死病毒，而且還必須通過有效的工具修復受害的PST文件。 Outlook修復 實用程序，例如 DataNumen Outlook Repair.
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL Server 修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM