Outlook.MailItemから添付ファイルを削除することはできません - vb.net、outlook、vsto、add-in

私の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ですべての添付ファイルを削除し（ユーザーがメールを送信する前に）、送信をキャンセルする方法を教えてください。

感謝万円！

モジョ

回答：

これを試して：

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

昔の質問私は知っていますが、Outlook 2010でも同じ問題を抱えていて解決しました。追加しない限り、削除も削除もできませんでした。

mail.Save