Per salavre gli allegati di Outlook apre l'editor vba di Outlook e scrivere:

Sub scarica_tutti_allegati()
Const olFolderInbox = 6
Dim olkApp As Object, _
olkInbox As Object, _
olkItem As Object, _
olkAttach As Object
Set olkApp = CreateObject("Outlook.Application")
Set olkInbox = olkApp.Session.GetDefaultFolder(olFolderInbox)

For Each olkItem In olkInbox.Items
If olkItem.Attachments.Count > 0 Then
For Each olkAttach In olkItem.Attachments
olkAttach.SaveAsFile "C:\tuo_percorso\" & olkAttach.FileName
Next
End If
Next
End Sub

Modificando il path C:\tuo_percorso\ con la dedtinazione voluta.

Sintassi prelevata in rete.