Outlook.MailItemから添付ファイルを削除できません

Question

大きな添付ファイルが添付されている場合、Outlookのaddinチェック（ユーザーが「送信」をクリックしたとき）をチェックします。そうであれば、それを削除して送信をキャンセルし、ユーザーにフォーカスを戻す必要があります。

ここでアクティブなメールアイテムは、まだすべての添付を示し

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

はこれを試してみてくださいどのように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 

Answer 2

古い質問私は知っていますが、私はOutlook 2010で同じ問題を抱えていますが、削除したり削除したりするまでには、私が追加するまで働いていませんでした：

mail.Save