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

[makaset]

День добрый!
как на richtext скопировать линк на документ.

 

[velitchestvo]

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

 

[makaset]

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 в форме

 

[Hedg]

Для: makaset

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set doc =uidoc.Document

 

[makaset]

я ток делал
пишет

the linked cannot be found in the view

 

[morpheus]

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

 

[Medevic]

Для: makaset
Проверь наличие/доступность дефолтного представления.

 

[makaset]

может я нетак объесняю.
короче есть две базы на находясь на 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 = ссылка на документ на перв базе

 

[IsAvailable]

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

 

[makaset]

ну ия спрашиваю про этот AppendDocLink...как пишется код

 

[morpheus]

Для: 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]

я этот пример уже заустил да этого он отправляет ссылку на базу а мне надо на текущи документ

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

 

[morpheus]

<!--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 и откуда вызываеться сама процедура копирования

 

[IsAvailable]

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

 

[makaset]

да мне надо ткущий открытый документ скопировать как лину на дуругю базу

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

 

[morpheus]

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) ' открываем новый докуент

 

[IsAvailable]

еще, пожалуй:

set uidoc = ws.CurrentDocument

 

[makaset]

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

 

[morpheus]

<!--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]

запустил Ваш код он не вставляеть ссылку на втором документе