例: SelectAllDesignElements method

次のエージェントは、SelectCodeElements、SelectFormatElements、SelectIndexElements で設定されたもの以外の、データベース内の設計要素から構成される文書コレクションをビルドします。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  
  REM Open xml file named after current database
  Dim stream As NotesStream
  Set stream = session.CreateStream
  path$ = "c:¥dxl¥"
  filename$ = Left(db.FileName, Len(db.FileName) - 3) & "dxl"
  filename$ = path$ & filename$
  If Not stream.Open(filename$) Then
    Messagebox "Cannot open " & filename$,, "Error"
    Exit Sub
  End If
  Call stream.Truncate
  
  REM Create note collection
  Dim nc As NotesNoteCollection
  Set nc = db.CreateNoteCollection(False)
  Call nc.SelectAllDesignElements(True)
  Call nc.SelectAllCodeElements(False)
  Call nc.SelectAllFormatElements(False)
  Call nc.SelectAllIndexElements(False)
  Call nc.BuildCollection
  
  REM Export note collection as DXL
  Dim exporter As NotesDXLExporter
  Set exporter = session.CreateDXLExporter(nc, stream)
  Call exporter.Process
End Sub