Forward macro in Outlook 2007

Public Sub Application_Startup()
 
   ' Reference the items in the Inbox. Because myOlItems is declared
   ' "WithEvents" the ItemAdd event will fire below.
   Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
 
End Sub
 
Sub Forward2Ed()
 
    Dim myOlApp As New Outlook.Application
    Dim myItem, myForward As Object
   
    Set myItem = myOlApp.ActiveExplorer.Selection.Item(1)
    Set myForwarditem = myItem.Forward
 
    myForwarditem.To = "ed@xxxxx.com"
 
    myForwarditem.Save
    Set objSafeMail = CreateObject("Redemption.SafeMailItem")
    objSafeMail.Item = myForwarditem
    objSafeMail.Send
 
   
    Set myItem = Nothing
    Set myForward = Nothing
    MsgBox "Message Forwarded" ' I would include this line for testing
 
End Sub