Email vorm Senden Kategorien hinzufügen

Es geht bei diesem Makro weniger darum, dass der Empfänger ihre Email mit einer Kategorie bekommt, sondern vielmehr darum, dass Sie die gesendete Nachricht in Ihrem eigenen Ordner mithilfe von Stichwörtern leichter wiederfinden. Dieses kleine Skript bringt einen Hinweis, wenn die Kategorie noch fehlt. Sie können das Senden dann abbrechen.

  So fügen Sie Makros in Outlook ein

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  On Error Resume Next
  Dim Msg$

  If Len(Item.Categories) = 0 Then
    Msg = "Möchten Sie dem Element noch Kategorien hinzufügen?"
    If MsgBox(Msg, vbYesNo Or vbQuestion) = vbYes Then
      Cancel = True
    End If
  End If
End Sub