IBM Lotus Symphony
|
Näyttää useita esimerkkejä VBA-koodista. Voit muokata niitä Lotus Symphony -ohjelman Basic IDE -muokkausohjelmassa.
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