Open Calendar/ToDo View with LotusScript

Hi all,

I’ve the problem to open the Calendar- or ToDo-“View” in LotusNotes via LotusScript. The aim is to visually change the view in LotusNotes for the user.

This is currently my experimental code:

'Call m_oUIDatabase.OpenView(CStr(“($Calendar)”)) ’ bad solution and it works not always

m_oUIWorkspace.OpenDatabase CStr(m_sServer), CStr(m_sDatabase), CStr(“($Calendar)”), CStr(“”), False, False

m_oUIWorkspace.ViewRefresh

Set m_oUIDatabase = Nothing

Set m_oUIDatabase = m_oUIWorkspace.CurrentDatabase

m_oUIDatabase.OpenView CStr(“($Calendar)”)

Set oView = m_oLotusNotesDatabase.GetView (CStr(“Calendar”))

oView.Refresh

I’m happy about any solutions from the “gurus” :wink: