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")
Dim xmlf As Outlook.Folder
Set BEISPIELxmlf = destfolder.Folders("BEISPIELxml")
Dim myBEISPIELxml As Outlook.Items
Set myBEISPIELxml = BEISPIELxmlf.Items
Dim myflash As Outlook.Items
Dim BEISPIELxml As Object
Set BEISPIELxml = myBEISPIELxml.Find("[SenderName] ='name@adresse.com'")
While TypeName(BEISPIELxml) <> "Nothing"
SentOn = BEISPIELxml.SentOn
BEISPIELxml.Attachments.Item(1).SaveAsFile "C:\Pfad\BEISPIELxml.xml"
BEISPIELxml.Delete
Set BEISPIELxml = myBEISPIELxml.FindNext
Wend