Outlook Archive Macro Sub MoveToArchive() MoveToFolder("Archive") End Sub '******************************************************************************* ' MoveToFolder ' ' This function moves the currently selected message to a given folder. '******************************** By madworldin Productivity Tools > GTDwith macrooutlook