Outlookの電子メールからテキストファイルにすべてのURLをすばやく抽出する方法

Outlookソリューション 2025 年 9 月 29 日

本文に複数の重要なURLが含まれている電子メールを受信する場合は、すべてのURLをテキストファイルに正確に含めることができます。したがって、この記事では、それをすばやく取得する方法を紹介します。

通常、Outlookの電子メールからテキストファイルにURLを抽出するには、最初にテキストファイルを作成してから、手動でURLをファイルにコピーする必要があります。あなたはそれがあまりにも面倒だと思うかもしれず、より効果的な手段を探しています。もしそうなら、あなたは読むことができます。ここでは、電子メールからすべてのURLをバッチでエクスポートする方法を共有します。

電子メール内のすべてのURLをテキストファイルにすばやく抽出する

最初に、Outlookで、次のようにVBAエディターにアクセスします。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 修理と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com