Sub ProcessFolder2(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim olNewFolder As Outlook.MAPIFolder
Dim olTempItem As Object

For Each olNewFolder In CurrentFolder.Folders
Set TestItems = olNewFolder.Items 'пробегаем по всем items
For Each itm In TestItems
Set myAttach = itm.Attachments 'пробегаем по всем attachments в каждом item

While myAttach.Count > 0
myAttach.Remove 1 'kill
Wend
Next itm


If olNewFolder.Name <> "Deleted Items" Then
ProcessFolder olNewFolder
End If

Next
End Sub

Так вот этот код, если выполнять по шагам — все отлично ! удаляются все прикрепленные файлы из всех писем, но !!! компилишь — и ничего подобного — удаляются только файлы текущего (активного) письма. Не пойму ! Может быть альтернативный вариант кто- то предложит