Sub Direktversand()
'C:\Program Files (x86)\Microsoft Office\root\Office16\SELFCERT.EXE
'Outlook Modul ThisOutlook Session (digital signieren > dem Herausgeber vertrauen)

Dim miMail As MailItem, oInspector As Inspector
Set oInspector = Application.ActiveInspector
    If oInspector Is Nothing Then
        MsgBox "Bitte öffnen Sie erst Outlook.", vbCritical, "Abbruch"
        Exit Sub
    Else
        Set miMail = oInspector.CurrentItem
        If miMail.Sent Then
            MsgBox "Bitte öffne erst eine Mail.", vbCritical, "Abbruch"
            Exit Sub
        Else
            miMail.Categories = "VIP" 'Kategorie für den Direktversand ggf. anpassen
            miMail.DeferredDeliveryTime = "1/01/4501" 'entfernen der Verzögerung
            miMail.Send
        End If
    End If
End Sub