OutlookVBA　受信したメールに分類（category）をつける

【概要】OutlookVBAで受信したメールに分類（category）をつけることをお願いできればと思います。 【目的】作業効率化の為 【依頼背景】色々と自分で調べましたが解決できず、助けていただきたいです。 【その他】取得したアイテムを指定することはできています。 分類をつけることだけが上手くできないです。　 また分類名を　赤_1 赤_2 ……のように連番を考えています。