Exchange Public Folder script

[El-Phantasmo]

Ok I have a script running on a public folder, set to run at scheduled times.
I have an object but I have no clue what kind of object it is because NOTHING WORKS

Public Sub Folder_OnTimer
	Dim objInfoStore
	Dim objFolder
	Dim objMessages
	Dim objTimeCard	
	Dim objSession
	Dim objItem 
  Dim iItem

	WriteResponse "Starting Calendar script" & Date


	Set objSession = EventDetails.Session
	Set objInfoStore = objSession.InfoStores("Public Folders")
	If Err.Number <> 0 Then
		 WriteResponse "Could not access Public Folders Information Store."
		Exit Sub
	End If

	WriteResponse "Getting folder " & Date
	Set objFolder = objSession.GetFolder(EventDetails.FolderID,objInfoStore.ID)
	If Err.Number <> 0 Then
		 WriteResponse "Could not access current folder."
		Exit Sub
	End If

	Set objMessages = objFolder.Messages

	For Each objItem in objMessages
		WriteResponse objItem.Subject
    WriteResponse "  stuff:" & objItem.End '' FAILS
	Next
End Sub

What is 'objItem' in this case?!
I can do objItem.Type and it returns 'IPM.Appointment'
SO I would Assume its an appointment object.
but none of the appt object properties works!?

Any ideas?

Note: This script is NOT run from Outlook. It is a script in the exchange public folder, run from the Microsoft Event Service.

[El-Phantasmo]

Nevermind

SYMPTOMS
When you install an event script on a Calendar folder to process appointments, AppointmentItem-specific properties such as Location, StartTime, and EndTime can not be retrieved. Attempting to do this results a VBScript runtime error:

'800a01b6' "Object doesn't support this property or method"
CAUSE
EventDetails.MessageID returns the EntryID of a Message object instead of an AppointmentItem object.
STATUS
This behavior is by design.

STUPID!
http://support.microsoft.com/?kbid=243387