此代码失败:
Sub Clear_ItemCount()
Dim oAccount As MAPIFolder
Set oAccount = Application.Session.Folders("myaccount@gmail.com")
Dim oInbox As MAPIFolder
Set oInbox = oAccount.Folders("Inbox")
oInbox.ShowItemCount = olNoItemCount
Set oInbox = Nothing
Set oAccount = Nothing
End Sub
根据this article,似乎应该有效。它说它不适用于“公共”文件夹,但是,基于this article,我认为“公共”文件夹是Exchange服务器上的共享文件夹(不使用Exchange服务器)。
有办法做到这一点吗?