Option Explicit

Dim intO As Integer

Sub gerg()
Dim flr As Outlook.MAPIFolder
intO = 0
For Each flr In Application.Session.Folders
Call FindSubfolders(flr)
Next
End Sub

Sub FindSubfolders(flr As MAPIFolder) 'просматривает все вложенные папки
Dim flr2 As MAPIFolder
intO = intO + 1
For Each flr2 In flr.Folders
If flr2.Name = "НУЖНАЯ НАМ ПАПКА" Then
'для удаления вложений из сообщений только данной папки
Call FindAttachments(flr2)
End If
If flr2.Folders.Count > 0 Then
'если есть вложенные папки идем на рекурсию
Call FindSubfolders(flr2)
End If
Next
intO = intO - 1
End Sub


Sub FindAttachments(flr2 As MAPIFolder)
Dim mli As MailItem
Dim att As Attachment

For Each mli In flr2.Items
If mli.Attachments.Count > 0 Then
Debug.Print mli.ReceivedTime & " " & mli.SentOn
For Each att In mli.Attachments
If MsgBox("Удалить файл '" & att.FileName & _
"' из сообщения " & vbCrLf & _
"от '" & mli.SenderName & "' для '" & _
mli.Recipients.Item(1).Name & vbCrLf & _
"' (получено/отправлено: " & mli.ReceivedTime & _
") ?", vbYesNo + vbQuestion + vbDefaultButton2, _
"Удаления вложения") = vbYes Then att.Delete
Next
End If
Next
End Sub

Данная конструкция работает при открытом Outlook'е из окна VBA самого Outlook'а. Для вызова Outlook'а извне надо создать переменную для ссылки на объект Outlook.Application, а уже к ней привязать переменные для всех остальных объектов (папок, вложений...)

PS: Блин, все отступы полетели. :( А так красиво было... ;)

Да, забыл написать: переменная intO не нужна - пользовался при отладке, забыл удалить.