Définir un bookmark comme page d'acceuil par defaut

[esolarc]

Bonjour,

Je cherche a reproduire l'action "Set bookmark as home page" accessible depuis le menu click droit sur certains bookmark en @command ou lotusscript mais je ne trouve pas d'équivalent...

Quelqu'un a une idée ?...

[Michael DELIQUE]

salut

peut être un début de piste

Code : Tout sélectionner

Sub Create_url_Bookmark_Draft
   
' Récupération du titre de la base
   Dim atDbTitle As Variant
   atDbTitle = Evaluate("@DbTitle")
   
' Définition du label du signet avec le titre de la base
   Dim labelSignet As String
   labelSignet = atDbTitle(0)
   
' Label des outlines se situant avant le signet que l'on veut mettre
   Dim labelBeforeFR As String
   Dim labelBeforeUK As String
   labelBeforeFR = ""
   labelBeforeUK = ""
   
' Nom de l'image dans la base de bookmark
' et id de l'image dans la base courante
   Dim imageTextInBookmark As String
   Dim idImageInBaseCourante As String
   imageTextInBookmark = "Icone_DMR_PreValidation_Voyage.bmp"
   idImageInBaseCourante = "11D2B0CCF15381E8C1256FB9004FD2B5"
   
   
' Récupération de la session
   Dim session As New NotesSession
   
' Récupération de la base Courante
   Dim dbCourante As NotesDatabase
   Set dbCourante = session.CurrentDatabase
   
' Récupération du nom de serveur
   Dim atServerName As Variant
   atServerName = Evaluate("@ServerName")
   
' Récupération de la base des images
   Dim imagesDB As NotesDatabase
   Set imagesDB = New NotesDatabase( atServerName(0) , "RessourceNotesExanes.nsf" )
   
' Récupération du bookmark local
   Dim dbBookmark As NotesDatabase
   Set dbBookmark = New NotesDatabase( "", "bookmark.nsf" )
   
' Récupération de la outline qui gère les signets de la partiee gauche de Notes
   Dim outline As NotesOutline
   Set outline = dbBookmark.GetOutline("UserBookmarkOrder")
   
' Récupération de la première entrée de la Outline(plan)
   Dim oeTmp As NotesOutlineEntry
   Dim oeRef As NotesOutlineEntry
   Set oeTmp = outline.GetFirst()
   
   
' Début du traitement , on en gère l'état
   Dim done As Boolean
   Dim referenceFound As Boolean
   Dim nacEntryFound As Boolean
   
   Dim label As String
   done = False
   
' Boucle sur toutes les entrées du plan pour positionner le signet où on veut
' Et surtout pour vérifier qu'il n'est pas déjà là !
   Do While Not(done)
      If oeTmp Is Nothing Then
         done = True
      Else
         label = oeTmp.Label
         If label = labelSignet And oeTmp.Level = 0 Then
            nacEntryFound = True
            done = True
         Else
            If (labelBeforeFR<>"" Or labelBeforeUK<>"") And (label=labelBeforeFR Or label=labelBeforeUK) Then
               referenceFound = True
               Set oeRef = oeTmp
            End If
            Set oeTmp = outline.GetNextSibling(oeTmp)
         End If
      End If
   Loop
   
   
   
' Si l'entrée a été trouvé , on le précise à l'utilisateur
   If nacEntryFound Then
      Messagebox "L'icône se trouve déjà sur la barre des signets", MB_OK, "Information !"
      Exit Sub
   Else
      
' Création de la nouvelle entrée
      Dim oeNew As NotesOutlineEntry
      Set oeNew = outline.CreateEntry(labelSignet)
      Call oeNew.SetURL(dbCourante.NotesURL)
      
      If referenceFound Then
         Call outline.AddEntry(oeNew, oeRef,True,False)
      Else
         Call outline.AddEntry(oeNew, ,True,False)
      End If
      
      oeNew.ImagesText= imageTextInBookmark
      
      Call outline.save()
   End If
   
' Copie de l'icone image dans le bookmark local
   Dim imageDocument As NotesDocument
   Set imageDocument = dbCourante.GetDocumentByUNID( idImageInBaseCourante )
   
   Dim imageDocumentInBookmark As NotesDocument
   Set imageDocumentInBookmark = imageDocument.CopyToDatabase( dbBookmark )
   Call imageDocumentInBookmark.ReplaceItemValue("$TITLE",imageTextInBookmark)
   Call imageDocumentInBookmark.save(True,True)
   
   Messagebox "L'icône sera visible au prochain démarrage de Lotus Notes.", MB_OK, "Information !"
   
End Sub

[roubech]

il me semble avoir essayé de manipuler un doc "Layout" dans la base bookmark.nsf et avoir renseigné son ID dans le doc site ???

[esolarc]

Merci Michael,

Je suis parti de ton code et l'ai l'adapter à mon besoin et la base s'ajoute parfaitement dans le bookmark, en revanche au lieu de m'afficher sur le lien l'îcone de la base liée il m'affiche celui de la base bookmark... mais ça c'est pas encore trop grave dans mon cas.

En revanche il me reste toujours a trouver comment le définir comme page d'accueil par défaut.

J'ai regardé dans le document site, roubech, mais je n'ai rien trouvé qui ressemble à une référence d'ID comme base de lancement (il y a bien un champ BookmarkDb mais il contient le nom de la base bookmark.nsf qui n'est pas celle setté comme page d'accueil) mais je vais continuer à chercher, merci

[roubech]

il y a un doc profile CurrentLayout dans la base bookmark.nsf
mais c'est pour définir qu'elle layout afficher quand ta base bookmark.nsf est déjà définie comme page d'accueil

mais s'il faut mettre une autre base, je ne sais pas !