-> Projekt1 (VbaProject.OTM)
     -> Microsoft Outlook Objekte
          -> DieseOutlookSitzung

Option Explicit

Public WithEvents myOlItems As Outlook.Items

Private Sub Application_Startup()
   Set myOlItems = _
      Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
  Dim olMailForward As MailItem

  Dim sMailSubject As String
  Dim sSenderName As String

  If TypeName(Item) = "MailItem" Then
    sSenderName = Item.SenderName
    sMailSubject = Item.Subject

    sMailSubject = sSenderName & ": " & sMailSubject

    Set olMailForward = Item.Forward
    With olMailForward
      .Recipients.Add "name@domain.de"
      .Subject = sMailSubject
      .Send
    End With
  End If
End Sub