Hi,

Does folder has last modification date property like contact/task item?

Thanks

Folders don't expose that property to the Outlook object model before
Outlook 2007. However, if you are using Outlook 2007 you can use the
PropertyAccessor with the DASL tag "DAV:getlastmodified" to get that
information.

You can also use CDO 1.21 or Extended MAPI or a MAPI wrapper such as
Redemption (www.dimastr.com/redemption) to get that information using the
MAPI property tag PR_LAST_MODIFICATION_TIME (0x30080040).

--
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
...
Hi,

Does folder has last modification date property like contact/task item?

Thanks

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?


"Ken Slovak - [MVP - Outlook]" wrote:

Folders don't expose that property to the Outlook object model before
Outlook 2007. However, if you are using Outlook 2007 you can use the
PropertyAccessor with the DASL tag "DAV:getlastmodified" to get that
information.

You can also use CDO 1.21 or Extended MAPI or a MAPI wrapper such as
Redemption (www.dimastr.com/redemption) to get that information using the
MAPI property tag PR_LAST_MODIFICATION_TIME (0x30080040).

--
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
...
Hi,

Does folder has last modification date property like contact/task item?

Thanks

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?

Hi Ken,

I tried RDOSession but the oFolder.Fields(&H30080040) value is = Empty.
Then i tried to change the name of the contact default folder to make sure
the folder is really changed. Try again but oFolder.Fields(&H30080040) still
empty.

By the way, you commented that:

"use Application only in Outlook VBA, otherwise get Application object, then
get NameSpace."

Why Application only in Outlook VBA? I tried Application in VB6 Com Add-In
and it seems to work fine.

Thanks.

"Ken Slovak - [MVP - Outlook]" wrote:

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?

The code works here. I used this test Sub in the Outlook VBA:

Sub TestFolderModificationDate()
Dim oSession As Redemption.rdoSession
Dim oFolder As Redemption.rdoFolder
Dim oUtils As Redemption.MAPIUtils
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 oUtils = CreateObject("Redemption.MAPIUtils")
oUtils.MAPIOBJECT = oSession.MAPIOBJECT

Set oFolder = oSession.GetDefaultFolder(olFolderContacts)
lastMod = oFolder.Fields(&H30080040)

Debug.Print "UTC time: " & CStr(lastMod)
lastMod = oUtils.HrGMTToLocal(lastMod)
Debug.Print "local time: " & CStr(lastMod)
End Sub

The output values matched with what I see in OutlookSpy.

Of course that test doesn't have error handling and it doesn't release
objects, etc. but it works.

Application is the Outlook.Application object intrinsically in Outlook VBA.
In Word VBA Application is Word.Application, etc.

In a VB6 COM addin you get Application passed to you in OnConnection() and
that's also a local (to that event handler) Outlook.Application object. Of
course you'd declare a variable to make that available in the rest of your
code.

--
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
...
Hi Ken,

I tried RDOSession but the oFolder.Fields(&H30080040) value is = Empty.
Then i tried to change the name of the contact default folder to make sure
the folder is really changed. Try again but oFolder.Fields(&H30080040)
still
empty.

By the way, you commented that:

"use Application only in Outlook VBA, otherwise get Application object,
then
get NameSpace."

Why Application only in Outlook VBA? I tried Application in VB6 Com Add-In
and it seems to work fine.

Thanks.