Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim uid As NotesUIDocument
Dim uis As NotesUIScheduler
Set ws = New NotesUIWorkspace
Set uid = ws.CurrentDocument
Set uis = uid.GetSchedulerObject("Main")
Messagebox uis.Timezone,, "Time zone"
End Sub

関連項目

TimeZone プロパティ

用語集