Excel VBA to delete sent mail from outlook 2010

Hi,

I have a code which already sends out an email report through vba, but i would like it to delete the sent mail based on subject after sending the mail.I have attached the code that i am using currently. Any help is much appreciated. still new to vba and a lot is needed to learn this stuff.

Sub Mail_Selection_Range_Outlook_Body()

    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    Dim StrBody As String

    Set rng = Nothing
    On Error Resume Next
    
    Set rng = Sheets("Input").Range("K4:L12").SpecialCells(xlCellTypeVisible)
     

    On Error GoTo 0

    If rng Is Nothing Then
        MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = "[email protected]"
        .CC= ""
        .BCC = ""
        .Subject = "excel report"
        .HTMLBody = RangetoHTML(rng)
        .Send   'or use .Display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
    
    
End Sub