To exclude an item from configured “AutoArchive” in Outlook, you can enable “Do not AutoArchive this item” option for this item. Now, if you want to batch enable this option for multiple items, you can use the 2 ways introduced in this article.
To let Outlook automatically clean up old items, you can configure “AutoArchive” feature in your Outlook. However, at times, you may want to prevent some items from being auto-archived. In this case, you can enable “Do not AutoArchive this item” option for these items. To enable it for one item, you can select the item and press “Alt + Enter”. Then, in the popup dialog box, you can check the “Do not AutoArchive this item” option, as shown in the following figure. But, this means is a bit tedious if there are multiple items to be excluded in “AutoArchive”. Hence, here we’ll share 2 more effective ways, which can let you accomplish it in bulk.
Method 1: Group Emails by “Do Not AutoArchive” Field
- First of all, open a mail folder.
- Then, switch to “View” tab and click “View Settings” button.
- In the popup dialog box, click “Group By” button.
- Next, in “Group By” dialog, uncheck the “Automatically group according to arrangement” option.
- After that, select “All Mail Fields” from the drop down list of “Select available fields from” at bottom.
- Then, choose “Do Not AutoArchive” option from the list of “Group items by”.
- Later, click several “OK” to save the view changes.
- After returning to mail list, you can see that all the emails have been divided into two groups – “Yes” and “(none)”.
- Now, from “(none)” group, select the emails to be excluded in “AutoArchive”.
- Finally, drag and drop them to the “Yes” group, which will batch enable the “Do no AutoArchive this item” feature on them.
Method 2: Batch Enable for Multiple Emails via Outlook VBA
- To start with, access VBA editor via “Alt + F11”.
- Then, put the code below into a module.
Sub NotAutoArchiveMultipleEmails() Dim objSelection As Outlook.Selection Dim i As Long Dim objMail As Outlook.MailItem Dim lMailCount As Long 'Get selected items Set objSelection = Outlook.Application.ActiveExplorer.Selection If Not (objSelection Is Nothing) Then lMailCount = 0 For i = objSelection.Count To 1 Step -1 If objSelection(i).Class = olMail Then Set objMail = objSelection(i) 'Enable "Do not AutoArchive this item" feature If objMail.NoAging = False Then objMail.NoAging = True objMail.Save lMailCount = lMailCount + 1 End If End If Next MsgBox lMailCount & " emails have been set to Not Auto Archive!", vbInformation + vbOKOnly End If End Sub
- Afterwards, exit the VBA editor.
- Subsequently, add this macro to Quick Access Toolbar according to “Optional Step” in “How to Run VBA Code in Your Outlook“.
- Lastly, try this macro.
- First off, select multiple emails.
- Then, click the macro button in Quick Access Toolbar.
- At once, the selected emails have been set not to be auto-archived.
What to Do in Case of Outlook Corruption
Have you ever been subject to Outlook damage before? If you have, how did you deal with it? For most users, the first resort must be the inbox repair tool. Yet, if it fails, users will get panic and don’t know what they can do then. In honesty, inbox fix tool is unable to fix seriously damaged PST. What you can recur to is a more powerful external tool, such as DataNumen Outlook Repair.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover mdf and outlook repair software products. For more information visit www.datanumen.com