"FE" <fr******@esnouf.net> wrote in message
news:ec**************@tk2msftngp13.phx.gbl
Guys,
I need to create a program (VB) to dump the outlook profile of a
user.
By dump I mean a report such as :
User : Mr A
* Folder 1 : exchange mailbox
* Folder 2 : c:\data\pst1.pst
* Folder 2 : c:\data\pst2.pst
I have no problem to do this with the outlook component, except that
I don't find any property find the path of the PST (c:\data\pst1.pst)
AFAIK, it isn't directly exposed via any object available to VB; you can
always scan the registry and read the info there.
It is possible to get it via the StoreID property of the folders but the
value is buried inside a hex string and you'd have to pull that apart
yourself:
Private Sub Main()
Dim o As Outlook.Application
Dim n As NameSpace
Dim f As MAPIFolder
Dim s As String
Dim x As Long
Set o = CreateObject("outlook.application")
Set n = o.GetNamespace("MAPI")
n.Logon
For Each f In n.Folders
Debug.Print f.Name
s = f.StoreID
Debug.Print s
For x = 1 To Len(s) - 1 Step 2
Debug.Print Chr$("&H" & Mid$(s, x, 2));
Next
Debug.Print
Next
n.Logoff
Set n = Nothing
Set o = Nothing
End Sub
