LOTUSSCRIPT/COM/OLE CLASSES

Examples: TimeZoneFmt property
This agent toggles the time zone format for a column.

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("View A")
 Set vc = view.Columns(2)
 If vc.TimeZoneFmt = VC_FMT_ALWAYS Then
   vc.TimeZoneFmt = VC_FMT_Y4M
   f = "Year4 + month"
 Elseif vc.TimeZoneFmt = VC_FMT_Y4M Then
   vc.TimeZoneFmt = VC_FMT_YM
   f = "Year + month"
 Else
   vc.TimeZoneFmt = VVC_FMT_ALWAYS
   f = "Month + day"
 End If
 Messagebox f,, "New time zone format"
End Sub

See Also