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

  • Автор темы NeoSimvolist
  • Дата начала
N

NeoSimvolist

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

Omh

Lotus team
04.07.2007
2 210
1
#2
Код:
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
Удовлетворит?
 
N

NeoSimvolist

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