Is there a easy way to get the current shown (preferably selected) message-ID via VBA ? without having to buy Redemption or some other package..
I n
Do you mean the unique ID for the message? Try the EntryID Property:
ActiveExplorer.Selection.Item(1).EntryID
FYI PropertyAccessor was added in Outlook 2007, you wouldn't see it in 2003.