Private WithEvents Items As Outlook.Items Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Item = MailItem If Item.To = "abc@abc.com" Then prompt$ = "Are you sure you want to send this message?" If MsgBox(prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check before Sending") = vbNo Then Cancel = True End If End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)