The following macro will loop through each item in your Test folder. And, for each item, it first checks to make sure that it's a MailItem, then it downloads any and all attachments from the MailItem to the specified folder (change as desired where specified in the code).
Note that if a file by the same name already exists in the destination folder, it will be overwritten.
VBA Code:
Option Explicit
Sub DownloadEmailAttachments()
Dim saveToFolderName As String
saveToFolderName = "c:\users\domenic\desktop\" 'change the destination folder name accordingly
If Right(saveToFolderName, 1) <> "\" Then
saveToFolderName = saveToFolderName & "\"
End If
Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")
Dim outlookNamespace As Object
Set outlookNamespace = outlookApp.getnamespace("MAPI")
Dim testFolder As Object
'Set testFolder = outlookNamespace.Folders("Outlook").Folders("CI Dashboard").Folders("Test") 'change the name of the main folder accordingly
Dim outlookFolderItem As Variant
Dim outlookEmailAttachment As Object
For Each outlookFolderItem In testFolder.items
If TypeName(outlookFolderItem) = "MailItem" Then
For Each outlookEmailAttachment In outlookFolderItem.attachments
outlookEmailAttachment.SaveAsFile saveToFolderName & outlookEmailAttachment.Filename
Next outlookEmailAttachment
End If
Next outlookFolderItem
Set testFolder = Nothing
Set outlookNamespace = Nothing
Set outlookApp = Nothing
MsgBox "Completed!", vbInformation
End Sub
Hope this helps!
