Sub Initialize
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim sourcebody As NotesRichTextItem
Dim itemA As NotesItem
Dim itemB As NotesItem
Dim tmp As String
Dim DocID As String
Set db = session.CurrentDatabase
Set view = db.GetView("Template")
Set uidoc = ws.CurrentDocument
Call uidoc.Save 'это я делал для дополнительной проверки работоспособности
Call uidoc.Refresh 'это я делал для дополнительной проверки работоспособности
Set doc = uidoc.Document
tmp=doc.attachName(0)
Set doc1 = view.GetDocumentByKey (tmp)
Set itemA = doc1.GetFirstItem( "Included" )
Call itemA.CopyItemToDocument( doc, "attFile" )
Set sourcebody = New NotesRichTextItem ( doc, "attFile" )
Call sourcebody.Update
Call ws.EditDocument(True, uidoc.Document)
Call uidoc.Document.ReplaceItemValue("SaveOptions", "0")
Call uidoc.Close(True)
'получается, что сам аттач под черной полоской и по сигнатуре $FILE, а не в указанном RT-поле (((
End Sub