Выгрузка файлов из MS Outook

Set myOlApp = CreateObject('Outlook.Application')
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile 'C: ' & myAttachments.Item(1).DisplayName

Private Sub Application_NewMail()
AppPath = "C:\Email\Attach " & Format(Date, "yyyymmdd")
On Error Resume Next
MkDir AppPath
On Error GoTo 0
    Set OlApp = New Outlook.Application
    Set NmSpace = OlApp.GetNamespace("MAPI")
    Set FldrInbox = NmSpace.GetDefaultFolder(olFolderInbox)
    For x = 1 To FldrInbox.Items.Count
        Set CurrItem = FldrInbox.Items(x)
        For i = 1 To CurrItem.Attachments.Count
            AttachPathName = AppPath & " "
CurrItem.Attachments.Item(i).FileName
            CurrItem.Attachments.Item(i).SaveAsFile AttachPathName
        Next i
    Next x
End Sub

For x = 1 To FldrInbox.Items.Count ' - убрать строку
        Set CurrItem = FldrInbox.Items(x) ' вместо х или 0 или 1 или FldrInbox.Items.Count скорей всего последнее надо пребовать.
        For i = 1 To CurrItem.Attachments.Count
            AttachPathName = AppPath & " " CurrItem.Attachments.Item(i).FileName
            CurrItem.Attachments.Item(i).SaveAsFile AttachPathName
        Next i
    Next x ' - убрать строку