I'd probably use RDOSession myself:

Dim oSession As Redemption.RDOSession
Dim oFolder As Redemption.RDOFolder
Dim lastMod As Date

Set oSession = CreateObject(Redemption.RDOSession")
' use Application only in Outlook VBA, otherwise get Application object,
then get NameSpace.
oSession.MAPIOBJECT = Application.Session.MAPIOBJECT
Set oFolder = oSession.GetDefaultFolder(olFolderContacts)
lastMod = oFolder.Fields(&H30080040)

Note that lastMod will be in UTC and not in local time. Use MAPIUtils to do
the conversion using the HrGMTToLocal() method.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"ck" wrote in message
news
Hi Ken,

Thanks for the reply. I have checked the redemption website. The examples
showed is actually about the item in folder.

For example:

Dim utils, oItem, PrDate , Date
Set utils = CreateObject("Redemption.MAPIUtils")
Set oItem = Outlook.session.GetDefaultFolder(olFolderContacts) .Items(1)
'This is the line that point to contact item in contact folder
PrDate = &H30080040
Date= utils.HrGetOneProp(oItem.MAPIOBJECT, PrDate )
MsgBox Date

How about the folder last modification using Redemption.MAPIUtils? I am
getting it right?