Опять про линк

makaset

Well-known member
14.03.2007
128
0
#1
День добрый!
как на richtext скопировать линк на документ.
 
V

velitchestvo

#2
Привет!
У класса notesRichTextItem есть метод AppendDocLink. Или я что-то недопонял? :huh:
 

makaset

Well-known member
14.03.2007
128
0
#3
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Set doc = view.GetLastDocument
Call rtitem.AppendDocLink _
( doc, doc.Subject( 0 ) & " in " & view.Name )

Set doc = view.GetLastDocument мне здесь не GetLastDocument и GetfirstDocument а текущии открытый документ нужен
и далее как как этот ссылку всавить на richtext в форме
 
H

Hedg

#4
Для: makaset

Код:
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set doc =uidoc.Document
 

morpheus

скриптописец
07.08.2006
3 915
1
#6
Где находиться док-нт КУДА надо скопировать линк, и где документ линк которого надоскопировать находиться7 и откуда вызываеться сама процедура копирования
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#7
Для: makaset
Проверь наличие/доступность дефолтного представления.
 

makaset

Well-known member
14.03.2007
128
0
#8
может я нетак объесняю.
короче есть две базы на находясь на 1 ой базе нажимаю на кнопку отправить
откывается 2 база и н второй базу в поле рич текс мне надо вставить ссылкуна доумент откуда я нажал кнопку кнопку

Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set db = session.GetDatabase("","2.база")
Set doc = db.CreateDocument
doc.Form = "имя формы во 2й базе"
Call ws.EditDocument(True, doc)
ribchtext = ссылка на документ на перв базе
 
I

IsAvailable

#9
Для: makaset
Ну уже говорили же тут про AppendDocLink...
 

morpheus

скриптописец
07.08.2006
3 915
1
#11
Для: makaset
Вы в хэлпы хоть иногда заглядываете?
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 )
 

makaset

Well-known member
14.03.2007
128
0
#12
я этот пример уже заустил да этого он отправляет ссылку на базу а мне надо на текущи документ

Set doc = view.GetLastDocument здесь теущии докумнт на last или first
Call rtitem.AppendDocLink _
( doc, doc.Subject( 0 ) )
 

morpheus

скриптописец
07.08.2006
3 915
1
#13
<!--QuoteBegin-makaset+7:06:2007, 12:36 -->
<span class="vbquote">(makaset @ 7:06:2007, 12:36 )</span><!--QuoteEBegin-->Set doc = view.GetLastDocument здесь теущии докумнт на last или first
[snapback]68478" rel="nofollow" target="_blank[/snapback]​
[/quote]
Вам надо текущий открытый???
Вы ответе на вопросы которые я задавал в 6посту , без низ не понятно что куда и откуда

Где находиться док-нт КУДА надо скопировать линк, и где документ линк которого надоскопировать находиться7 и откуда вызываеться сама процедура копирования
 
I

IsAvailable

#14
Для: makaset
А если GetFirstDocument использовать : )
Ну или выбирать из втюхи .Documents
 

makaset

Well-known member
14.03.2007
128
0
#15
да мне надо ткущий открытый документ скопировать как лину на дуругю базу

ну как нап-р открываем документ делаем kopy as linck --->document linck и открвыаем другой документ на ричтескт вставляем
 

morpheus

скриптописец
07.08.2006
3 915
1
#16
Код:
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) ' открываем новый докуент
 

makaset

Well-known member
14.03.2007
128
0
#18
Ух я задалбал нверно Вас я новичнок в Лотусе что где ток ток разбираюсь
прошу извенеие
Set oldDoc = uidoc.Document ' делаем привязку к текущему новому доку
здесь ругается на object variable not set
 

morpheus

скриптописец
07.08.2006
3 915
1
#19
<!--QuoteBegin-makaset+7:06:2007, 13:36 -->
<span class="vbquote">(makaset @ 7:06:2007, 13:36 )</span><!--QuoteEBegin-->Set oldDoc = uidoc.Document ' делаем привязку к текущему новому доку
[snapback]68490" rel="nofollow" target="_blank[/snapback]​
[/quote]
Да ,я забыл поставить вот эту строку
set uidoc = ws.CurrentDocument
 

makaset

Well-known member
14.03.2007
128
0
#20
запустил Ваш код он не вставляеть ссылку на втором документе