Exchange Public Folder script
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 :mad:
Code:
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!? :confused:
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.
