![outlook 2016 quick parts not saving outlook 2016 quick parts not saving](https://uploads-ssl.webflow.com/5ea347b20e349873612d14ba/5f7e14e8372523eb9c06c047_blog-thumb-019.jpg)
#OUTLOOK 2016 QUICK PARTS NOT SAVING CODE#
if it was left in, the filename would concatenate to c:\temp\\filename.docAdditionally, I did drop the code into ThisOutlookSession, then set up my rule accordingly. Well, I did make a minor change to the script, but it works fine for me.Public Sub saveAttachtoDisk(itm As Outlook.MailItem)Dim objAtt As Outlook.AttachmentDim saveFolder As StringsaveFolder = "C:\temp\"For Each objAtt In saveFolder & objAtt.DisplayNameSet objAtt = NothingNextEnd Sub. If InStr(objAtt.DisplayName, '.xml') Then If you want to save attachments of a certain kind only (for example, XML files), you can use this bit of code inside of the "For Each" loop (instead of the code provided above): ObjAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName Then replace the line that begins with 'objAtt.SaveAsFile' with this: If you want to prevent files from being overwritten - for instance, if you receive two emails with the same file name, and don't want the second email to overwrite the attachment that you saved from the first, add this code below the lines that begin with 'dim':ĭateFormat = Format(Now, "yyyy-mm-dd H-mm") ObjAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
![outlook 2016 quick parts not saving outlook 2016 quick parts not saving](https://www.howto-outlook.com/pictures/office-quick-repair.png)
Public Sub saveAttachtoDisk (itm As Outlook.MailItem) If this was helpful to you, drop me a note in the comments below. When you click the underlined word, "script", you should see the code that you pasted in the VBA console. On the third screen, choose "run a script".Tip: Try "with specific words in the message header" and ".txt" for the search string to save only. In the second, you could specify certain criteria that the message must match.In the first screen of the new rule wizard, choose "Check messages when they arrive".Now, paste the text below in the main VBA window.Or right click and choose Insert -> Module. Then, if there is not a Module item under Modules, create one by right clicking on Modules. On the left side there is a tree, expand until you find Modules. Insert the following code to the Modules section.
#OUTLOOK 2016 QUICK PARTS NOT SAVING HOW TO#
I can show you how to do exactly that! These instructions show you step by step how to automatically save attachments of emails as they arrive. If you receive a lot of email attachments, maybe it would be useful to save them to My Documents or some other location on your computer besides keeping them in Outlook.