unten stehenden Code habe ich hier aus dem Forum. Ich wollte mir ihn so anpassen, dass er mir alle Email Auflistet die im Betreff "Akte von" stehen haben, egal was noch im Betreff steht. Aber mit dem "*" als Platzhalter geht es nicht.
Wie muss ich das machen?
hier der Codeteil:
Sub OutlookPosteingang()
Dim objOL As Object, objFolder As Object
Dim strPath As String
Dim lngIndex As Long, lngCur As Long, lngCount As Long, lngRow As Long
Dim SubjText As String
SubjText = "Akte von " & "*"
strPath = "C:\Android" 'Speicherpfad - Anpassen!
strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
Set objOL = CreateObject("Outlook.Application")
Set objFolder = objOL.GetNamespace("MAPI").GetDefaultFolder(6)
lngCount = objFolder.Items.Count
lngRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For lngCur = 1 To lngCount
Application.StatusBar = "Lese Posteingang " & _
Format(lngCur / lngCount, "0%")
With objFolder.Items(lngCur)
If .Subject = SubjText Then
End Sub
Besten GrußThorsten