determine local/remote folder

  • Thread starter Thread starter Rasmus Watjen
  • Start date Start date
R

Rasmus Watjen

When getting the folder tree from Outlook starting at NameSpace.Folders,
and then Folder.Items.Folders, etc., how can I determine whether a
folder is located in the following:

PST file
User's own mailbox
Public folders


Thank you.

Rasmus
 
What version or versions of Outlook do you intend to support? What API's are
you using for Outlook?

If using Outlook 2003 for example you can use this:
NameSpace.GetDefaultFolder(olPublicFoldersAllPublicFolders )

to get the All Public Folders folder as a MAPIFolder. You can then read the
StoreID of that folder and use it for comparison with other folders to see
if the store is a public folders store.

Using GetDefaultFolder(olFolderInbox) to get a MAPIFolder and then its
StoreID will give you the id for the default store, mailbox or PST file.

Convert the StoreID into a Byte array of binary values and then convert that
into a string. If inside the string you find "EMSMDB.DLL" it's an Exchange
store. If inside the string you find "MSPST.DLL" or "PSTPRX.DLL" it's a PST
file.
 
Ken said:
What version or versions of Outlook do you intend to support? What API's
are you using for Outlook?
Click to expand...
I would like to support Outlook 2000 and newer. I am using the COM
interface, but the same methods should work inside Outlook in VBA.
The connection code is:
outlook = CreateOleObject('Outlook.Application');
NameSpace = outlook.GetNameSpace('MAPI');
etc.
If using Outlook 2003 for example you can use this:
NameSpace.GetDefaultFolder(olPublicFoldersAllPublicFolders )
to get the All Public Folders folder as a MAPIFolder. You can then read
the StoreID of that folder and use it for comparison with other folders
to see if the store is a public folders store.
Click to expand...
I like that way because it is simple to do on a folder-by-folder basis.
Is it possible to do something similar in versions prior to 2003? It
must support foreign language installations, so I cannot simply search
for the "Public folders" folder, it may be named something else.
Using GetDefaultFolder(olFolderInbox) to get a MAPIFolder and then its
StoreID will give you the id for the default store, mailbox or PST file.
Click to expand...
The default folder for inbox may be located in a public folder, is that
not correct? So the store id would not be the same as a folder located
in the user's own mailbox?
Convert the StoreID into a Byte array of binary values and then convert
that into a string. If inside the string you find "EMSMDB.DLL" it's an
Exchange store. If inside the string you find "MSPST.DLL" or
"PSTPRX.DLL" it's a PST file.
Click to expand...
That is nice to know.

Thank you for your tips so far.

Best regards,
Rasmus
 
When you get the default Inbox folder it's always in your default mailbox or
PST file. It can never be in a non-default store or a public folder.

Unfortunately the only language-independent method of seeing if a folder is
in a public folder store uses CDO 1.21 (optional installation with Outlook
2000 and later). It can also be done with Extended MAPI (C++ or Delphi code
only) or the forthcoming version of Redemption (www.dimastr.com) using the
new RDOSession object.

CDO 1.21 code would look something like this:

Public Function IsPublicFoldersStore(strStoreID As String) As Boolean
Dim g_objCDO As MAPI.Session
Dim objRootFolder As MAPI.Folder
Dim objField As MAPI.Field
Dim objStore As MAPI.InfoStore

On Error Resume Next

Set g_objCDO = CreateObject("MAPI.Session")
g_objCDO.Logon "", "", False, False

Set objStore = g_objCDO.GetInfoStore(strStoreID)

With objStore
If .ProviderName = "Microsoft Exchange Server" Then
Set objRootFolder = .RootFolder
If objRootFolder.Name = "IPM_SUBTREE" Then
Err.Clear
Set objField = .Fields.Item(PR_IPM_PUBLIC_FOLDERS_ENTRYID)
If Err Then
IsPublicFoldersStore = False
Else
If objField <> "" Then
IsPublicFoldersStore = True
Else
IsPublicFoldersStore = False
End If
End If
Else
IsPublicFoldersStore = False
End If
Else
IsPublicFoldersStore = False
End If
End With

Set objRootFolder = Nothing
Set objField = Nothing
Set objStore = Nothing
End Function
 
Back
Top