Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Add-ins for Outlook (http://www.outlookbanter.com/add-ins-outlook/)
-   -   RDOSession (http://www.outlookbanter.com/add-ins-outlook/65284-rdosession.html)

CK January 17th 08 11:36 AM

RDOSession
 
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 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



Dmitry Streblechenko January 18th 08 05:34 PM

RDOSession
 
Do you see the changes in OutlookSpy (click IMAPIFolder, locate the
PR_LAST_MODIFICATION_TIME property) or MFCMAPI?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"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 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 January 21st 08 02:01 AM

RDOSession
 

Hi Dmitry,

I didn't see the value PR_LAST_MODIFICATION_TIME property in IMAPIFolder.
According to Sue and Ken, the property doesn't existing in folder. Thanks.


"Dmitry Streblechenko" wrote:

Do you see the changes in OutlookSpy (click IMAPIFolder, locate the
PR_LAST_MODIFICATION_TIME property) or MFCMAPI?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"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 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






Dmitry Streblechenko January 22nd 08 09:03 PM

RDOSession
 
It is exposed on the Exchange folders, but not the PST ones.
What exactly are you trying to do?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"ck" wrote in message
...

Hi Dmitry,

I didn't see the value PR_LAST_MODIFICATION_TIME property in IMAPIFolder.
According to Sue and Ken, the property doesn't existing in folder. Thanks.


"Dmitry Streblechenko" wrote:

Do you see the changes in OutlookSpy (click IMAPIFolder, locate the
PR_LAST_MODIFICATION_TIME property) or MFCMAPI?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"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 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








All times are GMT +1. The time now is 12:22 PM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com