【Outlook/VBA】メール受信時に相手の宛先別で処理を行う

Excel/VBA

一つのアドレスが複数のメーリングリストに属してて、受信時の挙動をそれぞれのアドレス毎に分けたい。そんな時の処理。

やりたい事

 

自分のアドレスはhoge@hoge.comとして、XXX@xxx.comとYYY@yyy.comとZZZ@zzz.comと複数メーリングリストに属している状態。
A社はXXX@xxx.comのメーリングリストに送って来て、B社はYYY@yyy.comに送ってくるので、
相手の宛先別で、共有フォルダにフォルダを分けて添付ファイルの保存を行いたいってのが今回やりたい。

以下コピッペで利用可能

 

 

まとめ


実際に保存を行う処理はFileUplodeとして関数化し、保存先アドレスを引数で渡す形にしてみた。
今回pdf以外は弾きたかったので拡張子で識別してるけども不要なら勿論無くてOK。

ただし、メール受信でキックされるので、当然だけれどもOutlookは起動しっぱなしじゃないとダメ。
なのでOutLook系は仮想環境とかでの運用が適してるかも。普段はサンダーバード派なので。。。(ᵔᴥᵔ)

コメント