Download Attachments From Multiple Emails

Hello Friends,
In this video you will learn how to download the attachments from multiple emails by using Excel VBA and Outlook.
Please download this excel file from below given link:
www.pk-anexcel...
Learn how to consolidate the files data from the folder
• Data Consolidation and...
• Data Consolidation and...
Watch the best info-graphics and dynamic charts from below link:
• Dynamic Graphs
Learn and free download best excel Dashboard template:
• Excel Dashboards
Learn Step by Step VBA:
• VBA Tutorial
Website:
www.PK-AnExcel...
Facebook:
/ pkan-excel-expert-9748...
Pinterest:
/ pkanexcelexpert
Telegram:
t.me/joinchat/...
Twitter:
/ priyendra_kumar
Send me your queries on telegram:
@PKanExcelExpert

[@MahbubAshrafi]

It is a life saver. Thank you so much.

[@PKAnExcelExpert]

Most welcome🙏

[@ProfGillett]

Extremely helpful. 2 hours of coding saved me about a day of labor. My first VB script!

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@slashsplat]

My compliments. I followed your instructions manually without downloading your file and the macro worked perfectly. Thank you.

[@9901028711]

No body can beat you sir

[@PKAnExcelExpert]

Thanks

[@rashmitomer8585]

PK Sir, Awesome, Folder may have many emails, can we give a date range between them VBA should check and download the attchments

[@MrSakizci]

Very helpful video. i used the code it works but i come across a problem: just last 15 email attachments were downloaded but i had 100 emails. What should i do here? Any recommendations?

[@SwahiliSpicE]

Hi, I have hundreds of emails with zip folders attached. I need to automate the unzipping and then download all the pdf files from the folder. Is it possible?

[@ameygirkar245]

Thank you so much it saves a lot of time

[@PKAnExcelExpert]

Most welcome

[@bsbb2414]

Thanks for the such videos, can you please help me on that If the attached file name is same then how we saved the all the attached files.

[@akuryu9114]

Hello, thank you very much for this tool! I 'm trying to download all attachments from my gmail account in outlook, however I have the following error: Run time error '13': Type mismatch and on debugging mode, I have "next" which is highlighted

[@KingPriestMinistries]

Hello, I used this process in downloading multiple pdfs and it worked smoothly. One question, When creating those columns in the Sheet1, could I add another column to display the actual email addresses that sent those attachments?

[@alokrocks8]

Thanks pal, you really helped me a lot, God bless you!

[@PKAnExcelExpert]

Glad to hear it!

[@rperez4852]

Thank you sir!

[@PKAnExcelExpert]

You are welcome!

[@AAA-mq9jj]

Awesome, will help me sort out the attachments easily now

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@yehuang262]

Thanks a lot! But there is one more question, if multiple attachments have the same name, it will only download one (others will be replaced by the last one I guess), is there a solution for that? Thanks again!

[@Santiago3_18]

Ye HUANG did you find any solution to your questions currently I hace this issue please help if you find the solution...regards

[@bolambaoregie3220]

same issue to me. Can anyone share your solutions on this on how not to overwrite the file. My brain is draining thingking of way how to do it...

[@SnehitaKitchen]

Thanks a lot for providing valuable info. But am facing one issue like in mail folder i have 30 files, but its downloading less than that count. Can you give solution for this please

[@9901028711]

Hatts off you sir

[@PKAnExcelExpert]

Thanks

[@chuansirinimitwong3322]

Thank you very much. This works for me.

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@eyassin3792]

Hello, thank you, it's very helpful. I applied all what you have described in the video but when I hit download all the numbers show in the excel sheet but nothing was saved in the folder, how can I fix this issue.

[@ameygirkar245]

Check the folder path or just copy the folder path and paste

[@wesgarner3964]

Thanks PK. I have a question: All of the attachments included in the emails all have the same name. Is there something I can write that will save each file under a new version name? Thanks again

[@stevenbergstein7277]

I added the received datetime as a suffix to the attachment filename by changing the save command to: at.SaveAsFile sh.Range("F1").Value & "\" & fso.GetBaseName(at.Filename) & "-" & Format(msg.ReceivedTime, "yyyymmddHHmmss") & "." & fso.GetExtensionName(at.Filename)

[@Santiago3_18]

@@stevenbergstein7277 hello man could you please explain me if I have to define the variable "fso" at the begining of the VBA script? I'm not expert un macros and these área My first self efforts to write script. Thanks! If you can share your code it will be helpful thanks .

[@stevenbergstein7277]

@@Santiago3_18 Yes, you have to define fso at the beginning of the script like this: Dim fso As New Scripting.FileSystemObject You'll also need to use Tools/References to enable Microsoft Scripting Runtime. fso is a VBA object that gives the script access to a number of file system methods, in this case, methods that help to parse various components of the file location.

[@Santiago3_18]

@@stevenbergstein7277 thanks for tour time to explain me this I will try yo work on the script, thanks.

[@Santiago3_18]

Yeeessss I got ir, really really thanks man! God bless you!

[@sumithrab4260]

Hi Friend. Thanks a lot. Kindly let us if we want to download both pdf and xls format

[@PKAnExcelExpert]

Please make the changes in the if condition in the VBA code accordingly.

[@coolboy0471]

Do we have the option to download attachments from specific person with specific subject? Thanks in advance.

[@sairamakanthch938]

Really thanks

[@PKAnExcelExpert]

Most welcome🙏

[@sadafmfdasfasdewrl5768]

Dear PK I am getting Type Mismatch 13 error on the line: For Each msg In fo.Items I am using the file you've uploaded. I have the Outlook Library referenced. I am using o365. Can you please advise? Thanks in advance!

[@rcmregalaryo1675]

Best content i have ever watched on yt Thank you so much Sir for sharing Ps. Kindly show also how to extract FILENAME of attachment at column C Many thanks 🙏

[@PKAnExcelExpert]

Will upload soon

[@rcmregalaryo1675]

@@PKAnExcelExpert Thank you so much Sir 👍

[@Bharani_0601]

Thank you Pk. You are the best. Can we have file name instead of Attachment count ?

[@PKAnExcelExpert]

Thanks for your valuable feedback. Yes we can have it. Need to make some changes in the code

[@abinaya7069]

hi this is really help full... could you please advise me how i can add multiple format attachment like pdf... thanks

[@mtlb0280]

Thanks you brother

[@stevenbergstein7277]

Thanks. This was great - saved me a bunch of dev time.

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@AzamBhuiyan]

You are the best. You are too good man. Can you also suggest how to download files of different kinds e.g. PDF, doc, and docx at the same time? Is it possible?

[@amroabdelkarim6080]

Thanks PK, saved me lots of work

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@staytune8989]

Very good vedio, i have created macro for my use. thanks a lot PK.

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@davecks3042]

As usual , you are amazing

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@sureshraji8229]

Hi Brother, Thanks for this wonderful Video. Can you please confirm how to Add file name for the attachments? Please confirm the coding?

[@PKAnExcelExpert]

I will try to add this in the next version of this video

[@tuzionvidz1061]

Thank you sir! This helps a lot.

[@PKAnExcelExpert]

Glad it helped!

[@erdiaz39]

Thank you very much PK, you are the BEST!!!!!

[@vishalsaraswat947]

Long search ended now. Thanks

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@davidchao5777]

Hi Sir, it was very helpful. How can I download the attachment only for today?

[@PKAnExcelExpert]

we can put the If condition to check the mail date

[@davidchao5777]

@@PKAnExcelExpert can you give me more detail of how to write this kind of condition? and where in your vbs? Thank you so much!

[@josephkennady820]

Thank you PK, It's really great. Can you please tell me how can I exclude Fwd and Re mails attachment.

[@ahmedsobea]

I would like to give you 1milion like for this video thanks a lot bro

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@lalitjadoun8800]

Brother I wanna save those attachment by subject name than... Plz reply

[@neledewilde8828]

This is a very smart solution and works as a charm for me. I'm only trying to add the filename in a 3rd column, but I can't get it to work.

[@carinsnell3313]

This amazing! I’m getting a 438 error “object doesn’t support this property or method” for lr = Application.WorksheetFunction.CountA(sh.Range(“A:A”)) Any ideas what’s wrong?

[@rickghatak4863]

Can i rename the attachment with the mail id that it comes from to the outlook?

[@jessiezamora7610]

It works on the Outlook 365. Thank you so much for this. This is very helpful :)

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@irfanbashir1314]

Thanks! Can it create folders based on email subject and then save respective attachments in the respective subject folders. That will be great. Thanks!

[@pawansharma-wo3xh]

Truley excellent PK...... So much helpfull One question...if i have 100 mails in my inbox and i want to download the attachment from the top 10 or top 20 or any other counts Then what will be the change in vba code????

[@PKAnExcelExpert]

Hi Pawan, In place of for each loop use only for loop to do that

[@johnfokisi3100]

Thanks so much. This has really helped me

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@shashichittoju]

I have a mail folder which contains a few hundred emails with a single attachment each, the issue is that all the attachments have the same name "scanned doc.pdf", so only one file gets downloaded to my folder, is there some code I can add to save them all with a number, 1, 2, 3 etc etc added to the file name?

[@bolambaoregie3220]

the script is works but having a problem on my attachment download as it only gives me a 1download file of result only as the file was over write when it starts to download the file. What should be the script to just not overwrite the downloaded file if the file name is already exists?

[@natnatbobcat8911]

Please if you a solution on attachment that a same name then different file content.. I already used the code but the problem is the thing that I mentioned its override the existing file. Thank you so much

[@bassilaleter3447]

Thank you PK very much, it didn't work for me, after downloading the first 40 labels (no attachments were downloaded) it spin then raise runtime error 13 type mismatch, highlighting the second Next in the VBA code, can you help me? my email is 1400 emails to download heir attachments thank you.

[@AsaelCosentino]

Amazing my friend. Worked perfectly.

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@MA-by2sh]

Hi PK, how can i save the attachments with teh sender email address in the name+the actual name of the file?

[@gk_fitmuscle7810]

Hello sir .. i have 150 emails in which pdf is attached.... By running this macro i am able to download only 70-80 files.... Not total 150.... Please help

[@LeeLee-ck6nz]

Hi may I seek your advice how to save my attachment as email subject name?

[@dustinsnodgrass6666]

Awesome video and many thanks for sharing this... Saved me big time :)

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@jayvee.pesino]

Can this tool work too if you have multiple mailbox in an outlook?

[@jayvee.pesino]

I have tried but something seems wrong

[@jayvee.pesino]

I tried but it only save one attachment though everything is in pdf file format. please help.

[@kennethstephani692]

Great video!

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@doronwineapple3634]

dear sir, this is an excellent solution, yet what if the mailbox is on office 365 cloud ? looks loike MAPI is not working right, or maybe something else, anyways it give an error on the "set fo" line tks

[@angeldavalos2243]

Go back to tools, then click on References and click on Microsoft Outlook OWA, make sure that's checked and it worked for me.

[@vaibhavkini2423]

Hi PK you are sharing wonderful videos, this is perhaps one of the best solutions, however can you please provide the same in Lotus Notes if possible...

[@manndipp]

Thanks alot bro, Its working ☺️

[@PKAnExcelExpert]

Thanks for watching

[@amiitmish3]

Plz suggest for command for any file attachment t

[@TrinhHongBong]

Really great help!!!. Thank you so much :)

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@Genuinetrendingfacts]

Sir,please tell how to download attachments automatically from gmail using subject of mails

[@kishoreshanker187]

Hello Priyendra Kumar, Can I include the Receipt date and from address to the Macros, please help

[@nihirshah1233]

Hi, Thank you for this code. when I am using this code and after a few minute my outlook getting crash. I am using outlook 2016. I have some 400 emails in my account . some attachment got saved also but not all. Any solution?

[@SHASA030598]

I have an error in sh.Range("A" & 1r + 1).Value = msg.Attachments.Count The VBA says Compile error: Expected list separator or ) Any idea what should I do?

[@sherifmudavan]

Dear, is there any code to download attached emails only with particular date ? instead of all

[@erdiaz39]

Hi Pk, quick question, how do I write the name of the file in the cells: sh.Range("A" & lr + 1).Value = at.filename is not working. thanks

[@erdiaz39]

I found it: sh.Range("A" & lr + 1).Value = at.DisplayName ..

[@eiermannDNS]

what do I have to do if I want to search for at.Filename; "PDF" and "jpg" and save both?

[@PKAnExcelExpert]

You can use "OR" in the if condition with these extensions

[@Dorothy0308]

Hi, If an attachment has the same name as in the pervious email, it saves the latest file. Could you help how to address this problem. I need to save all the attachments irrespective.

[@Dorothy0308]

Hi, can you help?

[@zinebmaha1744]

Is it possible that you make another video on how to do the same operation but for a specific period of time like for example I want to download all the attachements from date 1 to date 13 only

[@sunnynbk]

Is it possible to download the PDF embedded in hyperlink? i m not able to save the files from hyperlink..Thanks in Advance

[@sumeetkesarwani]

If duplicate PDF is there in email then it is downloading only one PDF please suggest

[@meghanabs5970]

Can we add a date format where we can only update the yesterday file??

[@branatheesh]

All of the attachments included in the emails all have the same name. Is there something I can write that will save each file under a new version name?

[@adilkhan6591]

Thanks boss

[@PKAnExcelExpert]

Thanks for watching

[@prashantkhatri474]

Awesome

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@zinebmaha1744]

It does work when I finish writing the program for the first time on excel but when I close everything then want to download the files again, it doesn't work!!! Why is that ?

[@alinermunhoz]

Is there any way of downloading only the attachment from the Unread emails?

[@PKAnExcelExpert]

Yes it can be. We have to a condition. I will definitely try to make such video very soon

[@alinermunhoz]

PK: An Excel Expert that will be awesome! Thanks. I appreciate it

[@attachmonk6023]

If you are using outlook, I would suggest using OutlookAttachmentReader . This would help you in downloading attachments from unread emails

[@lucianpascu3294]

Very useful! Thanks a lot! Is there any way to put a date range in the VBA code and download the files only from a specific date?

[@PKAnExcelExpert]

Thanks for your valuable feedback. You can use msg.receiveddate to filter the date

[@sherifmudavan]

@@PKAnExcelExpert I tried msg.receiveddate but failed. Hi Can advise the format of code please

[@user-kirtan]

If same day same attachment received by difference msg = how it react

[@scorpion140886]

Brilliant!

[@PKAnExcelExpert]

Thanks for your valuable feedback

[@mahendranmahi7224]

Sir, excel 2010 version is this applicable or not

[@jibranali661]

Will it work for pdf copies too

[@PKAnExcelExpert]

Yes

[@ievaraj6961]

Sir could you help me to login automatically in outlook account, and write a full code pls.

[@devendrasitap4624]

Hi Sir i want to download a file from a specific subject line

[@PKAnExcelExpert]

will consider this in next version of this tool

[@krutikalimje9186]

Unable to download all attachment. Getting only 10 attachments

[@Nandy655633]

Kya yr Gmail pey work karega?

[@gk_fitmuscle7810]

It is helpful but i am only able to download excel files... Not PDF... Please help

[@PKAnExcelExpert]

Need to change the code accordingly.

[@gk_fitmuscle7810]

@@PKAnExcelExpert yeah now it worked... Thanks a lot

[@TheANISHCOOL]

What about redundancy

[@krmotionexcel]

Sir ji :- "how to link other file part on excel file ...... Can i easily open flie on path through ???????

[@PKAnExcelExpert]

Hi, You can use any other extension in place of ".xls" like for PDF you can use ".pdf" or if you are not sure about the file type then use this code "at.SaveAsFile sh.Range("F1").Value & "\" & at.Filename" in place of " If VBA.InStr(at.Filename, ".xls") > 0 Then at.SaveAsFile sh.Range("F1").Value & "\" & at.Filename End If " To open the file and consolidate the data from downloaded attachments please watch the below given video- kzbin.info/www/bejne/iqKqZKdmZquqiLs kzbin.info/www/bejne/j52lpWybmMelnck

[@Mayonez891]

I tried this over and over and it's not working. The first line Sub Download_Attachments() is highlit in yellow and when I click "Run Macro", nothing happens. Please help

[@naturalimages911]

Could you please advise why .PDF is not downloading instead of using .pdf attachments

[@presidentbrown]

I am unable to see 'outlook' in the list to set the variables of 'msg' or 'fo'

[@surajpandya3309]

I have pdf file coming every day in 50 email and all email have 1 attachment how can I do pdf

[@eliechayna9910]

Thank you

[@PKAnExcelExpert]

Thanks for watching

[@rahulwagh1678]

How to get attachment with particular mail account

[@bharatsongara2613]

Hi .. is this not works once mail is connected with VPN