Outlook 2007 Dateien per vba speichern mit Betreff als Dateinamen

Question

Hallo zusammen,

ich versuche verzweifelt, dass ein outlook makro alle Anhänge von E-Mails in einem
bestimmten Ordner speichert. Es ist immer 1 Anhang und der Betreff hat immer die
selbe Struktur.
Die Datei abspeichern (ohne den Namen zu änder) klappt wunderbar nur sobald ich
irgendwie versuche den Betreff (MailItem.Subject) in den Namen einzubauen, wird
überhaupt nichts mehr gespeichert.

Ich hoffe mir kann jemand weiterhelfen

Answer 1

Anbei noch mein Code
Ich habe den Code übrigens auch hier aus dem Forum, ich bin mit
VBA nicht besonders bewandert.

Sub Anlagen_Speichern(olMail As MailItem)

'Objekte/Variablen deklarieren
Dim Ziel As String
Dim Anlagen As Attachments
Dim i As Integer

'Speicherordner angeben (bitte mit Backslash abschließen!)
Ziel = "Speicherort"

'Abbruch, wenn Ordner nicht vorhanden
If Dir(Ziel, vbDirectory) = "" Then Exit Sub

'Mailanhänge ermitteln
Set Anlagen = olMail.Attachments

Betreff = olMail.Subject

'alle Anhänge der Mail durchlaufen und speichern
For i = 1 To Anlagen.Count
'Dateiname zusammensetzen
Datei = Ziel & "_" & Anlagen.Item(i).FileName
'Anlage speichern
Anlagen.Item(i).SaveAs Datei

Next i

End Sub