Supprimer la signature numérique d'un message Outlook reçu

Mon objectif est de supprimer la signature numérique dans un message Outlook. Mon idée initiale était de créer un script VBA (ce que j'ai fait ci-dessous) pour énumérer toutes les pièces jointes dans l'élément de courrier sélectionné et supprimer la pièce jointe de signature numérique lorsqu'elle est rencontrée.

Malheureusement, la signature numérique n'apparaît pas comme l'une des pièces jointes du message. Peut-être que je suis confus... Je pensais que les signatures numériques étaient en fait attachement.

Public Sub DeleteDigitalSignatureAttachment()
    Dim olkMsg As MailItem
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set olkMsg = Application.ActiveExplorer.Selection(1)
        Case "Inspector"
            Set olkMsg = Application.ActiveInspector.CurrentItem
    End Select
    If olkMsg.Attachments.Count > 0 Then
        Dim s As String
        For i = 1 To olkMsg.Attachments.Count
            s = s & olkMsg.Attachments.Item(i).FileName & ", "
            'olkMsg.Attachments.Remove (i)
        Next i
        MsgBox (s)
    End If
End Sub

Notez que dans le code ci-dessus, j'ai déjà considéré que je pouvais "sauter" la signature numérique en faisant commencer ma "boucle For" à l'index 1 au lieu de 0. Cependant, cela doit être de cette façon car essayer d'y accéder.Attachement.L'élément (0) entraîne une erreur hors limites.

demandé sur