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

テクてく 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 件のコメント: