Anhang von einer E-Mail löschen, die gerade bearbeitet wird

Question

Ich schreibe ein Makro, das für die Ausführung auf einer E-Mail entwickelt wurde, das derzeit bearbeitet wird.

Das Problem, mit dem ich konfrontiert bin, ist, dass ich Anhänge nicht löschen kann. Ich bekomme 80030002 error.

Hier ist mein Code

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 

Nach diesem Code ausgeführt wird, Arbeitsgeräte von Hand führt zu einem Absturz von Outlook zu löschen.

Meine Frage ist: Wie kann ich Anhänge von der gerade bearbeiteten E-Mail löschen?

Microsoft Office Standard 2010

Answer 1

Versuchen Sie Folgendes statt:

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