More than 1 year has passed since last update.

Outlookマクロで送信アドレスチェック

Outlook
VBAマクロ

Posted at 2022-11-14

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim s As String
s = Item.SenderEmailAddress '差出人

If s <> "xxx@xxx" Then
    MsgBox ("xxx@xxxで送信してください。")
    Cancel = True
End If

End Sub

「ByVal Item As Object」　は多分　MailItem

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up