Hi,I have made a script to add link in outline “UserOrderBookmark” entry “Launchpad-web”.I have only one problem i must quit the database and open it to see new entry in outline. This database contains the welcome page, i can’t close it whitout closed Notes is somebody know a way to refresh the outline.
This is my code:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dbldb As NotesDatabase
Dim outline As NotesOutline
Dim entryB As NotesOutlineEntry
Dim oe As NotesOutlineEntry
Dim titre As String
Dim nom As String
Dim extension As String
Dim Agent As NotesAgent
Set db = session.GetDatabase("", "Bookmark", False)
Set dbldb=session.CurrentDatabase
Set outline = db.GetOutline("UserBookMarkOrder")
titre="(Launchpad-Web)"
Set oe = outline.GetFirst
While oe.Label <> titre
Set oe = outline.GetNext(oe)
Wend
filenames = ws.openFileDialog( _
True, "",, "c:\Docume~1\%username%\Desktop")
If Not(Isempty(filenames)) Then
Forall filename In filenames
nom=Strrightback( filename,"\")
extension$ = Right$(nom,4)
If extension$ = ".lnk" Then
nom=Strleftback(nom,extension$)
End If
Set entryB = outline.Createentry(nom)
Call outline.MoveEntry( entryB, oe,,True)
entryB.ImagesText = (filename+"|$OLEIcon")
Call entryB.SetURL("osbm://"+filename)
Call outline.save()
End Forall
'Call ws.ReloadWindow()
'Call ws.ViewRefresh
'db.GetAgent((Reload))
Set agent= dbldb.GetAgent("ReloadFrame")
End If
End Sub