こんにちは。自動化の世界へようこそ。
Outlook VBAは、単なる「メールの自動化ツール」ではありません。正しく扱えば、あなたのPCの中に24時間休まず働く「専属の秘書」を住まわせるようなものです。
今日は、中級者への登竜門として「特定の取引先からのメールを受信した瞬間、カレンダーに予定を仮登録する」という、実務直結のオートメーションを構築しましょう。
—
1. なぜ「受信イベント」を使うのか？
多くの入門者は「ボタンを押したら動く」マクロから始めます。しかし、プロは「イベント（出来事）」を待ち受けます。
Outlookには`Items.ItemAdd`という強力なイベントがあります。これは、メールが受信箱に届いた瞬間、そのアイテムを「捕まえる」ためのトリガーです。
全体像の把握
1. 監視: 受信トレイを常に監視。
2. 判別: 送信元が「特定の取引先」かチェック。
3. 生成: カレンダーオブジェクトを生成し、件名や時間をセット。
4. 保存: カレンダーへ書き込み。
—
2. 実装のステップ：`ThisOutlookSession`の魔力
Outlook VBAの肝は、標準モジュールではなく`ThisOutlookSession`に書くことです。なぜなら、Outlookの起動と同時にイベント監視を開始するためには、この特別な場所にコードを置く必要があるからです。
準備：クラスモジュールの概念
まずは、受信トレイを監視する「耳」を作ります。
‘ ThisOutlookSession に記述してください
‘ 受信トレイを監視する変数
Public WithEvents myItems As Outlook.Items
‘ Outlook起動時に監視を開始
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
‘ 受信トレイのアイテムを監視対象に設定
Set myItems = ns.GetDefaultFolder(olFolderInbox).Items
End Sub
‘ メールを受信したときに発動するイベント
Private Sub myItems_ItemAdd(ByVal Item As Object)
‘ 念のため、MailItemかどうかを確認（会議招集などは無視する）
If TypeOf Item Is MailItem Then
Call AutoCreateAppointment(Item)
End If
End Sub
—
3. 実務で使える自動登録ロジック
次に、届いたメールを解析し、カレンダーへ放り込むロジックです。ここでは「特定の取引先」からのメールであることを判定する工夫を入れます。
Sub AutoCreateAppointment(ByVal objMail As MailItem)
Dim appt As AppointmentItem
Dim targetAddress As String
‘ ここに監視したい取引先のメールアドレスを入れる
targetAddress = “partner@example.com”
‘ 送信元チェック
If LCase(objMail.SenderEmailAddress) = LCase(targetAddress) Then
‘ カレンダーアイテムの新規作成
Set appt = Application.CreateItem(olAppointmentItem)
With appt
.Subject = “【仮登録】” & objMail.Subject
.Body = “元メール: ” & objMail.Body
.Start = DateAdd(“d”, 1, Now) ‘ 翌日の同じ時間で仮登録
.Duration = 60 ‘ 60分枠
.ReminderSet = True ‘ リマインダーをオン
.Save ‘ カレンダーに保存
End With
‘ 処理が終わったらメモリ解放
Set appt = Nothing
End If
End Sub
—
4. プロの現場でハマる「落とし穴」と対策
ここからは、教科書には載っていない「現場の知恵」です。
① 無限ループの罠
もし、自動登録したアイテムが別の処理のトリガーになってしまったら…Outlookはパニックを起こします。`TypeOf Item Is MailItem`で型を厳密に絞ることは、事故を防ぐための防御壁です。
② セキュリティ制限
会社によってはマクロの実行が制限されている場合があります。「開発」タブから「マクロのセキュリティ」を確認し、デジタル署名を行うか、信頼できる場所として設定してください。
③ メモリリーク（解放の意識）
`Set appt = Nothing` を忘れないでください。短期間で大量のメールを受信する環境では、オブジェクトがメモリに残るとOutlookが重くなります。エンジニアの美学として、使い終わった道具は綺麗に片付けましょう。
—
あなたの次のステップへ
このコードが動いた瞬間、あなたの業務は一つ自動化されます。次は、メール本文から「日時」を正規表現（RegExp）で抽出して、自動的にカレンダーの時間を設定するように改造してみてください。
そこまでできれば、もうあなたは「マクロを使う人」ではなく、「業務を設計するエンジニア」です。
何か分からないことや、もっと複雑な条件分岐が必要であれば、いつでも聞いてください。あなたの自動化の旅を、全力でサポートします。
