Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Outlook VBA Scripts for Adding Categories to New Emails
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment