
作成中の電子メールに特定のフレーズが含まれている場合、電子メールを送信する前に警告を受け取りたいです。
例: こんにちは (クライアント名)、
「(クライアント名)」の変更を忘れた場合に通知を受け取りたいです。
同様の状況として、GMail で「attached」という単語を使用すると、実際にファイルを添付していない場合はクライアントから警告が表示されます。
答え1
もちろん、次の VBA マクロを使用すると、目的の結果を簡単に達成できます。
Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
If InStr(Item.Body, "(Client Name)") Then
If MsgBox("Are you sure to send this message?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Message Text Warning") = vbNo Then
Cancel = True
End If
End If
End Sub