本文のIPアドレスチェック | Outlook メール誤送信対策

[FAQ CENTER トップ]

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




組織によってはメール本文に IP アドレスを記載することを禁止している場合があります。
正規表現でIPアドレスのチェックをしています。厳密なチェックではないため漏れがある可能性があります。

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



Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "[^\d](([1-9]?[0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}([1-9]?[0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])[^\d]"
Set colMatches = objRegEx.Execute(Item.Body)
If colMatches.Count > 0 Then
MsgBox "おそらくメール本文にIPアドレス が含まれます。送信をキャンセルしました。"
Cancel = True
For Each strMatch In colMatches
MsgBox strMatch.Value
Next
Set objRegEx = Nothing
Exit Sub
End If

Set objRegEx = Nothing






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





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