のおつ -Notes/Dominoに関すること-

リッチテキストフィールド内に文書リンクを作成するメソッドとして、
AppendDocLinkがある。
大変便利なメソッドで、ワークフローや掲示板からの通知によく使うのではないかと思われる。


このメソッドを使うときの注意点が1つある。
文書リンク元のDB（文書リンクの文書があるDBということ）に、デフォルトビューが設定されている必要がある。




サンプルは、自分自身に返答文書を作成して、その中に自分書の文書リンクを保存するものである。

Sub Click(Source As Button)
    Dim uiws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim udoc As NotesDocument
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim resdoc As NotesDocument
    Dim ritem As NotesRichTextItem
    
    Set uidoc = uiws.CurrentDocument
    Set udoc = uidoc.Document
    Set db = session.CurrentDatabase
    Set resdoc = db.CreateDocument
    Set ritem = New NotesRichTextItem( resdoc, "Body" )
    
    resdoc.Form = "Response"
    resdoc.Subject = "文書リンク付返答文書"
    Call resdoc.MakeResponse( udoc )
    Call ritem.AppendDocLink( udoc, udoc.Subject(0) )
    Call resdoc.Save( True, True )
End Sub

Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ