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







"Ken Slovak - [MVP - Outlook]" wrote:

No. It would be in the ThisOutlookSessionClass, you would never create an
Outlook.Application object (you use the intrinsic Application object) and
you use Application_Startup, as I said before.

--
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
...
would it be something like this under the Class Modules ?

Public Sub Startup()
Set myOlApp = CreateObject("Outlook.Application")
End Sub

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Are you sure you want to send " & "?"
If MsgBox(prompt, 4 + 16, "This is a Warning!") = vbNo Then
Cancel = True
End If

End Sub