Save and detach outlook attachment to Excel

[Crafty64]

Hi, I'm using the following code to search within my outlook excel attachments and save them to a specified path. However, after I save each excel attachment I then want to delete the attachment within outlook. I am using the following code which saves the files to excel fine but only seems to delete one attachment?


i = 0
For Each Item In SubFolder.Items
For Each Atmt In Item.Attachments
If Right(Atmt.FileName, 3) = "xls" Then
FileName = "R:\Doug\FP Rates\PAA\" & Atmt.FileName
Atmt.SaveAsFile FileName
Atmt.Delete
i = i + 1
End If
Next Atmt
Next Item

 

[wigi]

This modified procedure works excellent on my PC:

Sub test()


    For Each Item In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items
        For Each Atmt In Item.Attachments
            If Right(Atmt.Filename, 4) = "xlsx" Then
                Atmt.SaveAsFile "C:\" & Atmt.Filename
                Atmt.Delete
            End If
        Next
    Next


End Sub

It scans the Inbox and here and there I changed some of the coding, but only in a minor way.

 

[Crafty64]

Great, thanks!