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

Тема в разделе "Lotus - Программирование", создана пользователем makaset, 7 июн 2007.

  1. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    День добрый!
    как на richtext скопировать линк на документ.
     
  2. velitchestvo

    velitchestvo Гость

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

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    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 в форме
     
  4. Hedg

    Hedg Гость

    Для: makaset

    Код (Text):
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = workspace.CurrentDocument
    Set doc =uidoc.Document
     
  5. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    я ток делал
    пишет

    the linked cannot be found in the view
     
  6. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Где находиться док-нт КУДА надо скопировать линк, и где документ линк которого надоскопировать находиться7 и откуда вызываеться сама процедура копирования
     
  7. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: makaset
    Проверь наличие/доступность дефолтного представления.
     
  8. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    может я нетак объесняю.
    короче есть две базы на находясь на 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 = ссылка на документ на перв базе
     
  9. IsAvailable

    IsAvailable Гость

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

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    ну ия спрашиваю про этот AppendDocLink...как пишется код
     
  11. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: makaset
    Вы в хэлпы хоть иногда заглядываете?
    Код (Text):
    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 )
     
  12. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    я этот пример уже заустил да этого он отправляет ссылку на базу а мне надо на текущи документ

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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посту , без низ не понятно что куда и откуда

     
  14. IsAvailable

    IsAvailable Гость

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

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    да мне надо ткущий открытый документ скопировать как лину на дуругю базу

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Код (Text):
    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) ' открываем новый докуент
     
  17. IsAvailable

    IsAvailable Гость

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

    Код (Text):
    set uidoc = ws.CurrentDocument
     
  18. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    Ух я задалбал нверно Вас я новичнок в Лотусе что где ток ток разбираюсь
    прошу извенеие
    Set oldDoc = uidoc.Document ' делаем привязку к текущему новому доку
    здесь ругается на object variable not set
     
  19. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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
     
  20. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    запустил Ваш код он не вставляеть ссылку на втором документе
     
Загрузка...
Похожие Темы - Опять про линк
  1. vitte
    Ответов:
    10
    Просмотров:
    2.876
  2. Renat11111
    Ответов:
    8
    Просмотров:
    3.700
  3. sanch
    Ответов:
    7
    Просмотров:
    3.923
  4. Баламут
    Ответов:
    19
    Просмотров:
    6.079
  5. sanch
    Ответов:
    5
    Просмотров:
    3.082

Поделиться этой страницей