Hi,
Using the macro in "ThisOutlookSession" to have my assign category box automatically open when sending new mail. But......It won't work when replying to mail. Any experts have a solution. Outlook 2016.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem And Len(Item.Categories) = 0 Then
Set Item = Application.ActiveInspector.CurrentItem
Item.ShowCategoriesDialog
End If
End Sub
Using the macro in "ThisOutlookSession" to have my assign category box automatically open when sending new mail. But......It won't work when replying to mail. Any experts have a solution. Outlook 2016.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem And Len(Item.Categories) = 0 Then
Set Item = Application.ActiveInspector.CurrentItem
Item.ShowCategoriesDialog
End If
End Sub