Zähle Ordner und Unterordner in Sharedmailbox

Question

Ich würde gerne wissen, ob ich Ordner und Unterordner in sharedmailbox zählen kann;

Hier ist ein Code, den ich verwende, aber es funktioniert nur für meine Standard-Mail-Konto. die Anzahl der Unterordner im Ordner "Test", um von meinem freigegebenen Postfach Namen (AJ47 BOX)

Private Sub CommandButton1_Click() 

Dim outapp As Outlook.Application 
Set outapp = CreateObject("Outlook.Application") 
Dim olNs As Outlook.NameSpace 
Set olNs = outapp.GetNamespace("MAPI") 
Dim olFolder As Outlook.MAPIFolder 


TextBox1 = GetSubFolderCount(olNs.GetDefaultFolder(olFolderInbox).Folders("Tmp")) 


End Sub 

Private Function GetSubFolderCount(objParentFolder As MAPIFolder) As Long 

Dim currentFolders As Folders 
Dim fldCurrent As MAPIFolder 

Set currentFolders = objParentFolder.Folders 
If currentFolders.Count > 0 Then 
    Set fldCurrent = currentFolders.GetFirst 
    While Not fldCurrent Is Nothing 
     TempFolderCount = TempFolderCount + GetSubFolderCount(fldCurrent) 
     Set fldCurrent = currentFolders.GetNext 
    Wend 
    GetSubFolderCount = TempFolderCount + currentFolders.Count 
Else 
    GetSubFolderCount = 0 
End If 



End Function 

Answer 1

Verwenden GetSharedDefaultFolder Method

Beispiel

Dim olRecip As Recipient 
Set olRecip = olNs.CreateRecipient("om3r@email.com") '// Owner's Name or email address 

TextBox1 = GetSubFolderCount(olNs.GetSharedDefaultFolder(olRecip, olFolderInbox).Folders("Test"))