メール本文をExcelで自動化

Outlookの特定のメールフォルダを分析するExcelマクロ

毎日定型文にて定時メールが届き、毎日入力しなければならない場合、マクロボタン１つで入力から分析までできるようにしました。

内容をお見せすることができないのが申し訳ないです。

そのうちに黒塗りしてお見せします。

ーーーーーー

Excelの「開発」「Visual Basic」「ツール」「参照設定」にて

　Microsoft　Office　？　Object Library　をチェック

Excelで今回の記事に関係するシートは３つ【メールデータ】【分析結果】【ピボット】

【メールデータ】のシートはOutlookから「受信日時」「件名」「送信者」「送信元メールアドレス」「本文」を取得しており、「定期メールデータ」というテーブルを設定

【分析結果】のシートは【メールデータ】のシートの「定期メールデータ」というテーブルからパワークエリにて行列の整理

【ピボット】のシートは【分析結果】のシートをピボットテーブルにて「受信日」と「件名」と各値を表示されるように調整

Excelにマクロをボタン登録しておく

Outlookの対象フォルダは「●●●●」に目的のメールを仕分けのルールで振り分けておく

ーーーーー

以下コード Set myNamespace = outlookObj.GetNamespace("MAPI") Set InboxFolder = myNamespace.GetDefaultFolder(6).Folders("●●●●") n = 2 For i = 1 To InboxFolder.Items.Count Set objmailItem = InboxFolder.Items(i) Range("A" & n).Value = i Range("B" & n).Value = objmailItem.ReceivedTime Range("C" & n).Value = objmailItem.subject Range("D" & n).Value = objmailItem.SenderName Range("E" & n).Value = objmailItem.SenderEmailAddress Range("F" & n).Value = Trim(objmailItem.Body) n = n + 1 Next Call クエリピボット更新 Application.ScreenUpdating = True End Sub Sub クエリピボット更新() Sheets("分析結果").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False Sheets("ピボット").Select ActiveSheet.PivotTables("ピボットテーブル1").PivotCache.Refresh End Sub Sub クリア() Sheets("メールデータ").Range("A1").Select Range("A3:F" & Range("A1").End(xlDown).Row).Select Selection.Delete Shift:=xlUp Range("A2").Select End Sub