Outlook VBA Scripts for Adding Categories to New Emails

VbaProject.OTM

Public Sub ShowCategoriesDialog()
  Dim Mail As Object
  Set Mail = Application.ActiveInspector.CurrentItem
  Mail.ShowCategoriesDialog
End Sub

Public Sub AddAwaitingFeedbackCategory()
  Dim Mail As Object
  Set Mail = Application.ActiveInspector.CurrentItem
  Mail.Categories = "Awaiting Feedback"
End Sub

Public Sub AddTrackProgressCategory()
  Dim Mail As Object
  Set Mail = Application.ActiveInspector.CurrentItem
  Mail.Categories = "Track Progress"
End Sub

Hi

May I ask you if you could provide an edited VBA in order to call up the category items on any email, regardless if they are open or not?

Also, if possible, after categorising the email, be prompted to file it in a folder of my choice?

Thanks for any help.

@DirtyRaul, no can do. I haven't touched Outlook scripts in 6 years and wouldn't know where to start. Good luck on your project.