Create a gist now

Instantly share code, notes, and snippets.

Embed
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