Vb.net 如何删除outlook中的所有附件

首先，我使用此代码删除outlook中的所有附件

 For i = 1 To oMail.Attachments.Count

      oMail.Attachments.Remove(i)

 Next

我有4个附件要删除，但我检查了

oMail.Attachments.Count

it显示2

我在stack论坛中搜索此代码后

For Each a As outlook.Attachment In oMail.Attachments

   a.Delete()

Next

删除1&3附件，但不删除2&4附件

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

这可能会为您提供更多详细信息。

可能重复的