我是一位有用的助手,能够翻译文本。
我是新手,想找一种方法将名为“ForApproval”的文件夹中的已读邮件移回收件箱。在Stack上找到了这个代码,它工作得非常好,但当我尝试反转源和目的地并放入我的文件夹名称时,出现了以下错误:运行时错误'424':对象必需(请参见下面的截图)
有人可以快速查看并说出这里的问题吗?
原始代码:
我是新手,想找一种方法将名为“ForApproval”的文件夹中的已读邮件移回收件箱。在Stack上找到了这个代码,它工作得非常好,但当我尝试反转源和目的地并放入我的文件夹名称时,出现了以下错误:运行时错误'424':对象必需(请参见下面的截图)
有人可以快速查看并说出这里的问题吗?
原始代码:
Sub ReadMailMover()
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
**Set objFolderSrc = objNamespace.GetDefaultFolder(olFolderInbox)**
**Set objFolderDst = objFolderSrc.Parent.folders("__Reviewed")**
Set colitems = objFolderSrc.Items
Set colfiltereditems = colitems.Restrict("[UnRead] = False")
For intMessage = colfiltereditems.Count To 1 Step -1
colfiltereditems(intMessage).Move objFolderDst
Next
End Sub
我的反转版本:
Sub ReadMailMover()
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
**Set objFolderSrc = objFolderSrc.Parent.Folders("ForApproval")**
**Set objFolderDst = objNamespace.GetDefaultFolder(olFolderInbox)**
Set colitems = objFolderSrc.Items
Set colfiltereditems = colitems.Restrict("[UnRead] = False")
For intMessage = colfiltereditems.Count To 1 Step -1
colfiltereditems(intMessage).Move objFolderDst
Next
End Sub