1
clic en "Inicio " de Windows y haga clic en "Editor LotusScript . "
2
Escriba el siguiente código en la ventana abierta para fijar el " test.txt " documento de la base de datos Notes :
Sub Initialize
Dim ses como nuevo NotesSession
db As NotesDatabase
colección As NotesDocumentCollection
< p > doc As NotesDocument
rtitem Dim As Variant
objeto Dim As NotesEmbeddedObject
Set db = ses.CurrentDatabase cOLECCIÓN Set
= db.AllDocuments
Set doc = collection.GetFirstDocument
Set rtitem = doc.GetFirstItem ( "Cuerpo" )
Call rtitem.EmbedObject ( EMBED_ATTACHMENT , "", " test.txt " )
Call doc.Save ( true, true )
End Sub
3
Haga clic en " archivo" y luego haga clic en " Guardar" para aplicar el cambiar a la base de datos de Notes.