Item send - check for Meetings

[Lef_pl]

Hello,

If you could kindly assist me with below matter:

I have a simple macro that runs on "Item send" event.
It works very well but it also triggers when users send invitations for meetings.

Could you suggest how can I check before sending if the item is email or meeting?

Please see my code below.



Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim question As String
Dim strSubj As String


strSubj = Item.subject
Item.Display
If InStr(Item.subject, "[Confidential]") > 0 Then
Exit Sub
Else '

question = MsgBox("Please do something", , "Attention")

MENU.SHOW
Cancel = True

End If

End Sub


Kind Regards,
Lef

[gmayor]

It is a simple matter to establish what Item is before running the code e.g.


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim question As String
Dim strSubj As String

If TypeName(Item) = "MailItem" Then
strSubj = Item.Subject
Item.Display
If InStr(Item.Subject, "[Confidential]") > 0 Then
Exit Sub
Else '
question = MsgBox("Please do something", , "Attention")
MENU.Show
Cancel = True
End If
End If
End Sub

[Lef_pl]

Gmayor,

Thank You.
It works like a charm.:clap: