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