VBA – drucken nach senden, mit speziellem Betreff

Hallo liebe Gemeinde,

ich habe das Problem, dass ich Mails mit bestimmtem Betreff nach dem senden drucken möchten, jedoch komme ich nicht weiter, da es alle drucken, nicht nur da gesendete. Es soll nur die letzte Email mit dem Betreff oder die aktuell gesendete drucken, nicht alle Emails mit dem Betreff.

Sub Emails_drucken()

Dim MyOutId As Integer

Dim MyOutFolder As Object

Dim MyOutlook As Object

Dim MySentItem As Object

Set MyOutlook = CreateObject(“Outlook.Application”)

Set MyOutFolder = MyOutlook.GetNamespace(“MAPI”).GetDefaultFolder(5)

For MyOutId = 1 To MyOutFolder.Items.Count

Set MySentItem = MyOutFolder.Items(MyOutId)

With MySentItem

If Left(MySentItem.Subject, 14) = “Bedarfsmeldung” Then

.PrintOut

End If

End With

Next

End Sub

Ich bitte um Hilfe und Danke vorab.

Andreas