Как удалить письмо после сохранения вложения

Question

У меня есть этот код, работает Я хочу иметь возможность удалить конкретное письмо, из которого я сохранил вложение, но, похоже, не могу понять это. Вся помощь оценена Спасибо

Public Function SaveAttachments(ByVal sPathName As String) As Boolean

    Dim oOutlook As Outlook.Application
    Dim oNs As Outlook.NameSpace
    Dim oFldr As Outlook.MAPIFolder
    Dim oMessage As Object
    Dim iCtr As Integer
    Dim iAttachCnt As Integer
    Dim sFileName As String
    Dim newMail As Outlook.MailItem = Nothing
    Try
        oOutlook = New Outlook.Application
        oNs = oOutlook.GetNamespace("MAPI")
        oFldr = oNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox).Folders("Granville_Auto")
        For Each oMessage In oFldr.Items
            With oMessage.Attachments
                iAttachCnt = .Count
                If iAttachCnt > 0 Then
                    For iCtr = 1 To iAttachCnt
                        Try
                            sFileName = .Item(iCtr).FileName.ToString
                            stdProcessorUpdates.txt1.Text = sFileName
                            Application.DoEvents()
                            'XX = MyLookUp("Select FileName From tblGranvilleImPorts where FileName = '" & sFileName)
                            'If Len(XX) < 5 Then
                            .Item(iCtr).SaveAsFile(sPathName & sFileName)

  THIS IS WHERE I WANT TO DELETE EMAIL

                     'newMail.Delete()
                            'End If

                        Catch ex As Exception
    End Try
                    Next iCtr
                End If
            End With
            Application.DoEvents()

        Next oMessage

Я знаю, что я очень близок, но что-то упустил