Outlook VBA: Copy nested PDF files in attached emails to folder on desktop.

[mamero]

I regularly receive one email that has 50 or more emails attached to it. Each of those attached emails in turn has a PDF file attached to it. It is extremely time consuming to open the primary email, then open each individual attached email, then drag/copy each nested PDF file to a desktop folder.

Could someone kindly post VBA code that will copy all nested file attachments from the attached emails to a desktop folder. I have tried to adapt various code I've found but so far I am not getting anywhere.

 

[John_w]

Take it step by step. First find Outlook VBA code which loops through the attachments in the single email and saves them as .msg files in a folder on your local drive. Then loop through the .msg files (using a Dir function loop) and open each one and save the PDF attachment to your desktop subfolder. For the latter, see https://www.mrexcel.com/forum/excel...s-embedded-items-post3875460.html#post3875460

Post back if you need more help!