Удалить прикрепление с редактируемого сообщения электронной почты

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 

После выполнения этого кода, работающего удаление вложений вручную приводит к краху Outlook.

Мой вопрос: Как удалить вложения из редактируемого вами электронного письма?

Microsoft Office Standard 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