Redemption Object
 

Trying to access appointment data in a shared calendar with the following
code -

But quite a few things fail -
1)Start/End/Location etc properties are missing
2)Userproperties - Have created a new tab with 4 custom fields - Cant access
the same either
Please help!

set Session = CreateObject("Redemption.RDOSession")
Session.Logon
set MyFolder = Session.GetSharedDefaultFolder("Firstname Lastname",9)
NumItems = MyFolder.Items.Count
For Each itm in MyFolder.Items
If itm.Subject "" Then MsgBox itm.Subject
If itm.CreationTime "" Then MsgBox DateValue(itm.CreationTime)

If itm.Location "" Then MsgBox itm.Location
If itm.Start "" Then MsgBox DateValue(itm.Start)
If itm.End "" Then MsgBox DateValue(itm.End)

Set Prop_Prj=itm.UserProperties("Projects")
If Not Prop_Prj Is Nothing Then
MsgBox "Project-" & itm.UserProperties("Projects").Value
End If
Set Prop_Task=itm.UserProperties("Tasks")
If Not Prop_Task Is Nothing Then
MsgBox "Task-" & itm.UserProperties("Tasks").Value
End If
Set Proj_Type=itm.UserProperties("ProjectType")
If Not Proj_Type Is Nothing Then
MsgBox "Project Type-" & itm.UserProperties("ProjectType").Value
End If
Set Prop_Activity=itm.UserProperties("Activity")
If Not Prop_Activity Is Nothing Then
MsgBox "Activity-" & itm.UserProperties("Activity").Value
End If
next