Hi welshgasman, i got your version working well and added a bit more code:
Added this part to prompt a user if they have forgot to move to an email with expected files attached
Code:
If iCount = 0 Then MsgBox ("There Are No Attchments On This E-Mail"), vbInformation + vbOKOnly, "NO ATTACHMENTS"
Else
And this part in case we don't want to delete from the email:
Code:
oAttachments.Item(i).SaveAsFile sFile If MsgBox("You Have Saved " & iCount & " Files To:" & vbNewLine & vbNewLine & _
"To: " & sFolderPath & vbNewLine & vbNewLine & _
"Do You Want To Delete Them From The E-Mail ?", vbQuestion + vbYesNo, "CONFIRMED") = vbNo Then
DoCmd.CancelEvent
Else
' Delete the attachment.
oAttachments.Item(i).Delete
End If
My next part of this, if we get images uploaded to a website as per image below, is there similar method of saving these files then opening ? I think the files are a link to an image on the web server i guess ?
Once saved to maybe a folder called "webpics" then loop through and use something like Application.FollowHyperlink method ?