Thread: Events Question
View Single Post
  #7  
Old February 5th 08, 03:28 PM posted to microsoft.public.outlook.program_vba
kalukaley
external usenet poster
 
Posts: 8
Default Events Question

Thanks Ken, turns out that I left out a simple step. I needed to close out
of outlook and get back in; all the tidbits you gave me were right on target.

Do you have a website. I'd like to go through your information.

There's a lot of information out there, but a lot of it assumes a certain
level of knowledge that tyro's like me simply don't have.

Thanks again.

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

Does the event fire if you modify a non-recurring appointment?

--
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


"kalukaley" wrote in message
...
Almost There. I noticed that I didn't include the actual hanlder. The
Inialize_handler is now being called (message box is working).

However, the ItemChange Event doesn't appear to be called.

I have a recurring Appointment in my calendar. as a simple test I change
the duration or start time ( or any other thing ) in the appointment then
save it.
At this point I'm expecting a pop-up from my eventhandler ... but nothing
happens.

P.S. The future of this code is more than just dopey pop-ups


--------------------------------------------------------------------
From CLASS MODULE
-------------------------------------------------------------------
Public WithEvents CalItems As Outlook.items

Public Sub Initialize_handler()

Set CalItems =
Application.GetNamespace("MAPI").GetDefaultFolder( olFolderCalendar).items

MsgBox "I'm here"
End Sub


Public Sub CalItems_ItemChange(ByVal Item As Object)
MsgBox "now I am here"

End Sub

-----------------------------------------------------------------------
From ThisOutLookSession
-----------------------------------------------------------------------
Dim classHandler As New Class1


Private Sub Application_Startup()

classHandler.Initialize_handler



End Sub



Ads