By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,397 Members | 1,461 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,397 IT Pros & Developers. It's quick & easy.

Outlook events

P: n/a
Hi

I am using outlook with withevents so grab its item_send event. It has not
worked so far. Anyone has any example of how this should be done? My code is
at the end.

Thanks

Regards

= Code Follows ====================

Option Compare Database

Private WithEvents objOutlook As Outlook.Application
Private WithEvents objOutlookMsg As Outlook.MailItem

Private Sub Command0_Click()
Dim objOutlookRecip As Outlook.Recipient

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
eto = "me@mydomain.com"
esubject = ""
objOutlookMsg.To = eto
objOutlookMsg.Display
End Sub

Private Sub OutlookApp_ItemSend(ByVal Item As Object, ByRef Cancel As
Boolean)
MsgBox "I am here"
End Sub
Nov 12 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.