Excel VBA Introduction Part 29.8 - Saving Attachments from an Outlook Folder 

Brilliant and highly relevant to our regular work! Thank you!

you are excelent! watching from KENYA

Thank you so much sir for giving us such a valuable knowledge without any charges with the help of you we can boost our career and knowledge too🙏🙏🙏🙏🇮🇳

Very clear explanations. Worthy informations. Great job.Thank you so much.

You are awesome. Thank you so much for these videos.

Wow. Awesome! Extremely valuable

You have an amazing channel... thank u for sharing

Thanks Andrew, great stuff

Hi Andrew, Thank you so much for the tutorial, now I have the idea that how can I play with the attachments. Thanks once again. Thanks Kashif

Superb video! Thank you!

Sir, thank you a lot for this great video!

This video is the only thing that actually helped me save all attachments, every other tutorial on the web is kinda whack... couldnt get them to work. This vid is perfect. I also like that you actually explain the code as you write it.

This was super helpful. Thanks!

Thank you so much Andrew

Thank you!

These videos are amazing! Thank you for sharing your knowledge. One question I have is will this code, when ran every time, re-save old files and cause duplicates? If so if there a line of code to insert that will pull all files once and then only pull the latest email received?

Hi Andrew, really useful video. Is there a line of code that I could to select attachments from emails sent on a certain date?

Andrew great video, even I could get it to work! I do have one question. Is there a way for the macro to run automatically with Outlook open? What code do I need to add so I don’t have to run the macro...... Thanks!

Hi Andrew, How we can download the attachment from the particular email or specific time period. for example: Someone share the excel files from last 2 month, and i want to save all the attachment of that specific email id for only last month. It can be possible. if Yes please help us.

Hi! I'm having a bug when I want to test it in Immediate (min: 3:55) the error appears to be in Set fol = ns.Folders(1).Folders("Foldername") Do you know what could be it?

Hi sir thank you so much can you give us same code in early binding method please

Awesome

Thank you very much sir🙏🏻I’ve learned a lot...could you please help to make a video for PDF macros using VBA (pull specific data from pdf and paste into excel)

Code for collecting attachment from same subject mails..??

Where is the outlook folder saved ? I receive an object not found error on the set Folder line.

hi there, thank you so much for the knowledge. Is there a way we can replace special characters in the email subject, such as (*/>,

Hi, i tried and I'm getting an error stating object could not be found for Folders which I set also the folder is available on outlook

When I run it its gets stopped on the folder step. any idea Set fol = ns.Folders(1).Folders("Scans")

Hi there! I follow th macro but when i try to access to my Inbox sub folder "Test" i don't get to it - i receive Run-time error - 2147221233 The attempted operation failed. An object could not be found. But my sub folder Test is there. How can i avoid that error?

Hello, Andrew! Amazing job! Is there a way to unzip a file using VBA? Everyday, I receive a zip file in the Outlook. So, I need to unpack it manually to a folder and after that I use a VBA routine to manipulate the data. I would like to automatize the whole process. Can you help me? Thanks a lot for share your knowleadge.

i am getting error the operation failed. An object could not be found

thanks for this it was really helpful. Can I point this to a windows folder where the outlook items are located instead of outlook itself? I receive an email with a zipfile attached. I have to unzip the contents of that file which has 30 days worth of emails each with an attachment. I can copy and paste them back in an outlook folder and run this but ideally would like to be able to run it against the windows folder. Thanks

this works great can someone tell me how to do this for a specific outlook subfolder and for only excel attachments thanks

Hi Andrew do you have the script for saving attachment and renaming it based on the subject of email?

Hi, need your help Can we use macro in shared mail box

what if i want to get the folder a from a different mailer account, ? thank you for this tutorials!

Hello, can you please tell ne how to download only e-mail, which have the word "gesamt" in the attachment name ? Thank you:)

Guessing there has to be an easy solution, but I can't figure out what I would need to add if I just wanted to save files that have some unique criteria in the file name. So in this section I want to add what I have in parenthesis in the first line, but I can't figure out how to translate this into VBA. For Each at In mi.Attachments (That includes "Calls and Transfers in at.Filename) 'Debug.Print vbTab, at.DisplayName, at.FileName, at.Size at.SaveAsFile "Y:\STATS\Processing\" & Format(mi.ReceivedTime, "yyyy-mm-dd hh-nn-ss ") & at.FileName

Hello, I get a runtime error 76, Path not found at line "Set dir = fso.CreateFolder(dirName)". I could retrieve and save the attachments so everything was running fine until I got to the stage of creating folders for the attachments. Any idea what caused the error?

Thanks for sharing. How to download only top 50 mail please suggest..

Hello. How can we save attachmnets for specific email only rather than all mails from folder

Set fol = ns.Folders(1).Folders("Clic Raw") Gives an error "object not found", once the system restarts. Why ?

Great video. Nice clear instructions. Thank you! I followed them very carefully and I'm getting "An object could not be found" Run-time error on the Set fol = ns.Folders(1).Folders("David") line. I did add the reference to the Microsoft Outlook and double checked it. I checked the folder name. What could be the problem? Option Explicit Sub SaveOutlookAttachements() Dim ol As Outlook.Application Dim ns As Outlook.Namespace Dim fol As Outlook.Folder Dim i As Object Dim mi As Outlook.MailItem Set ol = New Outlook.Application Set ns = ol.GetNamespace("MAPI") Set fol = ns.Folders(1).Folders("David") For Each i In fol.Items If i.Class = olMail Then Set mi = i Debug.Print mi.SenderName, mi.ReceivedTime End If Next i End Sub

Dear Sir, I had a query regarding VBA Code Attaching Active Excel workbook in outlook Sir I made a VBA Program where i copy and paste data in new workbook now i want to attached this new workbook in outlook file using "Application.Dialogs(xlDialogSendMail).Show" this Technique. Now when i run this macro in Step Into mode[F8] its working fine but when i run same macro Run mode(F5/Green Triangle Button) taking lots of time and showig this errors messages "cannot find this file verify the path and file name are correct". So Sir Please Help me on this matter. Sir if possible please Make vedio on this Topic (Application.Dialogs(xlDialogSendMail).Show)

i got an error on the set fol line, i have no idea why?

I get an error " you dont have appropriate permission to perform this operation" when i try to save the attachment in my local folder. how do i tackle this?

Getname space ("mapi") What is mapi i can't find previous definition of this please help

How can this be automated when receiving a new email with an attachment in a subfolder I specify ? It works great when I run it manually but I can't get it to run when I receive a new email with an attachment. Thanks in advance!!! Your videos are awesome!!!

how can i just pull the most recent email in folder

I get a complier error saying ns variable not defined

I need to save specific files (excel,word,pdf etc) to specific desktop folder specific subject line using macro code

What a cracking set of videos! Thank you so much for this Andrew! I am trying to amend code so it only downloads attachments AFTER 05/09/21 and the file size is over 15KB. When I run the routine the date aspects appears to work but the file cap is ignored. Could someone please help? Is it best to filter via "IF" or restrict method or a combo of both. Thanks so much. Option Explicit Sub SaveOutlookAttachments() Dim olApp As Outlook.Application Dim olNS As Outlook.Namespace Dim olFolder As Outlook.Folder Dim olItem As Object Dim mi As Outlook.MailItem Dim olAtt As Outlook.Attachment Dim filterstring As String Set olApp = New Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set olFolder = olNS.PickFolder For Each olItem In olFolder.Items If olItem.Class = olMail Then Set mi = olItem If mi.Attachments.Count > 0 And mi.ReceivedTime > "5 / 9 / 2021" And mi.Size > 15000 Then Debug.Print mi.SenderName, mi.ReceivedTime, mi.Attachments.Count, mi.Size For Each olAtt In mi.Attachments olAtt.SaveAsFile "C:\Users\John.Doe\Pictures\OUTLOOKEXPORT\Attachments Export" & Format(mi.ReceivedTime, "yyyy-mm-dd hh-nn-ss ") & olAtt.Filename Next olAtt End If End If Next olItem End Sub

I am having an issue when I loop through a folder (for each i in fol.items), only about half of the emails are being picked up by the macro. I've tried setting fol.items to an Outlook.Items object and sorting, but still no good. Do you have any idea what could be happening here?

Awesome