E-Mail Betreff ändern

'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

objItem.Subject = objItem.Subject & " Importiert"