Opening a specific Outlook item quickly
Use this code to directly reference and open:

Set NS = myolApp.GetNamespace("MAPI")
NS.Logon
Set myAppt = NS.GetItemFromID(EntryID)
myAppt.Display


Works like a dream.