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