Outlook 2007 forward macro for message view

I have the below macro code which works via a toolbar button from the explorer panel of Outlook 2007 on a highlighted message. I would like the macro to work also from the message view so that it can work on the results of searches which do not have the message highlighted in the explorer panel. I would prefer the same macro to work in either case if possible because I actually have 4 of them to forward messages to different perople so I would rather have 4 macros then 8 but if not possible or too difficult then seperate macros are fine. Even better would be a popup combo box which allow me to pick between users with a single clickStart Free Trial

1:
2:
3:
4:
5:
6:
7:
8:

Sub Forward2Ed()
    Dim myForward As Object
    Set myForward = Application.ActiveExplorer.Selection.Item(1).Forward
    myForward.To = "ed@xxxxx.com"
    myForward.Send
    Set myForward = Nothing
    'MsgBox "Message Forwarded" ' I would include this line for testing
End Sub