Need a macro for Outlook 2013 to permanently delete selected message

[RetiredCHE]

I have tried 4 different macros found from web searches to permanently delete a mail item, but none of them worked for me at all. They either did nothing or gave runtime errors.



I have a Quick Step that I can use, but would prefer a macro that I can assign to the QAT. The Outlook VBA online reference and object browser are very close to useless to me. And I haven't been able to find much in the way of books for VBA in Outlook 2013.

Does anyone have code that works in 2013, and/or the name of a good book for 2013 VBA? Any help is greatly appreciated!