Outlook VBA

[blacktour]

I have the following code that works if the e-mail message is open, I would like to adapt the code to all selected messages opposed to currently open. How would I do this?

Set myOLApp = CreateObject("Outlook.Application")
Set myitem = myOLApp.ActiveInspector.CurrentItem 'works if message open, want it to work when message selected

Thanks,
Mike