Set destfolder = myinbox.Folders("Auto-Daten")
Dim BEISPIELf As Outlook.Folder
Set BEISPIELf = destfolder.Folders("BEISPIEL")
Dim myBEISPIEL As Outlook.Items
Set myBEISPIEL = BEISPIELf.Items
Dim MailItemBEISPIEL As Object
Dim BEISPIEL As Object
Set BEISPIEL = myBEISPIEL.Find("[SenderName] =was@wo.com'")
Dim BEISPIELdateizeit
While TypeName(BEISPIEL) <> "Nothing"
SentOn = BEISPIEL.SentOn
saveFolderSTAMMVERZEICHNISS = "X:\"
BEISPIEL.Attachments.Item(1).SaveAsFile saveFolderSTAMMVERZEICHNISS & "Irgendwas.pdf"
BEISPIEL.UnRead = False
BEISPIEL.Delete
Set BEISPIEL = myBEISPIEL.FindNext
Wend