Domino COM的HTML示例 (轉)[@more@]

下面示例HTML程式碼，可以在頁上Notes。
注意：使用時客戶端需要有Notes.ini及ID

Initialize Session

Sub Button1_OnClick   dim s, dir,   Set s = Create("Lotus.NotesSession")   Call s.Initialize   Set dir = s.GetDbDirectory("")   Set db = dir.GetFirstDatabase(1247)   dbString = db.Title   dbCount = 1   While Not (db Is Nothing)   If dbCount > 12 Then   MsgBox dbString,, "Databases on " + dir.Name   dbString = db.Title   dbCount = 1   Else   dbString = dbString + Chr(10)   dbString = dbString + db.Title   dbCount = dbCount + 1   End If   Set db = dir.GetNextDatabase   Wend   MsgBox dbString,, "Databases on " + dir.Name End Sub

Domino COM的HTML示例 (轉)

Print Databases on Doc

相關文章