この記事では、ExcelのVBAを使用して、指定した条件に一致するメールを「返信必要」フォルダに自動的に移動する方法について解説します。具体的なコードの作成からその詳細、そして応用例に至るまで、実際に使える知識を得ることができます。
Excel VBAの基本
Excel VBA(Visual Basic for Applications)は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
![](https://ittrip.xyz/wp-content/uploads/2023/09/VBA-1.gif)
VBAを利用したメール処理の基本
ExcelのVBAを用いることで、Outlook内のメールを自動で操作することが可能です。特定のキーワードが含まれるメールを特定のフォルダに移動するといった処理は、日常的な業務で非常に役立ちます。
Sub MoveMailsBasedOnCondition()
Dim OutlookApp As Object
Dim Namespace As Object
Dim Inbox As Object
Dim Mail As Object
Dim i As Integer
' Outlookオブジェクトを取得
Set OutlookApp = CreateObject("Outlook.Application")
Set Namespace = OutlookApp.GetNamespace("MAPI")
Set Inbox = Namespace.GetDefaultFolder(6) ' 6 = olFolderInbox
' Inbox内のメールをチェック
For i = Inbox.Items.Count To 1 Step -1
Set Mail = Inbox.Items(i)
' 条件に合致するメールを移動
If InStr(1, Mail.Body, "返信が必要なもの", vbTextCompare) > 0 Then
Mail.Move Namespace.GetDefaultFolder(6).Folders("返信必要")
End If
Next i
' オブジェクトの解放
Set Mail = Nothing
Set Inbox = Nothing
Set Namespace = Nothing
Set OutlookApp = Nothing
End Sub
コードの詳細解説
1. まず、Outlookと連携するためのオブジェクトを定義します。
2. `CreateObject(“Outlook.Application”)`を使用してOutlookのアプリケーションを取得します。
3. `GetNamespace(“MAPI”)`を利用し、Outlook内のメールの名前空間を取得します。
4. `GetDefaultFolder(6)`にて受信トレイを指定します。6は受信トレイを示す定数です。
5. `For`ループで受信トレイ内のすべてのメールを走査します。
6. `InStr`関数を使って、メール本文に”返信が必要なもの”という文字列が含まれているかを確認します。
7. 条件に合致する場合、該当のメールを”返信必要”フォルダに移動します。
応用例
1. 件名に特定のキーワードが含まれるメールを移動
メールの件名に「緊急」というキーワードがある場合に、それを「緊急」フォルダに移動させる方法です。
If InStr(1, Mail.Subject, "緊急", vbTextCompare) > 0 Then
Mail.Move Namespace.GetDefaultFolder(6).Folders("緊急")
End If
2. 送信者によってメールを分類
特定の送信者からのメールを、その送信者名でフォルダを作成・分類する方法です。
If Mail.SenderName = "田中太郎" Then
Mail.Move Namespace.GetDefaultFolder(6).Folders("田中太郎からのメール")
End If
3. 未読メールだけを対象とする
未読のメールのみを対象として、それを特定のフォルダに移動する方法です。
If Mail.UnRead = True And InStr(1, Mail.Body, "返信が必要なもの", vbTextCompare) > 0 Then
Mail.Move Namespace.GetDefaultFolder(6).Folders("返信必要")
End If
まとめ
VBAを使用してOutlookのメールを自動処理する技術は、業務の効率化や整理整頓に大変役立ちます。本記事で紹介した方法を基に、さまざまな応用を試してみてください。
VBAも良いけどパワークエリも良い
VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。
クリックするとパワークエリの全11講座が表示されます。
-
【初心者向け】パワークエリ入門:ETLツールを使ってエクセルデータを簡単に整形・統合しよう!(1/11)
-
【実践ガイド】パワークエリでデータ収集:Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう!(2/11)
-
【総力特集】パワークエリで列操作をマスター:選択、変更、移動、削除、結合、分割の詳細解説&実践テクニック!(3/11)
-
【徹底解説】パワークエリで行操作をマスター!フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)
-
パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)
-
パワークエリで四捨五入、切り捨て、切り上げをマスターする方法(6/11)
-
パワークエリで効率的なデータグループ化を実現する方法(7/11)
-
パワークエリで時間と日付の計算をマスター!便利な関数を使って効率アップ(8/11)
-
パワークエリで条件別集計をマスターする方法(9/11)
-
Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)
-
Excelパワークエリ入門: 効率的なデータ整理をマスターしよう!(11/11)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント