![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#3
|
|||
|
|||
![]()
Ok, thank you, is this the only solution ?
Dmitry Streblechenko ha scritto: 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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|