Outlook VBAでメール本文を分割する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、OutlookのVBAを使って、メールの本文を分割する方法についてお話しします。パソコンやスマホの操作が少し苦手な方でも、安心して取り組める内容にしていますので、ぜひ最後までご覧ください。

VBAとは？そして、なぜOutlookで使うのか？
メール本文を分割する必要性とは？
VBAでメール本文を分割する基本的な方法
実際の使用例メール本文から特定の情報を抽出する
よくある質問や疑問
1. Q1: VBAコードを実行しても何も起こらないのですが、どうすれば良いですか？
2. Q2: コードを実行すると「オブジェクトが設定されていません」というエラーが出ます。
今すぐ解決したい！どうしたらいい？
まとめ

VBAとは？そして、なぜOutlookで使うのか？

Outlookのイメージ

まず最初に、「VBAって何？」という疑問をお持ちの方もいらっしゃるかと思います。VBAとは、Visual Basic for Applicationsの略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。例えば、ExcelやOutlookでの繰り返し作業を自動化するのに役立ちます。

メール本文を分割する必要性とは？

では、なぜメールの本文を分割する必要があるのでしょうか。例えば、特定の情報を抽出したり、データを整理したりする際に、本文を特定の区切り文字で分割することで、効率的に作業を進めることができます。

VBAでメール本文を分割する基本的な方法

それでは、具体的にVBAを使ってメール本文を分割する方法を見ていきましょう。以下の手順で進めていきます。

Outlookを開き、VBAエディタを起動します。これは、キーボードの「Alt」キーと「F11」キーを同時に押すことで行えます。
新しいモジュールを挿入し、以下のコードを入力します。

vba

Sub SplitEmailBody()

    Dim objMail As MailItem

    Dim strBody As String

    Dim arrLines() As String

    Dim i As Integer
    ' 選択したメールを取得

    Set objMail = Application.ActiveExplorer.Selection.Item(1)

    strBody = objMail.Body
    ' 本文を行ごとに分割

    arrLines = Split(strBody, vbCrLf)

' 各行を表示 For i = LBound(arrLines) To UBound(arrLines) Debug.Print arrLines(i) Next i End Sub

このコードは、選択したメールの本文を行ごとに分割し、各行を表示するものです。

実際の使用例メール本文から特定の情報を抽出する

例えば、メール本文に「注文番号: 12345」という情報が含まれているとします。この注文番号を抽出するには、以下のようにコードを修正します。

vba

Sub ExtractOrderNumber()

    Dim objMail As MailItem

    Dim strBody As String

    Dim arrLines() As String

    Dim i As Integer

    Dim strOrderNumber As String
    ' 選択したメールを取得

    Set objMail = Application.ActiveExplorer.Selection.Item(1)

    strBody = objMail.Body
    ' 本文を行ごとに分割

    arrLines = Split(strBody, vbCrLf)
    ' 各行をチェックして、注文番号を探す

    For i = LBound(arrLines) To UBound(arrLines)

        If InStr(arrLines(i), "注文番号:") > 0 Then

            strOrderNumber = Trim(Split(arrLines(i), ":")(1))

            Exit For

        End If

    Next i