Dim oOutlook As Object       ' Outlook Object
        Dim oNamespace As Object     ' Namespace Object
        Dim oFolder As Object        ' MapiFolder Object
        Dim oMail As Object          ' Mail Object
        Dim oAnhang As Object        ' Attachment Object
        Dim i As Integer
        Dim j As Integer
 
        Const olFolderInbox = 6
        Const olTXT = 0
 
        On Error Resume Next
 
        ' Outlook-Objekt erstellen
        oOutlook = CreateObject("Outlook.Application")
 
        ' Namespace: MAPI
        oNamespace = oOutlook.GetNamespace("MAPI")
 
        oFolder = oNamespace.GetDefaultFolder(olFolderInbox)
 
        ' Alle Mails durchlaufen
        i = 1
        j = oFolder.Items.Count
        Do While j > 0
            oMail = oFolder.Items(j)
 
            ' Auf Anhang prüfen und evtl. speichern
            With oMail.Attachments
                i = .Count
                Do While (i > 0)
                    oAnhang = .Item(i)
                    oAnhang.SaveAsFile(sPath & CStr(i) & "_" & _
                      oAnhang.DisplayName)
                    i = i - 1
                Loop
            End With
 
            ' Nachricht speichern
            'oMail.SaveAs(sPath & CStr(i) & "_" & oMail.Subject & ".txt", olTXT)
            j = j - 1
        Loop
 
        ' Fertig
        MsgBox("Done")