VBA 送信時に宛先の中に特定のドメインが含まれる場合にエラーメッセージを出す

Question

###前提・実現したいこと
Outlookで使用するマクロを作ろうと考えているのですが、
上記タイトルにある「送信時に宛先の中に特定のドメインが含まれる場合にエラーメッセージを出す」という動作をするマクロは作成可能でしょうか？

VBAを触った経験が無く、まったく見当もつかない現状です。
どなたかご教授願えますでしょうか。

Answer 1

OutlookでVBAコーディングをしたことは無いですが、できるようです

メールを送信するときはApplication.ItemSendというイベントが発生するので、それによってコールされるApplication_ItemSendプロシージャで宛先を取り出し、特定のドメイン文字列とマッチするか判定して、送信させたくなければイベントをキャンセルさせることができるみたいです

Application.ItemSend イベント (Outlook)（公式リファレンス）
Outlookマクロ：fromアドレスと件名の確認（参考ブログ）

Answer 2

https://outlooklab.wordpress.com/2016/03/26/%E6%8C%87%E5%AE%9A%E3%81%95%E3%82%8C%E3%81%9F%E3%83%89%E3%83%A1%E3%82%A4%E3%83%B3%E4%BB%A5%E5%A4%96%E3%81%B8%E3%81%AE%E9%80%81%E4%BF%A1%E3%82%92%E9%98%B2%E3%81%90%E3%83%9E%E3%82%AF%E3%83%AD/

指定されたドメイン以外への送信を防ぐマクロ

参考になれば。

追記します。

https://qiita.com/scrtree/items/b53de8861d247541c299　　意外と知られていないOutlookで開発する方法
上記でVBA開始準備説明あります。

https://www.eripyon.com/mt/2013/04/outlook_2013.html　　Outlookで送信前に送信先と添付忘れを確認するメッセージを表示するの巻
上記でSub Application_ItemSendへのプログラム書き方説明あります。

で「指定されたドメイン以外への送信を防ぐマクロ」さんのコード拝借して

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 Dim arrAllowedDomains
    ' 送信可能なドメイン名を指定
    arrAllowedDomains = Array("example.com", "contoso.com")
    
    Dim oRec As Recipient
    Dim i As Integer
    Dim strErr As String
    Dim bAllow As Boolean
    For Each oRec In Item.Recipients '宛先
        bAllow = False
        For i = 0 To UBound(arrAllowedDomains)
            If oRec.Address Like "*@" & arrAllowedDomains(i) Then
                bAllow = True
                Exit For
            End If
        Next
        ' 送信可能なドメインではない受信者が存在したら
        If bAllow = True Then
            Cancel = True  '送信キャンセル
            strErr = strErr & oRec.Address & ";"
        End If
    Next
    ' 送信がキャンセルされた場合にはエラー表示
    If Cancel Then
        MsgBox "以下のアドレスへの送信は許可されていません。" & vbCrLf & strErr
    End If
End Sub