MS Outlook 2003 - User does not want to delete emails

Posted on 2009-04-17
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
    LVL 4

    Expert Comment

    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

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

    Accepted Solution

    I found some code online that worked for the MACRO by Chewy Chong

    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

    How your wiki can always stay up-to-date

    Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
    - Increase transparency
    - Onboard new hires faster
    - Access from mobile/offline

    Join & Write a Comment

    Use these top 10 tips to master the art of email signature design. Create an email signature design that will easily wow recipients, promote your brand and highlight your professionalism.
    Technology opened people to different means of presenting information, but PowerPoint remains to be above competition. Know why PPT still works today.
    Viewers will learn the different options available in the Backstage view in Excel 2013.
    The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…

    755 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

    Need Help in Real-Time?

    Connect with top rated Experts

    25 Experts available now in Live!

    Get 1:1 Help Now