使用VBScript从outlook自动保存附件

我有以下代码：

Option Explicit 
Dim WithEvents TargetFolderItems As Items 
 'set the string constant for the path to save attachments
Const FILE_PATH As String = "H:\Attachment" 

Private Sub Application_Startup() 
    Dim ns As Outlook.NameSpace 
    Set ns = Application.GetNamespace("MAPI") 
    Set TargetFolderItems = ns.Folders.Item( _ 
    "Inbox").Folders.Item("BS CDGL").Items 
End Sub 

Sub TargetFolderItems_ItemAdd(ByVal Item As Object) 
    Dim olAtt As Attachment 
    Dim i As Integer 

    If Item.Attachments.Count > 0 Then 
        For i = 1 To Item.Attachments.Count 
            Set olAtt = Item.Attachments(i) 
             'save the attachment
            olAtt.SaveAsFile FILE_PATH & olAtt.FileName 
        Next 
    End If 

    Set olAtt = Nothing 
End Sub 

Private Sub Application_Quit() 
    Dim ns As Outlook.NameSpace 
    Set TargetFolderItems = Nothing 
    Set ns = Nothing 
End Sub

它在第2行第16个字符处抛出一个错误，“TargetFolderItems”部分，该代码用于自动保存Outlook收件箱中电子邮件的附件，如有任何帮助，将不胜感激：）

---

谢谢

错误消息/代码是什么？错误代码是800A0401这在类模块中？（必须与事件一起使用）这个问题是关于VBScript（如标记所示）还是关于VBA（如代码所示）？您在哪里运行代码（命令行、宏等）？