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.