Как прикрепить документ

    Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim uidoc1 As NotesUIDocument
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim session As New NotesSession
Dim user As String
Dim rtitem As NotesRichTextItem
 
Set uidoc1 = workspace.CurrentDocument
Set doc1 = uidoc1.document
 
Set uidoc = workspace.ComposeDocument( "", "", "(LogCard)" )
 
Call uidoc.FieldSetText("dt", Format(Now(), "General Date"))
 
user = session.UserName
 
Call uidoc.FieldSetText("user", user)
 
Call uidoc.FieldSetText("action", ActionName)
 
Call uidoc.GotoField("action")
 
Set doc1 = uidoc.Document
 
Set rtitem = New NotesRichTextItem( doc, "lastver" )
success = doc.RenderToRTItem( rtitem )
 
Call uidoc.Save
Call uidoc.Close(True)

    Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim session As New NotesSession
 
 
answer% = Messagebox("Удалить ребенка из Базы данных?", 4, "Продолжить?")
If (Not ( uidoc.EditMode )) And (answer%=6) Then
fio = uidoc.FieldGetText("fam")+" "+uidoc.FieldGetText("nam")+" "+uidoc.FieldGetText("otc")
Set doc = uidoc.document
Call RegisterAction("Удалено из БД: ребенок - "+fio)
Call doc.Remove( False )

Set rtitem = New NotesRichTextItem(doc, "lastver")
success = doc1.RenderToRTItem(rtitem)

        Set db = session.CurrentDatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
Set docA = db.CreateDocument
Set rtf = New NotesRichTextItem (docA, "Body")
docA.Form = "NewForm"
While Not (doc Is Nothyng)
Call doc.RenderToRTItem (rtf)
Set doc = dc.GetNextDocument (doc)
Wend
Call docA.Save (True, True)