从正在编辑的电子邮件中删除附件

我正在编写一个宏，目的是在电子邮件上运行，当前正在编辑。从正在编辑的电子邮件中删除附件

我面对的问题是，我无法删除附件。我得到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标准版2010

来源

2016-05-31 Boris Brodski

错误代码是STG_E_FILENOTFOUND。当你打开一个MSG文件时会发生这种情况吗？ –

我没有打开任何文件。我点击“撰写新电子邮件”，将一些文件放入新的空电子邮件中，然后运行上面的脚本。而已！有任何想法吗？谢谢！ –

尝试，而不是执行以下操作：

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

来源

2016-05-31 15:47:28

谢谢，但不幸的是，相同的结果:(任何其他的想法？ –

从正在编辑的电子邮件中删除附件

回答

相关问题