Моя цель - удалить цифровую подпись в сообщении 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) приводит к недопустимой ошибке.