Outlook VBA - move message then open

[gmayor]

That is not what I said. The code opens the message after it has been moved, however try the following instead. This closes the selected message then reopens it from the deleted items folder.

Sub DeleteAndOpenMsg()
'Graham Mayor - https://www.gmayor.com - Last updated - 30 Sep 2021
Dim olItem As MailItem
Dim olFolder As Folder
    On Error Resume Next
    Select Case Outlook.Application.ActiveWindow.Class
        Case olInspector
            Set olItem = ActiveInspector.currentItem
        Case olExplorer
            Set olItem = Application.ActiveExplorer.Selection.Item(1)
    End Select
    Set olFolder = Session.GetDefaultFolder(olFolderDeletedItems)
    olItem.Move olFolder
    olItem.Close olDiscard
    Set olItem = olFolder.Items.GetLast
    olItem.Display
lbl_Exit:
    Set olItem = Nothing
    Set olFolder = Nothing
    Exit Sub
End Sub