Agent to get text in mail documents

Is it possible with an agent search through a mail database within the documents after mailaddresses and export them to an .txt for something?

Anyone has an complete agent for that?

Subject: you can use this for a start

It should not be that difficult. You can use the lotuscript code below as a start in an agent and work from there.As you can see it uses the inbox folder to get all the from addresses.

Have fun.

Dim session As New NotesSession

Dim db As NotesDatabase

Dim vw As NotesView

Dim doc As NotesDocument

Dim fn As Integer



Set db = session.Getdatabase("<yourserver>", "<targetmailfile>", false)

Set vw = db.Getview("($Inbox)")

Set doc = vw.Getfirstdocument()



fn = FreeFile()

Open |D:\TEMP\emailaddresses.txt| For Output As fn



While Not doc Is Nothing

	Write #fn, doc.From(0)

	

	Set doc = vw.Getnextdocument(doc)

Wend



Close #fn