Saturday, April 22, 2006

This is only a test!!


This is only a test!

Monday, March 13, 2006


Sub Click(Source As Button) Dim outline As NotesOutline Dim NewOE As NotesOutlineEntry Dim s As New NotesSession Dim db As NotesDatabase Dim curdb As NotesDatabase Dim archdb As NotesDatabase Dim curdbname As String Dim arcdbname As String Dim archid As String On Error Goto ErrHandle Set db = New NotesDatabase( "", "bookmark.nsf" ) Set outline = db.GetOutline("UserBookmarkOrder") Set curdb = s.CurrentDatabase curdbname = Strright(curdb.FilePath,"\") archdbname = "FASmail\a_" + curdbname Set archdb = s.GetDatabase("TPDOMINO1/COMPORIUM", archdbname) archid = archdb.ReplicaID Set NewOE = outline.CreateEntry("Mail Archive") Call NewOE.SetURL( "notes://tpdomino1/" + archid ) NewOE.ImagesText = "Link - Notes Database" Call Msgbox "Bookmark Created Successfully - Please Restart Lotus Notes To View" Goto ExitSub ErrHandle: Msgbox "An error occurred while adding the bookmark. Please call the Help Desk for support." Resume ExitSub ExitSub: End Sub
This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at

Tuesday, November 22, 2005


#2 Test

First Post

This is a development blog