Outtlook 2010: Regel um Anhänge in Ordner abzuspeichern

[Klaus I. (klauspi)]

Ich spiel gerade mit so einer wireless ip camera herum. Da kann ich mir 
bei der Erkennung von Bewegungen Emails zuschicken lassen, wo jeweils 
sechs Schnappschüsse im jpg-Format im Anhang sind.

Gibt es einen einfachen Weg mit Outlook 2010 diese jpg Dateianhänge von 
den empfangenen Emails automatisch in einem Windows-Ordner auf der 
Festplatte abzuspeichern?

Danke und Gruß
Klaus

[Peter N. (bleumann)]

Googel ist Dein Freund. Zumindest manchmal. Auf jeden Fall bei Deiner 
Frage. Gesucht nach: outlook anhänge automatisch speichern
Der erste Treffer:
http://www.webdata.de/index.php/blogs/trainernews-kai-weible/226-outlook-tipp-3-dateianhaenge-automatisch-speichern.html

Erledigt?
Gruß!

[Klaus I. (klauspi)]

Merci für den Link. Das man mit VBA soetwas kann, habe ich mir schon 
gedacht. Leider verstecken sich auch desöfteren die eingebauten 
Funktionen vor mir :o)

Grüsse
Klaus

Sub IPCamera()
Dim OutlookFolderIn As MAPIFolder
Dim WindowsFolder As String
Dim Email As MailItem
Dim TeilBetreff As String
Dim AnzahlAnlagen As Integer

On Error GoTo BeiFehler

WindowsFolder = "I:\ip_camera\"
TeilBetreff = "(ipcamera) motion alarm"
Set OutlookFolderIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

For Each Email In OutlookFolderIn.Items

If InStr(Email.Subject, TeilBetreff) Then
    If Email.UnRead = True Then
        AnzahlAnlagen = Email.Attachments.Count
        If AnzahlAnlagen Then
            For i = 1 To AnzahlAnlagen
                Email.Attachments.Item(i).SaveAsFile WindowsFolder & "\" & Email.Attachments.Item(i).FileName
                Email.UnRead = False
            Next i
        End If
    End If
End If

Next Email

BeiFehler:
Debug.Print Err.Number; Err.Description
Err.Clear
Resume Next
End Sub