Можно ли получить документ по ссылке в поле Richtext?

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

  1. NeoSimvolist

    NeoSimvolist Гость

    Можно ли получить документ по ссылке в поле RichText?
     
  2. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Код (LotusScript):
    Function GetRTLinkInfo(doc As NotesDocument, ItemName As String) As Variant
    '(0) - Db server
    '(1) - Db ReplicaID
    '(2) - View UNID
    '(3) - Document UNID
    On Error Goto Errh

    Dim rv(3) As String
    GetRTLinkInfo = rv

    If doc Is Nothing Then Exit Function
    If ItemName = "" Then Exit Function

    Dim RTItem As NotesRichTextItem
    Set RTItem = doc.GetFirstItem(ItemName)

    If Not RTItem Is Nothing Then
    If RTItem.Type = 1 Then
    Dim RTNav As NotesRichTextNavigator
    Dim RTLink As NotesRichTextDocLink

    Set RTNav = RTItem.CreateNavigator
    If RTNav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
    Set RTLink = RTNav.GetElement

    rv(0) = RTLink.ServerHint
    rv(1) = RTLink.DBReplicaID
    rv(2) = RTLink.ViewUnID
    rv(3) = RTLink.DocUnID
    End If
    End If
    End If

    GetRTLinkInfo = rv

    Exit Function
    errh:
    Msgbox Error & | in line | & Erl(), 64, |Lotus Notes (| & Lsi_info(2) & |)|
    Exit Function
    End Function
    Удовлетворит?
     
  3. NeoSimvolist

    NeoSimvolist Гость

    А как открыть бд зная '(1) - Db ReplicaID
    и имя сервера
     
  4. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Код (Text):
    db.OpenByReplicaID
    не? :)
     
Загрузка...

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