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