Extract Received fields from memo document via LotusScript
Posted on 2004-04-06
On the face of it, this is a simple question. But the answer remains elusive!
I want to export the contents of a memo document (from a users email database) in order to keep it as raw data. (Actually, the message is an annoying spam/virus that I want to submit to our spam preventor service.)
Using a script along the lines of:
'nDoc is a NotesDocument item, containing a typical memo
'WriteNode simply outputs to a text file
Forall o In nDoc.Items
Forall i In o.Values
Call WriteNode(o.Name, i, iFile)
The idea being to scan through all fields on the document, and save each value found as an entry. So I can then provide the headers, etc for analysis.
I have found that when examining the Received field, I have 3 to 5 entries named Received typically. But each iteration of the loop always returns the first item. (i.e. item at index 0 is always returned.) You can see the multiple entries looking at the Document Properties box, and scanning down the list. You'll also find multiple Body fields.
The result being that I find 3 to 5 identical entries for the Received item.
Any ideas? Thanks - Jamie