Outlook Anhänge speichern ...

[Piatch]

Hallo,

ich habe die Aufgabe in Outlook ein Script zu schreiben welches automatisch die Anhänge in einen bestimmten Ordner speichert.

Dieses Stellt an sich kein Problem dar, da man ja schongenügen Lösungen dazu im Netz findet, aber nun muss ich das für ein 2007 Outlook machen und dan fängt schon gleich das Problem an ...

Private Sub Application_NewMail()


    Dim Foldername As String

    Dim objIn As MAPIFolder

    Dim objNewMail As MailItem


    On Error Resume Next

    Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

    For Each objNewMail In objIn.Items

        With objNewMail


            If .UnRead = True Then

                NumberOfMails = .Attachments.Count

                If NumberOfMails > 0 Then

                    Foldername = "C:\temp\ "

                    MkDir Foldername

                    For i = 1 To NumberOfMails

                        .Attachments.Item(i).SaveAsFile Foldername & "" & .Attachments.Item(i).FileName

                    Next i

                End If

            End If


        End With

    Next objNewMail

End Sub 

Und zwar kennt er schonmal nicht objNewMail, dieses hängt wohl damit zusammen das MailItem nicht kennt. Nun hat dazu wer eine konkrete Lösung? Oder noch besser ein Tutoral wo ich lerne wie ich genau für Outlook 2007 programmieren muss? Also das wäre richtig richtig gut

Danke schonmal !