vbscript - VBScript を使用して Outlook から添付ファイルを自動的に保存する

Question

次のコードがあります。

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の受信トレイに自動的に保存するためのものです。これを機能させるための助けがあれば大歓迎です:)

ありがとう