編集中の電子メールから添付ファイルを削除する

Question

私は電子メールで実行するように設計されたマクロを作成しています。これは現在が編集中ですです。

私が直面している問題は、添付ファイルを削除できないということです。私は80030002 errorを得る。

はここで手動で見通しのクラッシュにつながる削除添付ファイルを、このコードを実行している作業の後に私のコード

Set myItem = ActiveInspector.CurrentItem 
c = myItem.Attachments.Count 
For i = c To 1 Step -1 
    Set myAttachment = myItem.Attachments.Item(i) 
    If myAttachment.Type = OlAttachmentType.olByValue Then 
     myItem.Attachments.Remove (i) 
    End If 
Next 

です。

私の質問は、現在編集中の電子メールから添付ファイルを削除するにはどうすればいいですか？

Microsoft Officeの標準2010

Answer 1

代わりに以下のことを試してみてください。

Set myItem = Application.ActiveInspector.CurrentItem 
set myAttachments = myItem.Attachments 
c = myAttachments.Count 
For i = c To 1 Step -1 
    Set myAttachment = myAttachments.Item(i) 
    If myAttachment.Type = OlAttachmentType.olByValue Then 
     myAttachment.Delete 
    End If 
Next