OutlookVBA メールの分類をマクロでセット MailItemの.Categoriesにセットする

図:メールの分類

メールの分類は、
.Categories = "分類の文字列"
に文字列で設定すると可能
分類項目 赤
など、セットすると可能みたいです。

#OutlookVBA #アウトルック #デバッグ #マクロ
#MailItem #Categories #ShowCategoriesDialog

いつもの動画解説とソースコードを見て、アレンジしてみてください。
youtu.be
https://youtu.be/R2nt09w4KyI
目次
00:00 やりたいこと
01:00 1.現物確認 ShowCategoriesDialog
02:05 2.Categoriesにセットしてみる
03:23 3.蛇足1.複数時どうする？
04:53 4.蛇足2.オリジナルの分類を作ったら？
07:00 5.分類が無い時
09:50 解説まとめ と 言い訳・・・

0.知恵袋の質問に反応してみた
下記の質問
detail.chiebukuro.yahoo.co.jp

Outlook VBAについて質問があります。
メールを色分けして分類するために、色分類項目を設定したいと考えております。(下書き作成時)
自身で調べてもわかりませんでした。
色分類項目を設定するための構文を教えていただけないでしょうか。

に反応してみた。

1.現物確認
.ShowCategoriesDialog
で、ダイアログが表示できるので、手動設定後、

Sub test_20230114_MailItemの分類確認()
    Dim objMAIL As Outlook.MailItem
    Set objMAIL = CreateItem(olMailItem)
    objMAIL.Display
    
    objMAIL.Subject = "分類テスト " & Now()
    objMAIL.To = "a@a ; b@b"
    
    '分類をダイアログから手動でセットしてみる
    objMAIL.ShowCategoriesDialog
    
    '↑のダイアログでセット後、デバッグ表示してみる
    Debug.Print objMAIL.Categories

    '↑下書き保存して、現物の下書きの一覧から確認してみる

End Sub

"分類項目 赤"など選択した分類が表示されるので、
.Categories = "分類の文字列"
などで使えると思います。

2.Categoriesにセットしてみる

'↑で確認ができたので、マクロで分類を指定したメールを作成してみる

'分類付きのメールを作成する
Sub test_20230114_MailItem分類をセット()
    Dim objMAIL As Outlook.MailItem
    Set objMAIL = CreateItem(olMailItem)
    objMAIL.Display
    
    objMAIL.Subject = "分類をセットしてみた " & Now()
    objMAIL.To = "a@a ; b@b"
    
    '分類をセットする
    objMAIL.Categories = "分類項目 赤"

    '↑下書き保存して、現物の下書きの一覧から確認してみる

End Sub

3.蛇足1.複数分類

□のチェックボックスで複数選択できるので、
どうするのかなぁ？と思ってたら、
単純に
カンマで区切る？

    '分類を複数セットする
    objMAIL.Categories = "分類項目 赤,分類項目 青"

で可能でした。

4.蛇足2.オリジナルの分類

    '分類をセットする
    objMAIL.Categories = "至急確認"
    '↑作成したオリジナルの分類

↑作成した分類の文字列をセットするだけ・・・

5.分類が無い時

    '分類をセットする
    objMAIL.Categories = "なんでもOKはてな"
    '↑エラーにならない。不思議だけど、色なしで文字列がそのままセットされる

↑でエラーが発生しなかったのが、不思議だったけど、
まぁ、いろいろと使いどころが、あるのか？ないのか・・・

6.隙あれば自分語り

過去の自分が
Outlookの予定表 分類で解説してました

ken3memo.hatenablog.com

過去の解説↑↓も、よろしく願いします。
※解説のパターも変わってないし、数年前から落ち着きのないオッサンですね・・・↓↓

https://www.youtube.com/watch?v=VTt5FZHZnkk
www.youtube.com

参考となれば、幸いです。