こんにちは!自動化大好きtknriaです!
Outlook2010を使っていて、メール送信と同時に処理を行いたいことがあります。
例えば、条件を満たしていなければアラートを出したり、メール内容をtxtファイルにコピーして一括管理したかったり。
件名と宛先を表示して確認を促したりもしたいですね。
もちろん、仕分けルールでもできないことはないです!
でも、もっと細かく、もっと複雑な処理をしたかったりもするのが人情ってもんです。
■ メール送信時に自動処理!
VBAで実装します。
'-------ここからソース-------
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' ここに行いたい処理
End Sub
'-------ここまでソース-------
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' ここに行いたい処理
End Sub
'-------ここまでソース-------
もともとApplicationとして用意してもらっているので簡単ですね。
■ 億劫なあとがき
とはいえ、仕分けルールを作成すれば済むレベルの処理であれば、そちらを使ったら良いと思います。
使い分け大事!