例: データベースのプロパティにアクセスする

  1. 次の例では、ビルトインのデータ型であるデータベースのプロパティの値を出力します。
    Sub Initialize
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.CurrentDatabase
      Messagebox "Title: " & db.Title & Chr(10) _
      & "File name: " & db.FileName & Chr(10) _
      & "Path name: " & db.FilePath & Chr(10) _
      & "Replica ID: " & db.ReplicaID & Chr(10) _
      & "Size: " & db.Size & Chr(10) _
      & "Created: " & Chr(10) _
      & "Last modified: " & db.LastModified
      If db.IsOpen Then
        Messagebox "Database is open"
      Else
        Messagebox "Database is not open"
      End If
      Forall manager In db.Managers
        Messagebox "Manager: " & manager
      End Forall
      Messagebox "Categories: " & db.Categories
      If db.TemplateName <> "" Then
        Messagebox "Template name " _
        & db.TemplateName
      End If
      If db.DesignTemplateName <> "" Then
        Messagebox "Design template name" _
        & db.DesignTemplateName
      End If
      If db.IsFTIndexed Then
        Messagebox "Is full-text indexed " _
        & db.LastFTIndexed
      End If
      Messagebox "Current access level: " _
      & db.CurrentAccessLevel & Chr(10) _
      & "Percent used: " & db.PercentUsed & Chr(10) _
      & "Server name: " & db.Server & Chr(10) _
      & "Size limit: " & db.SizeQuota
      Messagebox "FolderReferenceEnabled: " _
      & db.FolderReferencesEnabled
      Messagebox "IsDirectoryCatalog: "_
      & db.IsDirectoryCatalog
      Messagebox "Maxsize: "_
      & db.Maxsize
    End Sub
  2. 次の例では、データベースの各ビューの名前を出力します。NotesView オブジェクトが定義され、Views プロパティにそれぞれの値が設定されます。ビューの名前は、ビューオブジェクトのプロパティです。

    Sub Initialize
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim views As Variant
      Set db = session.CurrentDatabase
      views = db.Views
      Forall v In views
        Messagebox(  v.Name  )
      End Forall
    End Sub