Macro to identify deleted items w/IMAP and Outlook

[Aussiebear]

Maybe try this method?

Sub CheckIfItemIsMarkedForDeletion()
    Dim objItem As Object
    ' Get the current item (e.g., email, appointment)
    Set objItem = Application.ActiveInspector.CurrentItem
    ' Check if the item is marked for deletion
    If objItem.DeleteOnSubmit Then
        ' Item is marked for deletion
        MsgBox "This item is marked for deletion."
    Else
        ' Item is not marked for deletion
        MsgBox "This item is not marked for deletion."
    End If
End Sub