Public Sub AutoDaten()
Dim mynamespace As Outlook.NameSpace
Dim objOwner As Outlook.Recipient
Set mynamespace = Application.GetNamespace("MAPI")
Set objOwner = mynamespace.CreateRecipient("xxxx@xxxx.xx")
objOwner.Resolve
Dim myinbox As Outlook.Folder
If objOwner.Resolved Then
Set myinbox = mynamespace.GetSharedDefaultFolder(objOwner, olFolderInbox)
End If
Dim destfolder As Outlook.Folder
Set destfolder = myinbox.Folders("Automatik")
Dim beispielf As Outlook.Folder
Set beispielf = destfolder.Folders("IrgendeinUnterordner")
Dim mybeispiel As Outlook.Items
Set mybeispiel = beispielf.Items
Dim beispiel As Object
Set beispiel = mybeispiel.Find("[SenderName] ='xxx@xxx.com'")
While TypeName(beispiel) <> "Nothing"
SentOn = beispiel.SentOn
beispiel.Attachments.Item(1).SaveAsFile "ABCD irgenmdein Pfad"
Set beispiel = mybeispiel.FindNext
Wend
End Sub
Danke für Eure Hilfe!
Tom