Trying to access custom folders in other mailboxes

J

jack

I tried using the following code to access custom subfolders in another
users shared mailbox
however it returns an empty object, what am I doing wrong ?? (outlook 2003)

thanx for help in advance, Jack


Public Function GetSharedFolder(strFolderPath As String) As MAPIFolder
' folder path needs to be something like
' "Sales Department\Company\Sales"
' where first folder in path is the shared mailbox's fully resolvable name
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim myRecipient As Outlook.Recipient
Dim arrFolders() As String
Dim I As Long
On Error Resume Next

strFolderPath = Replace(strFolderPath, "/", "\")
arrFolders() = Split(strFolderPath, "\")
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set myRecipient = objNS.CreateRecipient(arrFolders(0))
Set objFolder = _
objNS.GetSharedDefaultFolder(myRecipient, olFolderSharedRoot)
If Not objFolder Is Nothing Then
For I = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(I))
If objFolder Is Nothing Then
Exit For
End If
Next
End If

Set GetSharedFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function
 
S

Sue Mosher [MVP-Outlook]

You can only use GetSharedDefaultFolder to return default folders from another mailbox. To get subfolders, you need to walk the folder hierarchy, starting with the top-level of the mailbox. You can use the original GetFolder() function, from which you apparently developed the function below.
 
J

jack

I got it working by using the GetFolder function and using the full folder
heirarchy
eg to access the folder Folder/SubFolder in mailbox Sales Dept, used the
following GetFolder("mailbox - Sales Dept/Folder/SubFolder")
needed the "mailbox - " in front of the mailbox user name for it to work

thanx, jack


You can only use GetSharedDefaultFolder to return default folders from
another mailbox. To get subfolders, you need to walk the folder hierarchy,
starting with the top-level of the mailbox. You can use the original
GetFolder() function, from which you apparently developed the function
below.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top