Hallo Zusammen,
ich bin mal wieder auf eure Hilfe angewiesen,
ich habe den untenstehenden Code irgendwann mal im www gefunden und würde auch den Autor benennen wenn ich den noch wüsste...
Aber wie bekomme ich es hin das mir der Anhang der abgespeichert wird einen neuen Namen bekommt!? z.B. Steigeisen.xlsb
Dim objOL As Object, objFolder As Object
Dim Betreffsuch As String, Pfad As String
Betreffsuch = Sheets("START").Range("E31").Value
Pfad = Sheets("START").Range("E28").Value
Dim Wb As Workbook, oMail As Object, objNS As Object, Anlagen As Object, Anlage As Object, _
oFldInbox As Object
Set objNS = CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items
Set oFldInbox = objNS
For x = 1 To oFldInbox.Count
Set oMail = oFldInbox(x)
If oMail.Subject = Betreffsuch Then
If oMail.Attachments.Count 0 Then
Set Anlagen = oMail.Attachments
For Each Anlage In Anlagen
Anlage.SaveAsFile Pfad & Anlage
Workbooks.Open (Pfad & Anlage)
Danke für eure Hilfe
Raphael