Redemption and FreeBusy

  • Thread starter Thread starter Tom Trulley
  • Start date Start date
T

Tom Trulley

Hello!

I'm trying to use FreeBusy Information with Redemption. I use the
following code:

Dim safeRecip
Dim mapiUtil
Set mapiUtil = CreateObject("Redemption.MAPIUtils")
Set safeRecip = mapiUtil.CreateRecipient(myName)
safeRecip.Resolve
freeBusyString = safeRecip.FreeBusy(currentDate,MinutesInterval,false)

This is what freeBusyString contains:

/????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

When I use it without redemption:

Dim recip
Set recip = gNamespace.CreateRecipient(myName)
recip.Resolve
freeBusyString = recip.FreeBusy(currentDate,MinutesInterval,false)

freeBusyString now contains useful information.

I checked that currentDate is a Date, myName is an existing Name,
recip/safeRecip is a working recipient object and MinutesInterval is a
valid number.

I tried to use safeRecip.AddressEntry.GetFreeBusy instead, and I even
tried to create a SafeMailItem first, add a Recipient to it and then
tried to use FreeBusy. All didn't work.

I'm using Outlook 2003 with Exchange Server 2003. Above code doesn't
work with any name (including my name) and any date.

Any Idea?
 
Hmmm... If you have OutlookSpy installed, can you try the following?
Select "Public Folders" in Outlook, click IMsgStore button on the OutlookSpy
toolbar. Select PR_FREE_BUSY_FOR_LOCAL_SITE_ENTRYID property, right-click,
select IMAPISession::OpenEntry.
In the IMAPIFolder window go to the GetContentsTable tab. Find a message
corresponding to a recipient in question and double click on it. Can you see
0x68501102, 0x68521102, 0x68541102, 0x68561102, 0x684F1003, 0x68531003,
0x68551003 properties?

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

I found the FreeBusy Folder by using this code:

Set CdoSession = CreateObject("MAPI.Session")
CdoSession.Logon vbNullString, vbNullString, False, False, 0
Set CdoRootFolder = CdoSession.GetFolder("")
Set CdoFolder = CdoRootFolder.Folders.Item("Freebusy Data")
Set CdoMessages = CdoFolder.Messages
[...]

But I don't know how to use this data with CDO or Simple MAPI. I found
your explanations at
http://peach.ease.lsoft.com/scripts/wa.exe?A2=ind0104&L=mapi-l&P=R14480&I=-3
, but I don't understand it and I don't want to use Extended MAPI.
 
Next Addition to my last post

I installed OutlookSpy to a new PC and now I was able to check these
properties. This is what I got for one recipient:


0x68501102 (PT_MV_BINARY) =
cb:52, lpb: 62 07 80 07 BC 07 52 08 AC 08 24 09 02 0D D4 0D 1A 13 B0
13 42 18 14 19 00 1E 3C 1E 78 1E 96 1E B4 1E E0 1F C2 2E 76 2F 0C 30
2A 30 62 34 34 35 02 94 00 96


0x68521102 (PT_MV_BINARY) = cb:8, lpb: 5A 1E 78 1E 5C 3A 7A 3A


0x68541102 (PT_MV_BINARY) =
cb:52, lpb: 62 07 80 07 BC 07 52 08 AC 08 24 09 02 0D D4 0D 1A 13 B0
13 42 18 14 19 00 1E 3C 1E 78 1E 96 1E B4 1E E0 1F C2 2E 76 2F 0C 30
2A 30 62 34 34 35 02 94 00 96


0x68561102 is missing !!!


0x684F1003 (PT_MV_LONG) = 32066


0x68531003 (PT_MV_LONG) = 32066
 
Hmmm... Can you save that message as an MSG file (click "Save as MSG file"
button in the IMessage window) and e-mail it to me?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
Sent it to you via eMail.

Dmitry Streblechenko \(MVP\) said:
Hmmm... Can you save that message as an MSG file (click "Save as MSG file"
button in the IMessage window) and e-mail it to me?

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