Outlook - VBA - Anhänge extrahieren - keine Reaktion

Public Sub Application_NewMail(objMail As Outlook.MailItem)

Dim Ordnername As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As Object
Dim maildate As Date
Dim dirdatename As String
Dim anzahl As Integer

'Variable objPosteingang wird mit dem Posteingangsordner verknüpft  
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)  
'Schleife, die jedes Item im Posteingang durchläuft  
For Each objNewMail In objPosteingang.Items
'Bedingung, dass Item eine Mail sein muss  
    If TypeOf objNewMail Is Outlook.MailItem Then
    With objNewMail

       'Pfad zum Backupordner + dynamischen Unterordner  
        Ordnername = "C:\Users\User\Desktop\"  
        anzahl = .Attachments.Count
        MsgBox (anzahl)

        'Bedingung dass nur ungelesene Mails geprüft werden  
        If .UnRead = True Then
            'Anzahl der Attachments werden gezählt  
            anzahl = .Attachments.Count
            MsgBox (anzahl)
            'Bedingung, dass mindestens 1 Attachment in der Mail vorhanden sein muss  
            'Schleife, die für jedes Attachment durchläuft  
            For i = 1 To anzahl
                'Attachment speichern  
                .Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName  
                MsgBox (anzahl)
            Next i
               'Mail löschen  
               objNewMail.Delete
       End If
    End With
End If

Next objNewMail
End Sub

Public Sub ForwardMail(objMail As Outlook.MailItem)

  Dim oForward As Outlook.MailItem
  ' Text, der dem Betreff vorangestellt werden soll  
  Const FIX_SUBJECT As String = "VK1 54398 "  

  ' Verweis auf das aktuell geöffnete oder selektierte Element:  
    Set myNameSpace = Application.GetNamespace("MAPI")  
    Set myFolder = myNameSpace.GetDefaultFolder(6)


  If TypeOf objMail Is Outlook.MailItem Then
    Set oForward = objMail.Forward
    With oForward
    .Recipients.Add "zieladresse@domain.tld"  
    End With
    If InStr(1, oForward.Subject, FIX_SUBJECT, vbTextCompare) = 0 Then
      oForward.Subject = FIX_SUBJECT & oForward.Subject
    End If
    oForward.Display
    With oForward
    .Send
    End With
  End If
End Sub