Brian Ritchie's Blog

Is email taking over your life? It has mine!

Here is my solution:

1. Don't file it -- search it! Instead of organizing email into folders, simply archive it into a single folder and use Google Desktop Search or Windows Desktop Search to find what you're looking for.
2. Use this Outlook macro to quickly archive your mail.  You can attach it to a button or hotkey.

Sub ArchiveMessage()
    Dim selectedItems As Selection
    Dim ns As Outlook.NameSpace
    Dim folder As MAPIFolder    

    On Error Resume Next
    
    Set ns = Application.GetNamespace("MAPI")
    Set folder = ns.GetDefaultFolder(olFolderInbox).Folders("_Archive")

    If folder Is Nothing Then
        MsgBox "The folder _Archive doesn't exist under the Inbox!", _
		vbOKOnly + vbExclamation, "Invalid Folder"
        Exit Sub
    End If
 
    Set selectedItems = Application.ActiveExplorer.Selection
    

    If Not (selectedItems Is Nothing) Then

        For Each i In selectedItems
            i.UnRead = False
            i.Move folder
        Next

    End If
End Sub

Based on the script by Chewy Chong