The bug is in Outlook.
<plug>Redemption, 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" <af2604@yahoo.it> wrote in message
news:Ogq58XYyIHA.2184@TK2MSFTNGP02.phx.gbl...
> I'm trying to develop an addin for OutLook 2007 using Visual Studio 2008
> Visual Basic.
>
> In my outlook 2007 I have 2 accounts:
>
> my.name@pop3.mail this is using the OUTLOOK.PST file
> my.name@imap.mail 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
>