例: アイテムのプロパティにアクセスする

次の例では、NotesItem オブジェクトのプロパティを表示します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Dim item As NotesItem
  itemName = Inputbox("Which item?")
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  Set item = doc.GetFirstItem(itemName)
  Select Case Item.Type
  Case ATTACHMENT : itemType = "File attachment"
  Case EMBEDDEDOBJECT : itemType = "Embedded object"
  Case ERRORITEM : itemType = _
  "Error occurred while accessing type"
  Case NAMES : itemType = "Names field"
  Case AUTHORS : itemType = "Authors field"
  Case READERS : itemType = "Readers field"
  Case NOTELINKS : itemType = _
  "Reference to the parent document"
  Case NOTEREFS : itemType = "DocLink"
  Case NUMBERS : itemType = "Number or range of numbers"
  Case RICHTEXT : itemType = "Rich text"
  Case SIGNATURE : itemType = "Signature"
  Case DATETIMES: itemType = _
  "Time-date value or range of values"
  Case TEXT : itemType = "Text or text list"
  Case UNAVAILABLE : itemType = "Not available"
  Case UNKNOWN : itemType = "Unknown"
  Case USERDATA : itemType = "User data"
  Case USERID : itemType = "User ID file"
  Case Else : itemType = Item.Type
  End Select
  Messagebox "Name: " & item.Name
  Messagebox "Type: " & itemType
  Messagebox "Text:" & Chr(10) & item.Text
  Messagebox "ValueLength: " & item.ValueLength
  If item.Type = RICHTEXT Then
    Messagebox "Values:" & Chr(10) & item.Values
  Elseif item.Type = DATETIMES Then
    Messagebox "Date: " & _
    item.DateTimeValue.LSLocalTime
    Elseif item.Type <> NOTELINKS _
  And item.Type <> NOTEREFS _
  And item.Type <> UNKNOWN _
  And item.Type <> UNAVAILABLE Then
    Forall itemValue In item.Values
      Messagebox "Values:" & Chr(10) & itemValue
    End Forall
  End If
  If item.IsEncrypted Then Messagebox "Is encrypted"
  If item.IsSigned Then Messagebox "Is signed"
  If item.IsSummary Then Messagebox "Is summary"
  If item.IsProtected Then Messagebox "Is protected"
  If item.IsNames Then Messagebox "Is names"
  If item.IsReaders Then Messagebox "Is readers"
  If item.IsAuthors Then Messagebox "Is authors"
End Sub