3

Моя цель - удалить цифровую подпись в сообщении Outlook. Моя первоначальная идея состояла в том, чтобы создать сценарий VBA (который я сделал ниже) для перечисления всех вложений в выбранном почтовом элементе и удаления вложения цифровой подписи при его обнаружении.

К сожалению, цифровая подпись не отображается в качестве одного из вложений сообщения. Может быть, я в замешательстве ... Я думал, что цифровые подписи на самом деле являются вложениями.

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

Обратите внимание, что в приведенном выше коде я уже считал, что могу "пропустить" цифровую подпись, начав цикл "For" с индекса 1 вместо 0. Тем не менее, это должно быть так, потому что пытается получить доступ.Вложения.Элемент (0) приводит к недопустимой ошибке.

1 ответ1

0

Вы должны быть в состоянии заставить Outlook просматривать почту в виде простого текста на соответствующий КБ. Проверьте там место установки и обратите внимание на эту часть -

В случае использования цифровых подписей Outlook должен отображать сообщение электронной почты в исходном формате, указанном отправителем, или необходимо включить параметр «Читать все сообщения с цифровой подписью в виде простого текста». Чтобы включить параметр «Читать все письма с цифровой подписью в виде обычного текста», установите флажок «Читать все письма с цифровой подписью в виде простого текста» в разделе «Читать все обычные письма в виде простого текста».

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .