Outtlook 2010: Regel um Anhänge in Ordner abzuspeichern

OP #3963759
Lesenswert?

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
OP #3964338
Lesenswert?

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
1
Sub IPCamera()
2
Dim OutlookFolderIn As MAPIFolder
3
Dim WindowsFolder As String
4
Dim Email As MailItem
5
Dim TeilBetreff As String
6
Dim AnzahlAnlagen As Integer
7

8
On Error GoTo BeiFehler
9

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

14
For Each Email In OutlookFolderIn.Items
15

16
If InStr(Email.Subject, TeilBetreff) Then
17
    If Email.UnRead = True Then
18
        AnzahlAnlagen = Email.Attachments.Count
19
        If AnzahlAnlagen Then
20
            For i = 1 To AnzahlAnlagen
21
                Email.Attachments.Item(i).SaveAsFile WindowsFolder & "\" & Email.Attachments.Item(i).FileName
22
                Email.UnRead = False
23
            Next i
24
        End If
25
    End If
26
End If
27

28
Next Email
29

30
BeiFehler:
31
Debug.Print Err.Number; Err.Description
32
Err.Clear
33
Resume Next
34
End Sub

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren