[RESOLVED] Permanently Delete Outlook Items

[RobDog888]

You can just delete the item from the Deleted Items folder after its deleted.

Sub DeleteMyItem()
    Dim myolApp As New Outlook.Application
    Dim oNamespace As Outlook.NameSpace
    Dim oFolder As Outlook.MAPIFolder
    Dim oItem As Object
    Dim strPrompt As String
    
    Set oNamespace = myolApp.GetNamespace("MAPI")
    Set oFolder = oNamespace.GetDefaultFolder(olFolderTasks)
    Set oItem = oFolder.Items.Item(1)
 
    'Prompt the user for confirmation
    strPrompt = "Are you sure you want to delete the item?"
    If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
        oItem.Subject = "DeleteMe"
        oItem.Save
        oItem.Move oNamespace.GetDefaultFolder(olFolderDeletedItems)
        Set oItem = Nothing
        Set oItem = oNamespace.GetDefaultFolder(olFolderDeletedItems).Items.Find("[Subject] = DeleteMe")
        oItem.Delete
        Set oItem = Nothing
        MsgBox ("Item deleted")
    End If
End Sub