Office: Outlook VBA NewMail Funktion Problem

Hallo zusammen,

ich möchte aus eingehenden E-Mails Anlagen in einem vorgegebenen Order abspeichern. Ich habe mir dazu ein Makro aus dem Netzt gemopst - zugegebenermaßen- was genau das kann. Leider habe ich aber ein wenig Probleme.

1) Das Makro legt zwar im vorgegebenen Verzeichnis den Ordner korrekt an, speichert aber die Anlage nicht ab
2) Jedesmal, wenn ich den Makro-Editor und Outlook schließe, verliert das Makro den Eintrag "Application - NewMail", stattdessen wird "Allgemein - Deklarationen" angezeigt.
3) Wir nutzen einen Exchange Server und ich habe das Gefühl, dass das Makro mich kurzzeitig vom Server trennt.

Hier der Code:

Code:

Private Sub Application_NewMail()
                    Dim strNewFolder As String
                    Dim objPosteingang As MAPIFolder
                    Dim objNewMail As MailItem

                    On Error Resume Next
                    strNewFolder = "C:\Users\patrick.kipp\Desktop\OLAnlagen" & Format(Date, "ddmmyy")
                    MkDir strNewFolder
                    Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
                    For Each objNewMail In objPosteingang.Items
                    With objNewMail
                    If .UnRead = True Then
                    intAnlagen = .Attachments.Count
                    If intAnlagen > 0 Then
                    For i = 1 To intAnlagen
                    .Attachments.Item(i).SaveAsFile strNewFolder & "\" & .Attachments.Item(i).FileName
                    Next i
                    End If
                    End If
                    End With
                    Next objNewMail
                    End Sub
                

Vielen Dank, pecki75