Für jede Schleife Ausgabe

Question

Ich habe unter VBA-Code, der mit VBA funktioniert "für jede Schleife". Das Problem ist, dass ich den folgenden Code in einem anderen Programm verwendet habe, aber in dem Zustand ist die gleiche, nur ich möchte die Schleife-Sache darin entfernen.

Der Code sollte ausgeführt und gestoppt werden, nachdem die Aufgabe einmal abgeschlossen wurde. Kurz gesagt möchte ich die Schleife entfernen und es so machen, wo Code ohne Schleife läuft. Ersetzen

Set olNs = outlookApp.GetNamespace("MAPI") 
Set Fldr = olNs.GetDefaultFolder(olFolderInbox) 
Set myTasks = Fldr.Items 

For Each olMail In myTasks 
    If (InStr(1, olMail.Subject, ws.Range("E" & FinalRow), vbTextCompare) > 0) Then 
     olMail.Display 
    End If 
Next olMail 

Answer 1

Verwenden Exit For kurz vor Weiter olMail, wenn Sie es laufen nur einmal wollen. Wenn Sie möchten, beenden, nachdem der, wenn die Bedingung erfüllt Ort wird vor Ende, wenn

Try this:

For Each olMail In myTasks 
    If (InStr(1, olMail.Subject, ws.Range("E" & FinalRow), vbTextCompare) > 0) Then 
     olMail.Display 
    Exit For 
    End If 
Next olMail 

Answer 2

For Each olMail In myTasks 
If (InStr(1, olMail.Subject, ws.Range("E" & FinalRow), vbTextCompare) > 0) Then 
    olMail.Display 
    End If 
Next olMail 

Mit

For Each olMail In myTasks 
    If (InStr(1, olMail.Subject, ws.Range("E" & FinalRow), vbTextCompare) > 0) Then 
     olMail.Display 
     Exit For '// Exit the loop if the item is displayed. 
    End If 
Next olMail