--Moved Folder Lookup to Function
Moved the folder lookup to function GetFolder(), which follows the examples provided by Microsoft for the Outlook Object Model.
--Moved Main Script Logic to Function
Moved all of the main script logic into function CopyAllAttachments()
--Added Parameter Destination
Added the paramter  to function CopyAllAttachments() to allow the script to write to any location.
--Changed Name of Function GetFolder()
Changed the name of function GetFolder() to GetFolderByPath() in order to more explicitly express the intent of the function.