set dc = Db.UnprocessedDocuments
set doc = dc.GetFirstDocument
while not doc is nothing
set body = doc.getFirstItem("Body")
strText = body.Text
'- Jetzt hier Deinen text suchen z.B. über instr und machen, was Du willst
set doc = dc.GetNextDocument( doc )
wend