Vba 统计Sharedmailbox中的文件夹和子文件夹

我想知道我是否可以计算sharedmailbox中的文件夹和子文件夹

下面是我使用的一些代码，但它只适用于我的默认邮件帐户。 有没有办法修改它以从我的共享邮箱名称（AJ47框）中获取文件夹“Test”中的子文件夹数

使用

范例

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

---

谢谢，它工作得很好，我需要知道一些事情，如果我想只获取任何子文件夹的子文件夹，我会执行相同的过程？因为现在它只在我输入主文件夹的名称时起作用，我试图输入子文件夹的名称，我遇到了此错误（“对象不支持此属性或方法”）

TextBox2=GetSubFolderCount（olNs.GetSharedDefaultFolder（olRecip，olFolderInbox）.Folders（“ACTINGS”））

ACTINGS位于收件箱“收件箱/taks/代理项目/ACTINGS”中任务的“代理项目”中，谢谢@Om3r@RiadhSaïd有点困惑-：（？如果文件夹是

“Test”

的子文件夹，请尝试

（olRecip，olFolderInbox）.Folders（“Test”）.Folders（“ACTINGS”）

如果使用任务文件夹，则需要将

olFolderInbox替换为olFolderTasks

请参阅感谢Om3r它工作正常，我只是在尝试获取子文件夹下的子文件夹数量时有点困惑。感谢您抽出时间：）非常感谢@Om3r

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