StarStone Log
It's a kind of magic






 



 

Undocumented LotusScript

Undocumented LotusScript

Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase If (db Is Nothing) Then Exit Sub End If Dim flds As Variant, x As Integer, fldList As String flds = db.GetFields(False) For x = 0 To Ubound(flds) fldList = fldList + flds(x) + Chr(13) Next x Msgbox fldList, 0, db.Title + " fields"

db.RetrievePOP3MAIL("server address",port,"username","password",(True/False to retain mail), (True/False to use SSL))

Db.CreateNewsGroup("group name")

Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase If (db Is Nothing) Then Exit Sub End If Dim dc As NotesDocumentCollection Dim doc As NotesDocument, gid As String, html As String Set dc = db.AllDocuments For x = 1 To dc.Count Set doc = dc.GetNthDocument(x) gid = doc.GenerateMessageID html = doc.GenerateHTMLString Next x

Dim s As New NotesSession Dim idom As String, ihost As String, win As Variant, cr As String cr = Chr(13) idom = "Internet Domain: " + s.InternetDomainName ihost = "Internet Host: " + s.InternetHostName Set win = s.GetWin32Domain Msgbox idom + cr + ihost + cr + "Win32 Domain: " + win.ServerName, 0, "Example 3" Call s.Close()

Dim uiw As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = uiw.CurrentDocument Print uidoc.ParentViewName

Dim uiw As New NotesUIWorkspace Call uiw.AddDatabaseToPortfolio() Call uiw.AddBookmark("Example 5")

Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase If (db Is Nothing) Then Exit Sub End If Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim item As NotesItem Dim pt As Variant, html As String Set dc = db.AllDocuments For x = 1 To dc.Count Set doc = dc.GetNthDocument(x) Set item = doc.GetFirstItem("combo") pt = item.PartialText Next x

Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument, temp As NotesDocument Dim rt As NotesRichTextItem Dim pt As Variant, html As String Set dc = db.AllDocuments Set temp = dc.GetFirstDocument For x = 1 To dc.Count Set doc = dc.GetNthDocument(x) Set rt = doc.GetFirstItem("Body") pt = rt.PartialText Call rt.AddLinkByIDS(db.ReplicaID, "","",temp.UniversalID) Call doc.Save(False, False) Next x

AddLinkByIDs(db.ReplicaID, "", optional_view_link_UNID, optional_document_link_UNID, "optional comments", "optional hotspot text")

Tony Patton Senior Developer TIS Worldwide (USA) c Xephon 2000


Click here to visit the Radio UserLand website.
Click to see the XML version of this web page.
Click here to send an email to the editor of this weblog.
© Copyright 2004 Herman Duyker.
Last update: 02/11/2004; 21:23:52.