Exclua a assinatura digital de uma mensagem recebida do Outlook

Question

Meu objetivo é excluir a assinatura digital em uma mensagem do Outlook. Minha ideia inicial era criar um script VBA (que fiz abaixo) para enumerar todos os anexos no item de correio selecionado e remover o anexo da assinatura digital quando for encontrado.

Infelizmente, a assinatura digital não está aparecendo como um dos anexos da mensagem. Talvez eu esteja confuso ... Eu pensei que as assinaturas digitais eram na verdade anexos.

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

Note que no código acima, eu já considerei que poderia "pular" a assinatura digital fazendo com que meu "loop For" começasse no índice 1 em vez de 0. No entanto, ele precisa ser assim porque tentar acessar .Attachments.Item (0) resulta em um erro fora dos limites.

    

Answer 1

Você deve ser capaz de forçar o Outlook a exibir as mensagens como texto sem formatação por KB relevante . Verifique lá para o local de configuração e anote esta parte -

In the case where digital signatures are used, Outlook must display the e-mail message in the original format that is specified by the sender, or you must turn on the Read all digitally signed mail in plain text option. To turn on the Read all digitally signed mail in plain text option, click to select the Read all digitally signed mail in plain text check box under the Read all standard mail in plain text option.