Redemption Object

[Safal]

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