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