Email Anhänge in Outlook 2007 speichern und aus Email löschen

Vielen Dank. Es mußten allerdings noch die Unterstriche und folgenden Zeilenumbrüche weg.
Unten der funktionierende Code für Outlook 2007. Dateien stehen dann in C in diesem Beispiel

Da gleich die nächste Frage: Wer kann mir zeigen was ich ändern muß, damit ich den Speicherort selbst mit dem Explorer wählen kann und wenn wir schon dabei sind, wie sorge ich dafür das mein Gesamtdateiname dann so lautet: Datum(Format:YYYYMMDD)_Sendernachname_Dateiname

Sub AnhaengeSpeichern()

\’Festlegen der Parameter

Dim myOrt As String

Dim myOlApp As New Outlook.Application

Dim myOlExp As Outlook.Explorer

Dim myOlSel As Outlook.Selection

Dim myteils, myteil, myAnhänge, myAnhang As Object

\’Hier wird nach dem Ort gefragt wo gespeichert werden soll, wenn Sie den Pfad ändern. Muss dieser vorher schon erstellt sein

myOrt = InputBox(\”Speicherort\”, \”Anhänge Speichern unter: \”, \”C:\”)

On Error Resume Next

\’arbeitet die einzelnen Nachrichten ab

Set myOlExp = myOlApp.ActiveExplorer

Set myOlSel = myOlExp.Selection

\’für alle Teile…

For Each myteil In myOlSel

\’Anhänge festlegen

Set myAnhänge = myteil.Attachments

\’wenn welche dar sind, dann

If myAnhänge.Count > 0 Then

\’fügt einen Hinweis in die Email ein

myteil.Body = myteil.Body & vbCrLf & \”Entfernte Anhänge:\” & vbCrLf

\’und für alle Anhänge…

For i = 1 To myAnhänge.Count

\’nun werden Sie am Speicherort abgelegt

myAnhänge(i).SaveAsFile myOrt & myAnhänge(i).DisplayName

\’hier wird Name und der Ort in der Nachricht eingetragen

myteil.Body = myteil.Body & \”Datei: \” & myOrt & myAnhänge(i).DisplayName & vbCrLf

Next i

\’für alle Anhänge…

While myAnhänge.Count > 0

\’entferne es (wird für Outlook 2002/2003 benötigt)

\’myAnhänge.Remove 1

\’entferne es (wird für Outlook 2000 benötigt)

myAnhänge(1).Delete

Wend

\’abspeichern ohne Anhang

myteil.Save

End If

Next

\’free variables

Set myteils = Nothing

Set myteil = Nothing

Set myAnhänge = Nothing

Set myAnhang = Nothing

Set myOlApp = Nothing

Set myOlExp = Nothing

Set myOlSel = Nothing

Resume

End Sub

Da gleich die nächste Frage: Wer kann mir zeigen was ich ändern muß, damit ich den Speicherort selbst mit dem Explorer wählen kann und wenn wir schon dabei sind, wie sorge ich dafür das mein Gesamtdateiname dann so lautet: Datum(Format:YYYYMMDD)_Sendernachname_Dateiname