tach zusammen,
vllt is hier ja jemand der sich damit auskennt.

und zwar habe ich folgenden code, ausm internet und etwas angepasst.
das problem ist das ich in den dateinamen den betreff speichern moechte.
wenn also ne mail kommt mit dem anhang "bild.bmp" und der betreff lautet urlaub,
dann soll die datei im ordner x mit dem namen bildurlaub.bmp gespeichert werden.
das problem is das mir .subject keinen wert ausgibt ???

Sub AnhaengeSpeichern()
'Speichert die Anänge der MARKIERTEN Mails in einem best. Ortner

'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

Dim sName As String
Dim aName As Object

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

'Speicherort (evtl. anpassen)
myOrt = "C:\xxxtest\"

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

' Namen Anlegen

Set aName = myteil.Subject

'sName = Replace2(aName, "/\*:[]""", "")

'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)
Next i


Next

Resume

End Sub

habs jetzt etwas umstaendlich ueber ne for schleife geloest, zwar irgendwie nicht schoen aber es geht