vb.net - 无法从 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 删除所有附件(在用户发送邮件之前)并取消发送？

感谢一百万!

魔力

Answer 1

试试这个:

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