Моя мета - видалити цифровий підпис у повідомленні 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) призводить до помилки поза межами.
mailitem
тут , що ви можете видалити. Я знаю, що додати його через VBA неможливо, тому я не впевнений у видаленні.