confirm to send e-mail (only for external addresses)

S

stevie macahey

Hi all,

I would like to have Outlook (2000/XP) pop up a confirmation dialogue box
when upon clicking the "SEND" button.
I have seen the fabulous script that Sue Mosher of Slipstick posted:

-----------------------
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim intRes As Integer
Dim strMsg As String
strMsg = "Do you really want to send this message?"
intRes = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Confirm Send ")
If intRes = vbNo Then
Cancel = True
End If
End Sub
-----------------------

This script is great but I want to make a slight modification to it that
will parse the 'to, cc, bcc' fields to check for external (non-corporate)
email addresses. Bascially, to check for any addresses that are not
"@mycompany.com" and only if a non-corporate email address existed would the
confirmation dialog box pop up. I would imagine from a VB programmer's pov
this would not be to challenging. Thanks if anyone can help out.

-S
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top