Hallo zusammen ,

ich habe ein schönes Coding gefunden für Excel das folgendes macht :
1. Prüfe in dem Outlook- Posteingang e-mails mit dem "Betreff" was inder Excel Datei in der Zelle "A1" vorhanden ist
2. Prüfe ob in der e-mail "Anhang" wie in der Zelle "B2" heisst.
3. Wenn ja dann speichere unter dem "Verzeichnis" was in der Zelle "C2"
steht.

4. In der Zukunft will auch noch eine Spalte einfügen, wo auf die E-mail Adresse geprüft wird.(Dann wären wir eigentlich vollständig :-))

Alle drei Spalten sind lückenlos und und korrespondierend.

Funktioniert einwandfrei, doch ich möchte dass jede E-mail auf mehrere Zeilen geprüft wird, sprich meherere Betreffe und Anhang-Bezeichnungen.
Hierzu brauche ich eine Schleife mit Variable , doch wie kann ich diese hier einbauen ?

Wenn ein paar Ideen hat , das wäre Super. Ich habe mal mit "Do Loop Until" probiert, aber ich weiß nicht ob und wie man die Schleifen in so einem Fall überhaupt verbinden kann.    

Sub save_attachments()

 Dim olook As Outlook.Application

 Set olook = New Outlook.Application

 Dim omail As Outlook.MailItem

 Set omail = olook.CreateItem(olMailItem)

 Dim ospace As Outlook.Namespace

 Set ospace = olook.GetNamespace("MAPI")

 Dim myfol As Outlook.Folder

 Set myfol = ospace.GetDefaultFolder(olFolderInbox)

 Dim atmt As Attachment

 For Each omail In myfol.Items

 If omail.Subject Like "*" & Range("A2").Value & "*" Then

 For Each atmt In omail.Attachments

 If atmt.Filename Like "*" & Range("B2").Value & "*" Then

 atmt.SaveAsFile Range("C2").Value & atmt.Filename

 Else

 'do nothing

 End If

 Next

 Else

 'do nothing

 End If

 Next

 End Sub