This came up as a request from the IBM Business Partner forum, but I thought I'd share it. Alan Lepofsky asked:
After working with Notes at IBM for over a decade, I have several hundred DB icons on my Workspace. I'd say I only use a dozen or so on a daily basis.
I'd like to dramatically clean up my Workspace, remove icons, even remove entire pages. However, I know the day I do it is going to be the day I need "that link I was sent a few years ago about X".
I'm thinking an agent could scans all the tabs, and creates a document (or email) with links to all my DBs. I can then save that document as a backup.
So, here goes. This tip requires use of our Midas Rich Text LSX
, but if you happen to already have it (a heck of a lot of people do, and probably a fairly high percentage of my readers, but if you don't, why not?):Option PublicOption DeclareUselsx
session As New
rtitem As New
GeniiRTItem Dim new
_rtitem As New
count As Integer Set
"Bookmarks" Call new
db = New
0 While Not (
doc Is Nothing)
count + 1 Call
rtitem.Everything.LinkReplicaID <> "" Then Print
+":"+rtitem.Everything.LinkReplicaID Call new
0 Then Call new
0, True) Else Call new
1, False) End If Else Print
+":undefined" End If Set
doc) Wend Call new
Copyright © 2006 Genii Software Ltd.
Tags: Lotus Notes Show-n-Tell Thursday SnTT Midas