Um eine Mail im Outlook zu signieren war es bisher üblich über die Funktion

CommandBars.FindControl(,719).Execute

den "signieren" Button des MailItem-Ribbons zu betätigen. Auch in der Vergangenheit war es schwierig da man u.U. die Execute Methode 3x aufzurufen (sic!). Nachdem dies ab Office 2013 nicht mehr funktioniert, generell wird die Commandbars Methode nicht mehr unterstützt, musste ich eine Alternative finden. Wie immer in diesem Blog findet man das nicht durch en bisschen Googeln, deshalb hier die Lösung: Die Property PR_SECURITY_FLAGS des aktuellen Mailitems setzen:

 ''' <summary>
    ''' E-Mail Item signieren (Zertifikat)
    ''' </summary>
    ''' <param name="blnSignieren"></param>
    ''' <remarks></remarks>
    Public Shared Sub Nachricht_signieren(blnSignieren As Boolean)
        Try
            Const PR_SECURITY_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x6E010003"
            Const SECFLAG_NONE = &H0
            Const SECFLAG_SIGNED = &H2
            'Const SECFLAG_ENCRYPTED = &H1

            'Aktuelles Mailitem holen
            Dim actOutItem As Outlook.MailItem
            actOutItem = CType(oOut.ActiveInspector.CurrentItem, Outlook.MailItem)

            'Sign / Unsign
            If Funktionen.isEmailItem(actOutItem) Then
                Dim prop As Long
                prop = CLng(actOutItem.PropertyAccessor.GetProperty(PR_SECURITY_FLAGS))
                actOutItem.PropertyAccessor.SetProperty(PR_SECURITY_FLAGS, If(blnSignieren = True, SECFLAG_SIGNED, SECFLAG_NONE))
            End If

            actOutItem = Nothing

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

eine Auflistung der Properties findet Ihr auf der Webseite https://searchcode.com/codesearch/view/3372596/ bzw. da ich dem Internet nicht traue, ebenfalls als Textdatei im Anhang. Danke. Bitte :-)