Fare clic su " Start" di Windows e quindi fare clic su " LotusScript Editor ".
2
Immettere il seguente codice nella finestra aperta per attaccare il " test.txt " documento per il database Notes :
Sub Initialize
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim raccolta Come NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
oggetto Dim As NotesEmbeddedObject
Set db = ses.CurrentDatabase
Set raccolta
= db.AllDocuments
doc = collection.GetFirstDocument
rtitem = doc.GetFirstItem ( " Body" ) per
Chiama rtitem.EmbedObject ( EMBED_ATTACHMENT , " " , " test.txt" ) per
Chiama doc.Save ( vero, vero ) per
End Sub
3
Fare clic su " File" e quindi fare clic su "Salva" per applicare la modifica al database Notes .
Programmazione © www.354353.com