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 ...

Code:

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 !