皆さん、こんにちは。今日は、OutlookとExcelを使って、メールの本文を自動的に抽出する方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫。ゆっくり一緒に学んでいきましょう。
OutlookとExcelを連携してメール本文を抽出する手順
Outlookのイメージ
まず、OutlookとExcelを連携させて、メールの本文をExcelに取り込む手順を見ていきましょう。
1. 準備Excelでの設定
最初に、Excelでの準備を行います。
- Excelを開き、新しいブックを作成します。
- メニューバーの「開発」タブをクリックします。もし「開発」タブが表示されていない場合は、以下の手順で表示させましょう。
- 「ファイル」タブをクリックし、「オプション」を選択します。
- 「リボンのユーザー設定」をクリックし、右側の「開発」にチェックを入れて「OK」をクリックします。
- 「開発」タブの「Visual Basic」をクリックし、VBAエディターを開きます。
- VBAエディターで「ツール」メニューの「参照設定」をクリックします。
- 表示されたリストから「Microsoft Outlook xx.x Object Library」にチェックを入れ、「OK」をクリックします。これで、ExcelからOutlookを操作する準備が整いました。
2. VBAコードの作成
次に、実際にメールの本文を抽出するVBAコードを作成します。
- VBAエディターの「挿入」メニューから「標準モジュール」を選択します。
- 新しく作成されたモジュールに、以下のコードをコピー＆ペーストします。
vba
Sub ExtractOutlookMailBody()
Dim olApp As Outlook.Application
Dim olNs As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olMail As Outlook.MailItem
Dim i As Integer
Dim mailBody As String
' Outlookアプリケーションを起動
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFolder = olNs.GetDefaultFolder(olFolderInbox) ' 受信トレイを指定
' 受信トレイ内のアイテムをループ
For i = 1 To olFolder.Items.Count
' メールアイテムの場合
If TypeName(olFolder.Items(i)) = "MailItem" Then
Set olMail = olFolder.Items(i)
mailBody = olMail.Body ' メール本文を取得
' Excelのシートに書き込み
ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = mailBody
End If
Next i
' オブジェクトの解放
Set olMail = Nothing
Set olFolder = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub
このコードは、Outlookの受信トレイにあるメールの本文を順番に取得し、Excelの「Sheet1」に書き込むものです。
3. マクロの実行
コードの準備ができたら、実際にマクロを実行してみましょう。
- VBAエディターを閉じ、Excelに戻ります。
- 「開発」タブの「マクロ」をクリックし、表示された一覧から「ExtractOutlookMailBody」を選択して「実行」をクリックします。
これで、Outlookの受信トレイにあるメールの本文が、Excelの「Sheet1」に順番に表示されるはずです。
よくある質問や疑問
Q1: マクロを実行しても何も起こりません。どうすればいいですか？
A1: まず、Outlookが正しく起動しているか確認してください。また、参照設定で「Microsoft Outlook xx.x Object Library」にチェックが入っているか再度確認しましょう。
Q2: セキュリティの警告が表示されてマクロが実行できません。
A2: Excelのセキュリティ設定でマクロの実行が制限されている可能性があります。以下の手順で設定を変更してみてください。
- 「ファイル」タブをクリックし、「オプション」を選択します。
- 「セキュリティセンター」をクリックし、「セキュリティセンターの設定」をクリックします。
- 「マクロの設定」を選択し、「警告を表示せずにすべてのマクロを有効にする」にチェックを入れて「OK」をクリックします。
ただし、この設定はセキュリティ上のリスクを伴うため、作業が終わったら元の設定に戻すことをおすすめします。
まとめ
いかがでしたか？今回は、Outlookのメール本文をExcelに抽出する方法をご紹介しました。最初は少し難しく感じるかもしれませんが、手順に沿って進めればきっとできるはずです。ぜひ挑戦してみてくださいね。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント