Uma resposta ampla dada a sua pergunta não foi muito detalhada
- ou seja, o que você quer dizer com ler,
- todas as mensagens em uma pasta, etc.)
Você pode remover todos os arquivos do Excel de todas as mensagens de uma pasta do Outlook com o seguinte VBA
Este código analisa mensagens em uma pasta do Outlook chamada "temp" abaixo da caixa de entrada Quaisquer arquivos do Excel como anexos são salvos em C: \ test
Outro código de amostra em link
Sub SaveOlolAttachments()
Dim olFolder As Outlook.MAPIFolder
Dim olMsg As Outlook.MailItem
Dim olAtt As Outlook.olAttachment
Dim fsSaveFolder As String
strSaveFolder = "C:\test\"
'My testing done in Outlok using a "temp" folder underneath Inbox
Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("Temp")
If olFolder Is Nothing Then Exit Sub
For Each olMsg In olFolder.Items
For Each olAtt In olMsg.olAttachments
If Right$(olAtt.FileName, Len(olAtt.FileName) - InStrRev(olAtt.FileName, ".")) Like "xl?*" Then olAtt.SaveAsFile fsSaveFolder & olAtt.FileName
Next
Next
End Sub