例: TimeZoneFmt property

次のエージェントは、列のタイムゾーン形式を切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("All Documents")
  Set vc = view.Columns(0)
  If vc.TimeZoneFmt = VC_FMT_ALWAYS Then
    vc.TimeZoneFmt = VC_FMT_NEVER
    f = "Never"
  Elseif vc.TimeZoneFmt = VC_FMT_NEVER Then
    vc.TimeZoneFmt = VC_FMT_SOMETIMES
    f = "Sometimes"
  Else
    vc.TimeZoneFmt = VC_FMT_ALWAYS
    f = "Always"
  End If
  Messagebox f,, "New time zone format"
End Sub