如何刪除在Outlook中的所有附件

Question

首先我用這個代碼刪除所有附件在Outlook

For i = 1 To oMail.Attachments.Count 

     oMail.Attachments.Remove(i) 

Next 

我有4個附件刪除它，但我檢查oMail.Attachments.Count它顯示2

我搜索後在堆論壇這個代碼

For Each a As outlook.Attachment In oMail.Attachments 

    a.Delete() 

Next 

它刪除1 & 3附着但不刪除2 & 4附着

Answer 1

請嘗試以下;

If oMail.Attachments.Count > 0 Then 

    For i = oMail.Attachments.Count To 1 Step -1 

    ' Delete the attachment. 
    oMail.Attachments.Item(i).Delete 

    Next i 
    oMail.Save 

End If 

這LINK可能會給你更多的細節。