IBM Lotus Symphony
|
列出了几个 VBA 代码示例。您可以在 Lotus® Symphony™ Basic IDE 中对它们进行编辑。
Private Sub CommandButton1_Click() Dim wkb As Workbook Set wkb = Workbooks.Add wkb.Sheets(1).Range("A1") = Now End Sub
Sub OpenNotesDatabase() Dim notes_server As String Dim notes_database As String Dim password As String notes_server = "127.0.0.1" notes_database = "mail\test.nsf" password = "hello" Set notes_session = CreateObject("lotus.NOTESSESSION") Call notes_session.Initialize(password) Set notes_db = notes_session.GETDATABASE(notes_server, notes_database) End Sub