[RESOLVED] Permanently Delete Outlook Items

[kzatu]

I have code that runs through special folders in Outlook and deletes items that meet criteria. When I execute the item.delete method, it goes into my deleted items folder when I would prefer to have it permanently deleted.

[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

[kzatu]

LOL, I thought I might have to go that far, I was just hoping not to. But all the same, if it works it works.

Thanks!

[RobDog888]

Well, I sure there is actually a way, but I havent found it yet. Since you can do it with pressing the
"Shift" + "Delete" keys you theoretically should be able to do it through the OOM unless its
hidden or protected.