Option Explicit
Private Sub SetCategoryDone_MoveToFolderDone()
Dim itm As mailItem
' Select the item
Set itm = ActiveExplorer.Selection(1)
' Replace existing category with Done
itm.Categories = "Done"
' Move to a folder directly under the default inbox
itm.Move Session.GetDefaultFolder(olFolderInbox).Folders("Done")
' Move to a folder buried deeper
' Add as many ".Folders("name of subfolder") as needed
' itm.Move Session.GetDefaultFolder(olFolderInbox).Folders("name of subfolder").Folders("Done")
End Sub