Lotus Script: modificare un campo di un documento

Dim sessione As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView

Set sessione = New NotesSession

Set db = sessione.GetDatabase("", "ProvaNicola.nsf")
Set view = db.GetView("($Inbox)")

Set doc = view.GetFirstDocument

Call doc.ReplaceItemValue("From", "nicola.colonna@ngi.it")
Call doc.ReplaceItemValue("INetFrom", "nicola.colonna@ngi.it")
Call doc.ReplaceItemValue("Subject", "Questo è il testo del messaggio")
Call doc.ReplaceItemValue("SendTo", "nicola.colonna@projectsrl.com")

Call doc.Save(True, True)

Leave a Reply

Your email address will not be published.

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>