Outlook VBA 送信時に送信アドレスのチェック
プログラミングは解決したら、すぐに書かないと忘れます。
Outlook 2013で複数のアカウントの送受信をしているのですが、送信者を送信時に確認して、処理する方法。分かってしまえば簡単ですが、下記のように辿れば行き着きます。「変更してください」とか出すけど、VBA上で送信アドレスを直接変更したりは今のところ難しそうなので、断念。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'送信アドレスをチェックして、処理を変更するSet Insp = Item.GetInspector
If Insp.CurrentItem.SenderEmailAddress = "xxx@xxxx.xx.jp" Then
'我が社の場合
MsgBox "差出人がxxxです。変更してください" & vbLf & "(一度下書き保存しないとダメみたい)"
Cancel = True '戻り値
Exit Sub
End If
End Sub