自社以外のドメイン名が含まれる | Outlook メール誤送信対策

[FAQ CENTER トップ]

[Outlook メール誤送信対策マクロ トップへ]




メール送信時に自社ドメイン以外に送信する場合に確認します。要するに社外メール送信のため、念のため確認しようということです。
MYMAILDOMAINに自社の変数を設定してください。

このコードの設定手順は次のページを参照してください。Outlook でマクロを有効化してメール送信イベントマクロを追記する手順



MYMAILDOMAIN = "example.co.jp"
For Each RECVERS In Item.Recipients
temp = RECVERS.Address
If Right(temp, Len(temp) - InStr(temp, "@")) <> MYMAILDOMAIN Then
ret = MsgBox("自分のメールドメイン以外の宛先が含まれます。 メールアドレス = " & temp & " 送信しますか。", vbOKCancel)
If ret = vbCancel Then
Cancel = True
MsgBox "送信をキャンセルしました。"
Exit Sub
End If
End If
Next






[Outlook メール誤送信対策マクロ トップへ]
[FAQ CENTER トップ]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2018