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

Question

我需要编写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'

有人知道我该如何解决吗？

Answer 1

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

Const olFolderInbox = 6