Potresti con un DialogBox della classe NotesUIWorkspace.
Devi creare quindi un modulo nel template di posta, nel quale inserire i campi per l\'archiviazione. Al comando \'Conferma\' archivi l\'e-mail, del tipo:
Se s = new notessession
Set ws = new notesuiworkspace
Set udoc = ws.currentdocument
Set db = s.getdatabase("TUOSERVER/TUAORGANIZZAZIONE", "Directory\Db.nsf", False)
If db is nothing then
msgbox "Errore nell\'apertura del database di archiviazione.", 16
exit sub
End If
Set docArchiviato = db.createdocument
Call udoc.document.copyallitems(docArchiviato, True)
docArchiviato.Form = "TuoModuloNelDBDiArchiviazione"
Call docArchiviato.save(True, false, true)
Ciao ;)
Massimo Nadalin | Devangarde
|