vba - 通过规则删除附件的 Outlook 脚本

Question

我是 VBA 和这个论坛的新手。首先让我说，我花了相当多的时间试图通过实践和搜索来找到我的答案。

我需要创建一个脚本，我可以将其添加到我的规则中以从某些电子邮件中删除附件。我找到了这段代码并认为它​​会有所帮助。

Public Sub deleteAttach(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Set objAtt = itm.Attachments
objAtt.itm(1).Delete
End Sub

现在我似乎无法使这段代码正常工作。阅读之后，我意识到 itm 需要是一个对象，但不知何故，如果我使用 Public Sub deleteAttach(ByVal Item As Object) 规则找不到我的脚本。

我还尝试将代码更改为 objATT.Delete

任何帮助将不胜感激。谢谢你。

Answer 1

你确定它缺少子程序吗？它设置为第二项，因为数组从索引 0 开始

Public Sub deleteAttach(itm As Outlook.MailItem) 
'Dim objAtt As Outlook.Attachment 
'Set objAtt = itm.Attachments 'AttachmentS collection
'objAtt.itm(0).Delete 'note the 0 starts the indexing
'or
'for each att in objAtt
'   att.Delete
'next
For j = itm.Attachments.Count To 1 Step -1
        itm.Attachments.Remove (j)
Next j
itm.Save  'Save the mail item without attachments
End Sub