複数のOutlook電子メールのすべてのハイパーリンクをExcelにすばやくエクスポートする方法

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

1通または複数通のメールに含まれるすべてのハイパーリンクを抽出する必要がある場合、それらを1つずつコピーするのは非効率的です。この記事では、複数のメールに含まれるすべてのハイパーリンクをExcelにすばやくエクスポートする方法をご紹介します。

送信したすべての電子メールにハイパーリンクを記録するなどの理由で、ハイパーリンクを抽出する必要があります。間違いなく、手動で抽出してコピーすることはお勧めできません。 VBAの使用など、はるかにスマートなアプローチを切望する必要があります。ここでは、そのようなVBAコードを共有します。これにより、多くの電子メールのすべてのハイパーリンクを簡単なクリックでExcelにエクスポートできます。

複数の電子メール内のすべてのハイパーリンクをExcelにエクスポートする

まず、通常どおりOutlookプログラムを起動してください。
次に、Outlookウィンドウで、「Alt + F11」キーボタンを押す必要があります。
すぐに、OutlookVBAエディターにアクセスできるようになります。
次に、「Microsoft Word オブジェクトライブラリ」と「Microsoft Excel オブジェクトライブラリ」を有効にする必要があります。「ツール」＞「参照設定」をクリックし、表示されるダイアログボックスで有効にしてください。
次に、未使用のモジュールを開く必要があります。このモジュールでは、以下のVBAコードをこのモジュールにコピーする必要があります。

Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportAllHyperlinksInMultipleEmailsToExcel()
    Dim objSelection As Selection
    Dim objMail As MailItem
    Dim objMailDocument As Document
    Dim objHyperlink As Hyperlink
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkbook = objExcelApp.Workbooks.Add
       Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
       objExcelApp.Visible = True
       objExcelWorkbook.Activate
 
       With objExcelWorksheet
            .Cells(1, 1) = "No."
            .Cells(1, 2) = "Displaying Text"
            .Cells(1, 3) = "Address"
            .Cells(1, 4) = "Source Mail"
      End With
 
      On Error Resume Next
      i = 0
      For Each objMail In objSelection
          objMail.Display
          Set objMailDocument = objMail.GetInspector.WordEditor
          If objMailDocument.Hyperlinks.Count > 0 Then
             For Each objHyperlink In objMailDocument.Hyperlinks
                 If InStr(objHyperlink.Address, "www.") > 0 Then
                    i = i + 1
                    Call ExportToExcel(i, objMail, objHyperlink)
                 End If
             Next
          End If
          objMail.Close olDiscard
      Next
 
      objExcelWorksheet.Columns("A:D").AutoFit
    End If
End Sub

Sub ExportToExcel(n As Long, objCurrentMail As MailItem, objCurrentHyperlink As Hyperlink)
    Dim nLastRow As Integer
 
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    objExcelWorksheet.Range("A" & nLastRow) = n
    objExcelWorksheet.Range("B" & nLastRow) = objCurrentHyperlink.TextToDisplay
    objExcelWorksheet.Range("C" & nLastRow) = objCurrentHyperlink.Address
    objExcelWorksheet.Range("D" & nLastRow) = objCurrentMail.Subject
End Sub

その後、現在のVBAエディタウィンドウを終了できます。
後で「Outlookオプション」にアクセスしてクイックアクセスツールバーをカスタマイズし、新しく追加されたマクロをクイックアクセスツールバーに追加します。
最後に、あなたはショットを撮ることができます：

まず、メールリストで、ハイパーリンクを抽出するメールを選択します。
次に、クイックアクセスツールバーのマクロボタンをクリックします。
マクロが終了すると、次の画像のようなExcelファイルが作成されます。

予期しないOutlookの問題を修正する

Outlook の問題は、何の前兆もなく時々発生することがあります。しかし、小さなエラーに関しては、Outlook は簡単な再起動や受信トレイ修復ツール。しかし、深刻な問題が発生した場合、内部手段は効果を発揮しません。この時点で、最後の手段は間違いなく、次のような、より信頼性が高く堅牢なツールです。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。破損したmdf と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com