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

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

2008年10月2日木曜日

親文書を検索する

自文書の親文書を検索する方法を紹介する。

サンプルは、ビューから実行する物で、選択した文書の親文書のタイトル(Subjectフィールド)を表示するものである。
親文書が存在しない場合は、その旨のメッセージを表示するようになっている。


Sub Initialize
    '自DBの定義
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim docs As NotesDocumentCollection
    Dim doc As NotesDocument
    
    '親文書の定義
    Dim pid As String
    Dim pdoc As NotesDocument
    
    '現在選択されている文書の取得
    Set db = session.Currentdatabase
    Set docs = db.UnprocessedDocuments
    Set doc = docs.GetFirstDocument
    
    '親文書の文書IDを取得する(存在しない場合は、Nullを返す)
    pid = doc.ParentDocumentUNID
    If pid = "" Then
        Messagebox "この文書には親文書は存在しません。", 0 + 16, "親文書の検索"
        Exit Sub
    End If
    
    '取得した親文書のIDを元にDBを検索(実際に親文書があるかどうか)
    Set pdoc = db.GetDocumentbyUNID( pid )
    If pdoc Is Nothing Then
        Messagebox "親文書が存在しません。削除された可能性があります。", 0 + 16, "親文書の検索"
    Else
        '親文書のタイトル(Subjectフィールドの内容)を表示する
        Messagebox "親文書のタイトルは、『" + pdoc.Subject(0) + "』です。", 0 + 64, "親文書の検索"
    End If
End Sub



Notes/Dominoで困ったことがあれば、弊社にお問い合わせください。
IBM Championの私が承ります!
Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: