问用于通过规则删除附件的Outlook脚本

EN

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

Public Sub deleteAttach(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Set objAtt = itm.Attachments 'this creates a "new" attachment you then delete from
objAtt.itm(1).Delete 'This line makes no sense if you think about it
End Sub

Public Sub deleteAttach(itm As Outlook.MailItem) 
    itm.Attachments(1).Delete
    itm.Save    
End Sub

Public Sub deleteAttach(itm As Outlook.MailItem)
    dim i as integer
    for i = ubound(itm.Attachments) to lbound(itm.Attachments)
        itm.Attachments(i).Delete
    next i
    itm.Save    
End Sub

Private Sub deleteAttach_test()
    Dim currItem As mailitem
    Set currItem = ActiveInspector.currentItem
    deleteAttach currItem
End Sub

Public Sub deleteAttach(itm As Outlook.mailitem)
    ' There is only one attachment in the mail
    itm.Attachments(1).Delete
    itm.Save
End Sub

Private Sub deleteAttach_V1_test()
    Dim currItem As mailitem
    Set currItem = ActiveInspector.currentItem
    deleteAttach_V1 currItem
End Sub

Public Sub deleteAttach_V1(itm As Outlook.mailitem)
    Dim j As Long

    ' Delete in reverse, the highest numbered remaining item each time
    For j = itm.Attachments.count To 1 Step -1
       itm.Attachments(j).Delete   
    Next j
    itm.Save
End Sub

Private Sub deleteAttach_V2_test()
    Dim currItem As mailitem
    Set currItem = ActiveInspector.currentItem
    deleteAttach_V2 currItem
End Sub

Public Sub deleteAttach_V2(itm As Outlook.mailitem)
    Dim i As Long

    For i = 1 To itm.Attachments.count
        ' Delete the new first item each time
        itm.Attachments(1).Delete   
    Next i
    itm.Save
End Sub