例: LotusScript® のクラスで ID によって文書を検索する

次の例では、データベースの各文書の文書 ID を文字列の配列に保存し、この配列を GetDocumentByID メソッドのループに使用して各文書にアクセスします。UniversalID プロパティと GetDocumentByUNID メソッドに置き換えると、ユニバーサル ID を使用して文書を検索できます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim noteIDs()
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set collection = db.AllDocuments
  Redim noteIDs(1 To collection.Count)
  Set doc = collection.GetFirstDocument()
  Messagebox "count = " & collection.Count
  If collection.Count > 0 Then
    For j = 1 To collection.Count
      noteIDs(j) = doc.noteID
      Set doc = collection.GetNextDocument(doc)
    Next
    Forall noteID In noteIDs
      Set doc = db.GetDocumentByID(noteID)
      Messagebox doc.Subject(0)
    End Forall
  End If
End Sub