VBA Outlook - сохранение вложений нового письма. Не работает удаление вложений.

Формулировка задачи:

Есть готовый рабочий код позволяющий в почте сохранять вложения поступающие в мой ящик.
Я хочу вложения сохранять и удалять их из тела письма, но по всей видимости такого метода myeitems(i).Delete не существует.
Может кто то из Вас, друзья, знает решение этой проблемы?

Private Sub Application_NewMail()
On Error Resume Next
Dim myolApp As Outlook.Application
Dim myItem As Outlook.MailItem
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
last_count = myFolder.Items.Count
Set myItem = myFolder.Items(last_count)
Set myeitems = myItem.Attachments
'  myFolder.Items.Sort "ReceivedTime", false
For i = 0 To myeitems.Count
 ' If myeitems.Count > 0 Then
 ' If (Right(myeitems(i).DisplayName, 3) = "xls") And (myFolder.Items(i).UnRead = True) Then  Then
  myeitems(i).SaveAsFile "C:\Temp\" & myeitems(i).DisplayName
 ' End If
 ' End If
Next i
myeitem.Delete
For i = 0 To myeitems.Count
  myeitems(i).Delete
Next i
End Sub

Решение задачи: «VBA Outlook - сохранение вложений нового письма. Не работает удаление вложений.»

textual
                            Листинг программы 
                        
                            For i = myeitems.Count To 1 Step -1