Hi,

I'm trying to capture the ItemSend event from a macro (not an add-in), but
for whatever reason it's not hitting it. Even after restarting Outlook
(2007), it does not kick in. Do I have to do something special?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox("hi")
End Sub

or do I have to write an add-in?

Thanks

No, you don't have to write an add-in. Does other VBA code run? Have you checked the basics at http://outlookcode.com/article.aspx?id=49?

BTW, that's not a macro; it's an event handler.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Totem" wrote in message ...
Hi,

I'm trying to capture the ItemSend event from a macro (not an add-in), but
for whatever reason it's not hitting it. Even after restarting Outlook
(2007), it does not kick in. Do I have to do something special?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox("hi")
End Sub

or do I have to write an add-in?

Thanks

I didn't have it under "ThisOutlookSession", so I've placed the code there
and it works now. Is this the only way? there's no way to have it in a
module so that I can easily share it with co-workers?
I'd like to know what's the easiest that I can share it with others and have
them update it as I provide them with a new version.

thanks

"Sue Mosher [MVP-Outlook]" wrote:

No, you don't have to write an add-in. Does other VBA code run? Have you checked the basics at http://outlookcode.com/article.aspx?id=49?

BTW, that's not a macro; it's an event handler.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Totem" wrote in message ...
Hi,

I'm trying to capture the ItemSend event from a macro (not an add-in), but
for whatever reason it's not hitting it. Even after restarting Outlook
(2007), it does not kick in. Do I have to do something special?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox("hi")
End Sub

or do I have to write an add-in?

Thanks

If you want something to share with co-workers, that should be an add-in. There is no supported method for distributing VBA code; see http://www.outlookcode.com/article.aspx?id=28

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Totem" wrote in message ...
I didn't have it under "ThisOutlookSession", so I've placed the code there
and it works now. Is this the only way? there's no way to have it in a
module so that I can easily share it with co-workers?
I'd like to know what's the easiest that I can share it with others and have
them update it as I provide them with a new version.

thanks

"Sue Mosher [MVP-Outlook]" wrote:

No, you don't have to write an add-in. Does other VBA code run? Have you checked the basics at http://outlookcode.com/article.aspx?id=49?

BTW, that's not a macro; it's an event handler.


"Totem" wrote in message ...
Hi,

I'm trying to capture the ItemSend event from a macro (not an add-in), but
for whatever reason it's not hitting it. Even after restarting Outlook
(2007), it does not kick in. Do I have to do something special?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox("hi")
End Sub

or do I have to write an add-in?

Here is my code. I am a newbie at coding, but I found this and it works, but
I am not sure how to have this code start up automaticlly upon the start up
of OUTLOOK

Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
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


"Totem" wrote:

Hi,

I'm trying to capture the ItemSend event from a macro (not an add-in), but
for whatever reason it's not hitting it. Even after restarting Outlook
(2007), it does not kick in. Do I have to do something special?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox("hi")
End Sub

or do I have to write an add-in?

Thanks

Put that code in the ThisOutlookSession class module. You don't need to
declare an Application object WithEvents in that class BTW. Then in the
Application_Startup event handler call your initialization.

--
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
...
Here is my code. I am a newbie at coding, but I found this and it works,
but
I am not sure how to have this code start up automaticlly upon the start
up
of OUTLOOK

Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
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


"Totem" wrote:

Hi,

I'm trying to capture the ItemSend event from a macro (not an add-in),
but
for whatever reason it's not hitting it. Even after restarting Outlook
(2007), it does not kick in. Do I have to do something special?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox("hi")
End Sub

or do I have to write an add-in?

Thanks

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


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

Put that code in the ThisOutlookSession class module. You don't need to
declare an Application object WithEvents in that class BTW. Then in the
Application_Startup event handler call your initialization.

--
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
...
Here is my code. I am a newbie at coding, but I found this and it works,
but
I am not sure how to have this code start up automaticlly upon the start
up
of OUTLOOK

Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
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


"Totem" wrote:

Hi,

I'm trying to capture the ItemSend event from a macro (not an add-in),
but
for whatever reason it's not hitting it. Even after restarting Outlook
(2007), it does not kick in. Do I have to do something special?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox("hi")
End Sub

or do I have to write an add-in?

Thanks

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

So do I play my code inside the Application_startup() like this

Public Sub Application_startup()

Private Sub msg_ItemSend(ByVal Item As Object, Cancel As Balloon)
Dim Prompt As String
Prompt = "Are you sure you want to send " & msg.To & " ?"
If MsgBox(Prompt, vbYesNo + vbInformation, "WARNING!!!!! You are
sending to a Distibustion Group") = vbNo Then
Cancel = True
End If
End Sub

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

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