ich habe folgenden Abschnitt eines Makros der nicht ganz funktioniert:
'E-Mails verarbeiten
i = 1
AnzSaetze = 0
For Each objItem In objFolder.Items
If TypeName(objItem) = "MailItem" And StrComp(objItem.Subject, "Nutzungsbedingungen", _
vbBinaryCompare) = 0 Then
objItem.Subject = objItem.Subject & " Importiert"
objItem.UnRead = False
AnzSaetze = AnzSaetze + 1
Set objMc = objRe.Execute(objItem.body)
olName = InStr(1, objItem.body, "Der Benutzer")
olNameE = InStr(olName + 13, objItem.body, "hat")
olDatum = InStr(1, objItem.body, "hat am")
Cells(i + 1, 1).Value = Mid(objItem.body, olName + 13, olNameE - (olName + 13))
Cells(i + 1, 2).Value = "1"
Cells(i + 1, 3).Value = Mid(objItem.body, olDatum + 7, 10)
i = i + 1
End If
Next
Die problematische Stelle hierbei ist folgende:
objItem.Subject = objItem.Subject & " Importiert"
Ich bekomme es nur hin, dass bei der ersten E-Mail der Betreff wie gewünscht geändert wird. Bei den nachfolgenden E-Mails wird der Betreff nicht mehr geändert.Die anderen Funktionen laufen reibungslos. So wird beispielsweise der Status UnRead korrekt bei den jeweiligen E-Mails auf False gesetzt.
Über einen Hinweis was ich hier falsch gemacht habe, würde ich mich sehr freuen. Vielen Dank.