Dateianhänge von x-Emails auf einmal auf HDD speic

Internet E-Mail
1

Hallo,

gibt es eine Möglichkeit in OE 6 die Dateianhänge von x-Emails gleichzeitig in ein bestimmtes Verzeichnis auf der HDD zu speichern? Ich habe da einen Ordner in OE von dem ich nur die Anhänge speichern möchte. Bisher rufe ich jede Email auf und wähle dann mit Rechtsklick „Alles speichern…“ den Ordner. ist nur bei mehreren hundert Emails etwas „Finger“-ermüdent :wink:
Danke.

Grüße
Pfanni

2

Mit OL würde das gehen :expressionless:
Hallo,

vielleicht wieder ein Grund auf OL umzusteigen und OE sein zu lassen. Mit diesem Makro würde es laufen:
Private Sub Application_NewMail()
Dim strNewFolder As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
On Error Resume Next
strNewFolder = „E:\Eigene Dateien\Outlook\Daten\Anlagen“ & Format(Date, „ddmmyy“)
MkDir strNewFolder
Set objPosteingang = Application.GetNamespace(„MAPI“).GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
.Attachments.Item(i).SaveAsFile strNewFolder & „“ & .Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub

Gruß, olli

3

vielleicht wieder ein Grund auf OL umzusteigen und OE sein zu
lassen. Mit diesem Makro würde es laufen:

danke für den Tipp, aber auf den großen Bruder (oder auch die Mutter :wink: ) möchte ich vorerst nicht umsteigen. Nutze auch gar nicht MS Office sondern OpenOffice.

cu
Pfanni