PST location of a MAPIFolder

[Semut]

Hello, how to programatically detect the location of the PST for the
MAPIFolder/Namespace.

thank you.

 

[Michael Bauer]

Hi Semut,

the StoreID contains the path info:

Public Function GetPathFromStoreID(sStoreID As String) As String
On Error Resume Next
Dim i As Long
Dim lPos As Long
Dim sRes As String

For i = 1 To Len(sStoreID) Step 2
sRes = sRes & Chr$(GetHex(Mid$(sStoreID, i, 2)))
Next

sRes = Replace(sRes, Chr(0), vbNullString)
lPos = InStr(sRes, ":\")

If lPos Then
GetPathFromStoreID = Right$(sRes, (Len(sRes)) - (lPos - 2))
End If
End Function

Private Function GetHex(sValue As String) As String
GetHex = "&h" & sValue
End Function

 

[Dmitry Streblechenko]

Make sure you test this in both Outlook 2003 and the prior versions; Outlook
2003 uses Unicode, the prior versions use ANSI.

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

 

[Michael Bauer]

It works for both OL 2000 and OL 2003.

 

[Dmitry Streblechenko]

Cool! The
sRes = Replace(sRes, Chr(0), vbNullString)
line does it.

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

 

[Semut]

Wow, thanks.
So, that is how they get the store ID.
You are the man.