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.
See it in Action
Watch this video to see this macro in action.
Code
Here is the code for this macro. Make sure the following References are setup before running it: Visual Basic For Applications, Microsoft Outlook 16.0 Object Library, Microsoft Forms 2.0 Object Library
The Developer Tab is an additional section of the ribbon when activated allows you access to Visual Basic in Applications like Access, Excel, Outlook, PowerPoint, Word.
Setup Now
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!”
In regards to Word Create Outlook Email with Selected Text | VBA Macro #29
This is so perfect!
Thank you so much!
At my job, we recently switched over to Office 365.
Previously we had an email template that we could fill out (using field codes [select all+F9]) but that is no longer available in Office 365, as only Word has the Field Code capability now.
I was trying to find some sort of solution using Word, and yours was the best thing I could find on the web!
Very straightforward!
Very appreciated!
YOU are the awesome one!
In regards to Excel Find and Replace across Multiple Word Documents | VBA Macro #30 and custom work.
The use case for CheckTheBible.com was to convert all the variations of Bible verse codes (B C:V - Book Chapter:Verse) in any text to a standardized code. For example, "John 17:21" should be "Joh 17:21." Once the variations are converted, then the next step is to convert them to a markdown language so they can be used in Obsidian.
I found Brent through his YouTube channel: Leverage & Lean (https://www.youtube.com/LeverageLean). Out of all the macro videos, the "Excel Find and Replace across Multiple Word Documents" video seemed like it could help automate a seemingly manual process.
I contacted Brent to see what could be done with my use case. From our first discussion, Brent has always been very understanding and patient with my situation and listened to my suggestions for improving the macro’s speed and efficiency.
Once he understood the end goal, Brent took my improvements to heart and ran with them. Now with this improved macro, I can take on any set of variables, modify a few words, and convert them to the final result. This custom macro searches Word Documents for Bible verse codes, uses a standardized list of 30+ thousand B C:V codes to convert to the markdown language automatically with 100% accuracy.
I have had a great experience working with Brent. Not only does he clarify expectations so it was set up for success, but most importantly, he has always come up with creative and comprehensive suggestions even outside the scope of macro building. Brent was really consulting me to do more than what I had thought possible.