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

[NeoSimvolist]

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

 

[Omh]

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

Удовлетворит?

 

[NeoSimvolist]

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

 

[Omh]

db.OpenByReplicaID

не?