> 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>
>