当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2008年8月7日木曜日

文書リンクの作成

リッチテキストフィールド内に文書リンクを作成するメソッドとして、
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 カスタマイズとセキュリティ強化 - 株式会社エフ



0 件のコメント: