Lotus Notes - COMO AÑADIR UN FICHERO A UN DOCUMENTO

Alguien tiene el código para adicionar, coger un fichero para adjuntarlo al documento que quiero?.

Gracias.

si lo que necesitas es "Adjuntar" una carpeta del S.O con todos los archvos a un documento, no lo puedes hacer. necesariamente debes hacerlo uno por uno.

o puedes hacer un ciclo que recorra la carpeta seleccionada e adjunte uno por uno los documentos.

algo asi:

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Set newdoc = New NotesDocument(db)
newdoc.Form="MIFORMULARIO"
Set rtitem = New NotesRichTextItem( newdoc, "archivos")


pathName$ = "c:*.sql"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "c:"+fileName$)
fileName$ = Dir$()
Loop

Call newdoc.save(1,1)
End Sub