Outlook - Email weiterleiten wenn ZIP

Private Sub Application_NewMail()

    Dim Foldername As String
    Dim objIn As MAPIFolder
    Dim objNewMail As MailItem
    Dim oAtt As Outlook.Attachment
    Dim objMail_In As Outlook.MailItem
    Dim objMail_Out As Outlook.MailItem
  
    'On Error Resume Next  
    Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)  
    For Each objNewMail In objIn.Items
    With objNewMail
                
                If .Attachments.Count > 0 Then
                
                    For Each oAtt In objNewMail.Attachments
        
                        If LCase(Right(oAtt.FileName, 4)) = ".zip" Then  
                        
                        Set objMail_In = objNewMail
                        Set objMail_Out = objMail_In.Forward
                        
                        With objMail_Out
                        .To = "spam@spam.de"  
                        .Subject = "Automatisch weitergeleitet:" & objMail_In.Subject  
                        .Body = "Dies ist eine automatisch erstellte Mail."  
                        .Send
                        End With

                        End If
                        
                    Next

                End If
                
    End With
    Next objNewMail
End Sub