I am not sure how to go about extending my search parameters
"Ken Slovak - [MVP - Outlook]" wrote:
So what's the question? If you want to filter on multiple email names or
addresses you will have to extend what you're doing now to handle all those
names or addresses.
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm
"Mike "YO_BEE" B" wrote in message
...
I was able to get the VBA Send Capture to work, but now I want to add some
filtering
Here is my copy for filtering one address, but I want to filter Multiple
addresses
Private Sub Application_Startup()
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
If Item.To = "TestDistList" Then
prompt = "Are you sure you want to send " & Item.To & "?"
If MsgBox(prompt, vbYesNo + vbExclamation, "Sample") = vbNo Then
Cancel = True
End If
Else
End If
End Sub