Public WithEvents myOlItems As Outlook.Items


Private 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

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

Private Sub myOlItems_ItemAdd(ByVal Item As Object)

      ' Check to make sure it is an Outlook mail message, otherwise
      ' subsequent code will probably fail depending on what type
      ' of item it is.
      If TypeName(Item) = "MailItem" Then

         ' Forward the item just received
         Set myForward = Item.Forward

         ' Address the message
         myForward.Recipients.Add "<put forward address here>"

         ' Send it
         myForward.Send

      End If


End Sub

' In case of security error try this: 
' in registry HKEY_CURRENT_USER=>Software=>Policies=>Microsoft add a key called "Security" 
' under that key create a DWORD with the name "CheckAdminSettings" and value 2.