Option Explicit
Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.GetNamespace("MAPI")
  ' instantiate objects declared WithEvents
  Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
  Set objNS = Nothing
End Sub

Private Sub Application_Quit()
  ' disassociate global objects declared WithEvents
  Set olInboxItems = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
  On Error Resume Next
  Dim oFrwMsg As Outlook.MailItem
  If TypeName(Item) = "MailItem" Then
    Set oFrwMsg = Item.Forward

    oFrwMsg.Send
  End If
  Set Item = Nothing
End Sub

Place the code in "ThisOutlookSession" and keep in mind that it will fail if the
new security update has been applied.
--
/Neo

PS - Could you do me a favor next time and limit your post to 2 or 3 groups max?
Thanks.

Expand the list of modules in the project window (usually on the left) and
you'll see ThisOutlookSession.

--
Sue Mosher
Author of
  "Teach Yourself Microsoft Outlook 2000 Programming in 24 Hours"
  "Microsoft Outlook 2000 E-mail and Fax Guide"

Outlook and Exchange solutions at http://www.slipstick.com