Удалите цифровую подпись из полученного сообщения Outlook
Моя цель - удалить цифровую подпись в сообщении 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
Обратите внимание, что в приведенном выше коде я уже считал, что могу "пропустить" цифровую подпись, если мой цикл "Для" начнется с индекса 1 вместо 0. Тем не менее, это должно быть так, потому что вы пытаетесь получить доступ.Вложения.Элемент(0) приводит к ошибке за пределами границ.