この記事では、Excel VBAを用いてOutlook内で「社内連絡」というキーワードを含むメールを自動的に「社内連絡」フォルダへ移動させる方法を紹介します。具体的なコード例とその詳細解説、さらに応用例を通じて、日常の業務効率化を図る方法を学べます。
Excel VBAの基本
Excel VBA(Visual Basic for Applications)は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
![](https://ittrip.xyz/wp-content/uploads/2023/09/VBA-1.gif)
VBAを使った自動整理の基本
Outlookのメール管理は業務の中で重要な部分を占めています。VBAを利用してこれを効率化することで、他の作業に集中できる時間を増やすことが可能です。
基本コードの作成
Sub MoveMails()
Dim objOutlook As Object
Dim objNamespace As Object
Dim objFolder As Object
Dim objMail As Object
Dim i As Integer
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(6) 'Inbox
For i = objFolder.Items.Count To 1 Step -1
Set objMail = objFolder.Items(i)
If InStr(objMail.Subject, "社内連絡") > 0 Then
objMail.Move objNamespace.GetDefaultFolder(6).Folders("社内連絡")
End If
Next i
End Sub
コードの解説
上記のコードは、Outlookの受信トレイから「社内連絡」というキーワードを含むメールを検索し、「社内連絡」という名前のフォルダへ移動させるものです。
1. Outlookのアプリケーションを開始し、Namespaceを取得。
2. 受信トレイを参照。
3. 受信トレイ内の各メールについて、件名に「社内連絡」という文字列が含まれているかをチェック。
4. 該当するメールを「社内連絡」フォルダに移動。
応用例
1. 特定の送信者からのメールを別フォルダに移動
特定の送信者からのメールを自動的に別のフォルダに移動させる方法です。
Sub MoveMailsBySender()
Dim objMail As Object
Dim i As Integer
For i = objFolder.Items.Count To 1 Step -1
Set objMail = objFolder.Items(i)
If objMail.SenderName = "山田太郎" Then
objMail.Move objNamespace.GetDefaultFolder(6).Folders("山田太郎からのメール")
End If
Next i
End Sub
2. 特定の日付より前のメールをアーカイブフォルダに移動
Sub ArchiveOldMails()
Dim objMail As Object
Dim i As Integer
Dim targetDate As Date
targetDate = "2023/09/01"
For i = objFolder.Items.Count To 1 Step -1
Set objMail = objFolder.Items(i)
If objMail.ReceivedTime < targetDate Then
objMail.Move objNamespace.GetDefaultFolder(6).Folders("アーカイブ")
End If
Next i
End Sub
3. メールの本文に特定のキーワードが含まれる場合、フラグを立てる
Sub FlagMailsWithKeyword()
Dim objMail As Object
Dim i As Integer
For i = objFolder.Items.Count To 1 Step -1
Set objMail = objFolder.Items(i)
If InStr(objMail.Body, "重要") > 0 Then
objMail.FlagStatus = 2 ' Mark as Follow up
End If
Next i
End Sub
まとめ
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)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント