only one attachemnt saved

Hello

I have following code


For Each Item In SubFolder.Items
For Each Atmt In Item.Attachments
If LCase(Right(Atmt.FileName, Len(ExtString))) = LCase(ExtString) Then
FileName = DestFolder & Item.SenderName & SenderEmailAddress & " " & Atmt.FileName
Atmt.SaveAsFile FileName
I = I + 1


End If
Next Atmt
Next Item

i tried diffrent methods including Item.Attachemnt.Count but only one attachment (from 2 ) is saved.....