Macro Instructions | Outlook AutoSave Attachments [Macro #22] | Macro Monday 06.01.20
Do you frequently receive email attachments that need to be saved to your computer? Wouldn’t it be nice if these attachments were automatically saved without having to interact with them? Cool thing is there are multiple ways to do this with VBA! This Outlook macro gives you a variety of options to automatically save email attachments. It can find attachments in the emails you select or by looping through your entire inbox. You can even set up this macro to check for attachments when emails are received. If any attachments are found they will be saved to the Folder Path you identify. By Default, the email attachments will be saved to a new Attachments folder on your desktop. If the Attachments folder doesn’t exist one will be created. This Outlook macro will save all email attachments it finds but you can limit this by customizing the VBA code to look for a specific Sender, a set Category, certain words in the Subject, or by File Type Extension. If you don’t want VBA to be checking every email that comes to your inbox you can run this macro on command saving attachments from selected email or searching your inbox. To take things to the next level leverage the Call Action from the Outlook Calendar Reminder Macros to automatically run this macro reoccurring from your Outlook calendar.
First time using VBA? You just need to complete 3 easy steps that only take a couple minutes to complete: Activate the Developer Tab, Update Macro Security, Setup References for Leverage & Lean macros. I'll show you how to do all of this in this Macro Monday video!
Want to make this macro your own? These segments of code can be customized to personalize this macro. (Regardless of what version you use)
FolderPath = "C:\Users\" & User & "\Desktop\Attachments" 'Default create Attachments Folder on Desktop. You can update the FolderPath to somewhere else. Update the Folder Path to where you want Email Attachments to be saved
'If Email.SenderEmailAddress = "" Or Email.Categories = "" Or Email.Subject = "" Or InStr(1, Email.Subject, "Search for Text") Use criteria like this to narrow the search for attachments to save
'If InStr(1, Attachments.Item(i).Filename, "File Type Extension") 'Check File Type before saving Restrict what attachments are saved based on their File Type Extension such as: .docx, .xlsx, .pdf, .etc
MsgBox "Email Attachment(s) have been saved to the Attachments folder on your Desktop." AND MsgBox "No Email Attachment(s) were found to save." These two MsgBox can be removed if you don’t want to see the result when this macro is run
#LeverageLean #LessClicksMoreResults #MacroMonday #VBA #Macros
Checkout this Outlook Macro page: https://leveragelean.com/macros/outlo...
Find more content on our website: https://leveragelean.com
Watch all of our Macro Monday Videos on our YouTube playlist: • Macro Instructions | Macro Mondays
Subscribe to our YouTube Channel to stay up to date on all of the videos we are posting.
/ @leveragelean
Like us on Facebook: / leveragelean
Follow us on Twitter: / leveragelean
Connect with us on LinkedIn: / brentschneider-leveragelean
Check us out on Instagram: / leveragelean
Leverage & Lean is focused on improving computer processes by Leveraging programming and applying Lean principles. It is our goal to make you more efficient and effective on your computer producing "Less Clicks and More Results!" To see our content visit LeverageLean.com where we have Visual Basic Applications (VBA) Macros in Excel, Outlook, and Word that automate repetitive computer tasks. You can start using this macro today for FREE, No Charge, No Gimmicks!!! Come visit us and watch our additional Macro Instructions videos to see how to implement our VBA macros in your computer processes and customize them meet your specific needs. Macros helps save time and time is money it’s as simple as that! Also, walkthrough our PDF Tutorials step by step or watch our See How videos to utilize computer settings that have been hiding in plain sight. Read our weekly Insights that open your mind and challenge you to start improving your computer processes. Leverage & Lean Insights are a quick read (less than 1 minute on average) but can be a great reset to your day and help you focus on how to start winning on your computer!
Stay Awesome,
Brent Schneider
Leverage & Lean
Est. 2017