That's CDO 1.21 syntax for the property tag, it won't work with Redemption.
You need to use a more "MAPI" type property tag for that. You can either use
a straight MAPI tag or a DASL tag.

For Location:

Fields("{00062002-0000-0000-C000-000000000046}", &H8208) Or &H1E

Or

Fields("urn:schemas:calendar:location")

For a named property it depends on how you created it, so without that
information it could be anything.

See the examples of how to use MAPI property tags at the Redemption Web
site. If you don't use DASL syntax you must use the GUID, property ID or
name and then Or the result with the property type (PT_STRING8, PT_BINARY,
PT_LONG, etc.).

The OutlookSpy tool, also available at www.dimastr.com provides an easy way
to examine items and determine which property tags to use.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Safal" wrote in message
...
Did not manage to find good results from the link's sent
Here is what i tried
1)Did not manage to get the Location for the appointment data
2)Also could not figure out about "Custom Attributes" (Suppose I have a
custom attribute called Projects how could i fetch the value for the
same?)

set Session = CreateObject("Redemption.RDOSession")
Session.Logon
set objFolder = Session.GetDefaultFolder(9)
set Items = objFolder.Items
for i = 1 to Items.Count
set Mail = Items.Item(i)

'Item.Subject
PR_SUBJECT = &H0037001E
MsgBox Mail.Fields(&H0037001E)

'Item.Location - CdoAppt_Location CdoPropSetID1 & "0x8208"
Set objFields = Mail.Fields
MsgBox objFields.Item("{0220060000000000C000000000000046} 0x8208").Value
next

A little more help with the code could really help!

-Safal