こんにちは、くのへ@MasazaneKunoheです。

Outlook VBAで、選択中のアイテムが「受信」か「メールか」を調べる基本コードを纏めました。

「受信」「メール」かどうかを調べるマクロ

ReceivedByEntryIDプロパティが空でなければ「受信」したアイテムであること、classプロパティがolMailであれば「メール」であると判別できることを使って調べられます

↓コピペで動くと思います。

Sub メールBoxで選択中のアイテムが受信メールかどうかを調べる()
  
'受信ボックスで選択している1番目のメールを抽出する
  Dim objSelect As Outlook.Selection
  Dim objItem As Object
  Set objSelect = Outlook.Application.ActiveExplorer.Selection
  Set objItem = objSelect.Item(1)
 
'ReceivedByEntryIDプロパティが空でなければ「受信」
  If objItem.ReceivedByEntryID <> "" Then
    MsgBox ("受信だよ")
  End If
  
'ClassプロパティがolMailなら「メール」
  If objItem.Class = olMail Then
    MsgBox ("メールだよ")
  End If
  
End Sub

解説

受信かどうかは、ReceivedByEntryIDプロパティで調べることにしました。受信メールならば、ここは空ではありません。

メールかどうかは、classプロパティで調べました。olMailならばメールアイテムです。

動いているところの動画

ではまた別の記事で～
🦅バサバサ～

感想等はツイッターにお願いします。こちら。

くのへスタジオはこちら。

Outlook-VBAコーナーはこちら。