Make a received message editable without navigating through the UI

[westconn1]

you could try like

Private Sub Application_NewMail()
Set inb = GetNamespace("mapi").GetDefaultFolder(olFolderInbox)
inb.Items(inb.Items.Count).Display
end sub

this should open all incoming mail items