MS Outlook 2003 - User does not want to delete emails

Posted on 2009-04-17
Medium Priority
Last Modified: 2012-05-06
I have a couple of executive staff members that do not want to ever lose any kind of emails that send or recieve. They would like it if and when they select an email to delete that is would move the email to a sub-folder in the Inbox instead of going to the Deleted Items folder. Is there any way this can be done?
Question by:robert-a-anderson
  • 2

Expert Comment

ID: 24170758
You can configure Auto Archive for the Deleted Items folder and have it move the emails to a .pst file.
Just right click on Deleted Items, choose Properties, AutoArchive tab.

Having it moved to a folder instead of the deleted items would be done with a macro.

Author Comment

ID: 24171053
How would I create the MACRO? Do you have a link to the code so I can review and try it out?

Accepted Solution

robert-a-anderson earned 0 total points
ID: 24184192
I found some code online that worked for the MACRO by Chewy Chong http://verychewy.com/archive/2006/04/12/outlook-macro-to-move-an-email-to-folder.aspx 

NOTE: for the objFolder I changed it to my destination folder I needed.

Hope this helps someone.

Sub MoveSelectedMessagesToFolder()

On Error Resume Next



    Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder

    Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem



    Set objNS = Application.GetNamespace("MAPI")

    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)

    Set objFolder = objInbox.Folders("_Reviewed")

'Assume this is a mail folder



    If objFolder Is Nothing Then

        MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"

    End If



    If Application.ActiveExplorer.Selection.Count = 0 Then

        'Require that this procedure be called only when a message is selected

        Exit Sub

    End If



    For Each objItem In Application.ActiveExplorer.Selection

        If objFolder.DefaultItemType = olMailItem Then

            If objItem.Class = olMail Then

                objItem.Move objFolder

            End If

        End If




    Set objItem = Nothing

    Set objFolder = Nothing

    Set objInbox = Nothing

    Set objNS = Nothing

End Sub


Featured Post

Granular recovery for Microsoft Exchange

With Veeam Explorer for Microsoft Exchange you can choose the Exchange Servers and restore points you’re interested in, and Veeam Explorer will present the contents of those mailbox stores for browsing, searching and exporting.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

By default Outlook 2016 displays only one time zone in the Calendar. The following article explains how to display two time zones in one calendar view.
This article will help to fix the below errors for MS Exchange Server 2016 I. Certificate error "name on the security certificate is invalid or does not match the name of the site" II. Out of Office not working III. Make Internal URLs and Externa…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…

750 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question