Sub Beispiel()
Dim mynamespace As Outlook.NameSpace
Set mynamespace = Application.GetNamespace("MAPI")
Dim myinbox As Outlook.Folder
Set myinbox = mynamespace.GetDefaultFolder(olFolderInbox)
Dim destfolder As Outlook.Folder
Set destfolder = myinbox.Folders("Auto-Daten")
Set destfolder = myinbox.Folders("Auto-Daten")
Dim Rechnungf As Outlook.Folder
Set Rechnungf = destfolder.Folders("Rechnung")
Dim myRechnung As Outlook.Items
Set myRechnung = Rechnungf.Items
Dim Rechnung As Object
Set Rechnung = myRechnung.Find("[SenderName] ='xxxxxxx@xxxxx.com'")
Dim Rechnungdateizeit
Rechnungdateizeit = Format(Now, "YYYY-mm-MMM-DD-hh-mm")
Rechnungmonat = Format(Now, "YYYY-mm-MMM")
If Dir("C:\" & Rechnungmonat, vbDirectory) = "" Then
MkDir ("C:\" & Rechnungmonat)
End If
While TypeName(Rechnung) <> "Nothing"
SentOn = Rechnung.SentOn
Rechnung.Attachments.Item(1).SaveAsFile "C:\" & Rechnungmonat & "\" & Rechnungdateizeit & "-Rechnung .pdf"
Rechnung.Delete
Set Rechnung = myRechnung.FindNext
Wend
MsgBox "Daten wurden automatisch verarbeitet", vbInformation
End Sub