mosyoesyoe's blog

徒然書いたら結果、今のところ、自社の宣伝。お得情報。パソコンTips。雑感。

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