例: ParentDocumentUNID property

  1. 次のスクリプトはメッセージを表示します。
    Dim parentUnid As String
    parentUnid = doc.ParentDocumentUNID
    If ( parentUnid = "" ) Then
      Messagebox( "This document has no parent." )
    Else
      Messagebox( "The parent's UNID is " + parentUNID )
    End If
  2. 次のスクリプトは、NotesDatabase の ParentDocumentUNID メソッドと GetDocumentByUNID メソッドを使用して返答文書の親文書を検索します。
    Dim response As NotesDocument
    Dim parent As NotesDocument
    '...set value of response...
    Set parent = db.GetDocumentByUNID _
    ( response.ParentDocumentUNID )