Не удается удалить вложения из Outlook.MailItem

Question

Моя надстройка Outlook проверяет (когда пользователь нажимает «отправить»), если вложено большое вложение. Если это так, он должен удалить его, отменить отправку и вернуть фокус пользователю.

Вот пример моего кода расширения для Outlook ...

Private Sub ThisApplication_ItemSend(ByVal Item As Object, ByRef Cancel As Boolean) Handles Application.ItemSend
    Dim mail As Outlook.MailItem = CType(Me.Application.ActiveInspector.CurrentItem, Outlook.MailItem)
    For i As Integer = mail.Attachments.Count To 1 Step -1
        mail.Attachments.Remove(i)
    Next
    Cancel = True
End Sub

Активный почтовый элемент по-прежнему показывает все вложения. (

Как заставить Outlook удалить все вложения (до того, как пользователь отправит письмо) и отменить отправку?

Спасибо за миллион!

Mojo

Answer 1

Старый вопрос, я знаю, но у меня та же проблема с Outlook 2010 и решил ее. У меня не работало ни «Удалить», ни «Удалить», пока я не добавил:

mail.Save

Answer 2

Попробуйте это:

Private Sub Application_ItemSend(ByVal Item As Object, ByRef Cancel As Boolean) Handles Application.ItemSend
    Dim mail As Outlook.MailItem = CType(Me.Application.ActiveInspector.CurrentItem, Outlook.MailItem)
    For Each a As Outlook.Attachment In mail.Attachments
        a.Delete()
    Next
    Cancel = True
End Sub