IBM Lotus Symphony


Príklady

Uvádza niekoľko príkladov kódu VBA. Môžete ich upraviť v Lotus® Symphony™ Basic IDE.

Otvorenie nového dokumentu Spreadsheet a zmena obsahu bunky

V editore napíšte nasledujúci kód:
Private Sub CommandButton1_Click()
    Dim wkb As Workbook

    Set wkb = Workbooks.Add
    wkb.Sheets(1).Range("A1") = Now
End Sub

Otvorenie databázy Lotus Notes® prostredníctvom API rozhraní VBA COM

Aby ste mohli túto úlohu vykonať, musíte mať vo svojom počítači nainštalovaný produkt Lotus Notes®. V editore napíšte nasledujúci kód:
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

Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky