'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Outlook Done Button                                             '
' Version 1.0 (March 2, 2008)                                     '
' By Dem Pilafian                                                 '
' Instructions:                                                   '
'    http://techdem.blogspot.com/2008/03/outlook-done-button.html '
' Public Domain Software -- Free to Use as You Like               '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub MoveToDone()
   Set DoneFolder = Application.GetNamespace("MAPI"). _
      GetDefaultFolder(olFolderInbox).Parent.Folders("Done")
   For Each Msg In ActiveExplorer.Selection
      Msg.Move DoneFolder
      Next Msg
   End Sub