Was hast Du denn schon probiert? Das geht mit einem Agenten und LotusScript.
Hier ein Beispielscript zum einsteigen:
Dim ses as New NotesSession
Dim ws as New NotesUIWorkspace
Dim db as NotesDatabase
Dim dbMail as NotesDatabase
Dim dc as NotesDocumentCollection
Dim doc as NotesDocument
Dim docMemo as NotesDocument
Dim adresses() as String
Dim i as Integer
Set db = ses.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
While not(doc is Nothing)
Redim preserve adresses(i)
adresses(i) = doc.GetItemValue( "FeldNameMitInternetAdresse" )(0)
i = i + 1
Set doc = dc.GetNextDocument( doc )
Wend
Set dbMail = New NotesDatabase( "", "" )
Call dbMail.OpenMail()
Set docMemo = New NotesDocument( dbMail )
Call docMemo.ReplaceItemValue( "Form", "Memo" )
Call docMemo.ReplaceItemValue( "SendTo", adresses )
Call ws.EditDocument( True, docMemo )
Der Code ist im Browser schnell runtergetippt und enthält höchstwahrscheinlich noch Fehler, aber als Startpunkt sollte es reichen.