Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set doc =uidoc.Document
1. This script creates a new mail memo. In the Body item of the memo, the script places a doclink to the current database.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( db, db.Title )
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Lauri Nodwell"
newDoc.Send( False )
Где находиться док-нт КУДА надо скопировать линк, и где документ линк которого надоскопировать находиться7 и откуда вызываеться сама процедура копирования
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim oldDoc as NotesDocument
Set oldDoc = uidoc.Document ' делаем привязку к текущему новому доку
Set db = session.GetDatabase("","2.база") ' делаем привязку ко второй базе
Set doc = db.CreateDocument ' во 2й базе зодаём документ
doc.Form = "имя формы во 2й базе" ' задаём имя формы для нового документа
Set rtitem = New NotesRichTextItem( Doc, "Body" ) ' обьявляем новое рт поле
Call rtitem.AppendDocLink( olddoc, "ссылка на открытый документ" ) ' вставляем ссылку
Call Doc.Save( true ) ' сохраняем
Call ws.EditDocument(True, doc) ' открываем новый докуент
Обучение наступательной кибербезопасности в игровой форме. Начать игру!