The bug is in Outlook.
plugRedemption, on the other hand, will work correctly.And not not just in
Outlook 2007:

skPstAnsi = 1
skPstUnicode = 2
skPrimaryExchangeMailbox = 3
skDelegateExchangeMailbox = 4
skPublicFolders = 5
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Me.Application.Session.MAPIOBJECT
for each Store in Session.Stores
if (Store.StoreKind = skPstAnsi) or (Store.StoreKind = skPstUnicode) Then
Debug.Print Store.PstPath
ElseIf (Store.StoreKind = skPrimaryExchangeMailbox) or (Store.StoreKind =
skDelegateExchangeMailbox) or (Store.StoreKind = skPublicFolders) Then
Debug.Print Store.ServerDN
End If
next

/plug

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"af2604" wrote in message
...
I'm trying to develop an addin for OutLook 2007 using Visual Studio 2008
Visual Basic.

In my outlook 2007 I have 2 accounts:

this is using the OUTLOOK.PST file
using : OUTLOOK.xxx.yyy.0000001.PST file

I'm trying this simple code :

ColStores = Me.Application.Session.Stores
Debug.Print("+---- start ----------------------------------------")
Debug.Print("| stores count =" + ColStores.Count.ToString)
Debug.Print("+---------------------------------------------------")
For i = 1 To ColStores.Count
FilePathName = ColStores(i).GetRootFolder.Store.FilePath
Debug.Print("| i =" + i.ToString + " " + FilePathName)
Next
Debug.Print("+---- end -------------------------------------------")

this is the output

+---- start ----------------------------------------
| stores count =2
+---------------------------------------------------
| i =1 C:\Documents and Settings\...\Microsoft\Outlook\Outlook.pst
| i =2
+---- end -------------------------------------------

FilePathName for i = 2 is set to nothing

the stores count : 2 is correct but why there is not the path and file
name of the PST file used by the IMAP account ?

Thanks a lot

Alberto