Outlook メール抽出：氏名、会社名、数値、メールアドレスなどの重要な情報を抽出

現代のスピーディーなメールコミュニケーションにおいて、メールから氏名、メールアドレス、数値（例：価格や電話番号）、会社名などの重要な情報を素早く抽出することは極めて重要です。特に長いメールを扱う際には、こうした情報を抽出することで、内容をより迅速に把握できるだけでなく、業務効率と正確性も大幅に向上します。本チュートリアルでは、メール情報抽出の3 つの方法——手動抽出、VBA による半自動抽出、およびKUTOOLS AI による完全自動抽出——をご紹介し、皆様のニーズに最適な方法をぜひ見つけていただけるようお手伝いします。

従来型抽出 – 手動

メールからデータを手動でコピーアンドペーストする方法はシンプルですが、時間がかかりやすく、ミスも発生しやすいです。

抽出用の KUTOOLS AI – 完全自動化

Kutools for Outlook の AI アシスタントなら、ワンクリックでデータを自動抽出可能。高速・高精度で、誰でも簡単に使えます。

抽出用の VBA – 半自動化

VBA スクリプトを使って抽出作業を部分的に自動化できますが、コーディングスキルが必要で、カスタマイズ性も限られています。

---

従来型抽出 – 手動

---

手動抽出は最も基本的な方法で、ユーザーがメールを開き、氏名やメールアドレス、電話番号などの重要な情報を自ら探し出して、Excel やその他のドキュメントにコピーアンドペーストする必要があります。

手順1：対象のメールを開いて、その内容を確認します。

手順2：Ctrl+Cキーを押してコピーするには、まず氏名やメールアドレス、電話番号などの重要な情報を手動で探し、選択してください。

手順3：Excel や他のドキュメントに移動して、Ctrl+Vキーを押して貼り付けましょう。

---

抽出用の KUTOOLS AI – 完全自動化

---

Kutools for OutlookのAI アシスタントは、完全自動化されたソリューションを提供します。最新の AI 技術を活用すれば、ワンクリックで氏名や会社名、電話番号、メールアドレスなどの重要な情報を瞬時に抽出可能！

手順1：Kutools for Outlook をインストールし、Outlook を開いて、Kutools > AIをクリックして KUTOOLS AI 機能を有効にします。

手順2：KUTOOLS AI ペインに移動し、抽出タブをクリックしてから生成ボタンをクリックすると、AI が現在のメールから情報を抽出します。

すべての重要な情報が抽出され、ペインに一覧表示されます。

手順3 - 1：再生成ボタンをクリックして、AI に新たな重要な情報を抽出させましょう。内容が十分でない場合に最適です！

手順3 - 2：内容にご満足いただけましたら、コピーボタンをクリックして抽出した内容をコピーし、お好きな場所に貼り付けてください。

カスタマイズ性

ユーザーは、抽出する情報の種類（例：氏名、会社名、電話番号）を自由にカスタマイズできます。

スキルライブラリ管理ボタンをクリックし、抽出スキルを探して、追加ボタンをクリック。その後、カスタムリクエストを入力して保存してください。

---

抽出用の VBA – 半自動化

---

VBA（Visual Basic for Applications）は半自動化の手法で、ユーザーがスクリプトを記述することで、メールから特定の情報を抽出できます。

注：ここで提供される VBA は、電子メールアドレスから数値のみを抽出し、その結果をダイアログボックスに表示しますが、コピー機能は含まれていません。

手順1：対象のメールを開いて、その内容を確認します。

手順2：Alt+F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開き、挿入 > モジュールをクリックして新しいモジュールを作成します。

手順3：以下の VBA コードをコピーして、新しいモジュールに貼り付けます。

VBA：電子メールアドレスを抽出すると数値の現在のメールから追加

Sub ExtractDataFromCurrentEmail()
'UpdateByKutools
    Dim xCurEmail As Object
    Dim xEmailBody As String
    Dim xEmailPattern As String
    Dim xPhonePattern As String
    Dim xMatches As Object
    Dim xMatch As Variant
    Dim xExtractedData As String
    On Error Resume Next
    'Get the currently selected email
    If Application.ActiveWindow = Inspector Then
        Set xCurEmail = Application.ActiveInspector.CurrentItem
    Else
        Set xCurEmail = Application.ActiveExplorer.Selection.Item(1)
    End If
    'Check if the selected item is an email
    If xCurEmail.Class <> olMail Then
        MsgBox "Please select an email to extract data.", vbExclamation
        Exit Sub
    End If
    'Extract the email body
    xEmailBody = xCurEmail.Body
    'Define regex patterns for email addresses, and phone numbers
    xEmailPattern = "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b"
    xPhonePattern = "\d+"
    'Initialize the extracted data string
    xExtractedData = "Extracted Data:" & vbCrLf & vbCrLf
    'Extract email addresses using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xEmailPattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Email Addresses:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
        xExtractedData = xExtractedData & vbCrLf
    Else
        xExtractedData = xExtractedData & "No email addresses found." & vbCrLf & vbCrLf
    End If
    'Extract phone numbers using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xPhonePattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Numbers:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
    Else
        xExtractedData = xExtractedData & "No numbers found." & vbCrLf
    End If
    'Display the extracted data in a message box
    MsgBox xExtractedData, vbInformation, "Extracted Data"
End Sub

Function ExtractUsingRegex(Text As String, Pattern As String) As Object
    Dim xRegex As Object
    Set xRegex = CreateObject("VBsrcipt.RegExp")
    With xRegex
        .Global = True
        .IgnoreCase = True
        .Pattern = Pattern
    End With
    Set ExtractUsingRegex = xRegex.Execute(Text)
End Function

手順4：実行ボタンをクリックするかF5キーを押した後、「実行」ボタンをクリックしてコードを実行します。

抽出された情報が表示されるダイアログボックスが開きます。

---

手法の比較

---

方法	手動抽出	Kutools	VBA
使いやすさ	シンプル	非常に簡単	中程度
最適な用途	たまに使う場合	頻繁または大規模なタスク	上級ユーザー
カスタマイズ性	なし	高度にカスタマイズ可能	限定的（コーディングが必要）
抽出速度	遅い	速い	中程度
精度	低	高	中程度

たまに情報抽出を行う場合でも、大量のメールを頻繁に処理する場合でも、本チュートリアルで紹介した3 つの方法が皆様のニーズにお応えします。高速・高精度かつコーディング不要のソリューションをお探しの方には、Kutools for Outlook の AI アシスタントが最適です。今すぐダウンロードして無料トライアルをお試しください。ワンクリックでメールを抽出する快適さをぜひ体験してください！

関連記事

• Outlook 文法チェッカー：誤りのないメールを作成
• AI の力を活用してOutlook で簡単にメール返信
• メール作成をシンプルに：Outlook での AI 活用が簡単に
• Outlook メールの AI 要約