Vbscript 尝试将电子邮件从收件箱移动到子文件夹时出错

我需要编写VBS将特定电子邮件从收件箱移动到子文件夹。我是VBS新手，我有以下代码：

Set outobj = CreateObject("Outlook.Application")
Set myNamespace = outobj.GetNamespace("MAPI")
Set Inbox = myNamespace.GetDefaultFolder(olFolderInbox)
Set Items = Inbox.Items
Dim lngCount
For lngCount = Items.Count To 1 Step -1
  Set Item = Items(lngCount)
  If Item.Class = olMail Then
    If Item.SenderName = "Mail Delivery System" Then
     Set SubFolder = Inbox.Folders("CBIR")
     Item.Move SubFolder
    End If
  End If
Next

当我运行此命令时，会出现一个错误，错误是：

C:\Users\dmurphy54\AppData\Local\Temp\WinAutomation\jp0f1kguwqq.tmp（3，1）Microsoft VBScript运行时错误：无效的过程调用或参数：“myNamespace.GetDefaultFolder”

---

有人知道我如何解决这个问题吗？

我自己解决了这个问题。需要输入以下行：

Const olFolderInbox = 6

同样适用，但您需要Outlook类型库中的

olFolderInbox

值。解决了吗？