From LDD (http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/d2afd020da55b8e985256e4c002850c7?OpenDocument&Highlight=0,bookmark,bar) My goal is to distribute the news entry with a button that I will send to my users.1. The first part of the button copy the outline in the outline "UserToolBar" of the local "bookmark.nsf". This add the tool bar with the actions.2. To import the gif I have created a public network share on which I have put the DXL exportation of my image. Then I import this file in the bookmark.nsf. (be careful of the version of the DTD used in your designer client and the one available in the target client ... it should Be the Same) The Solution ISN 'ket button .------------------------------------------------------------------------------------------------------------ - Sub Click (Source As Button) ---------------------------------------- -------------------------------------------------- ------------------ 'Function .....: Code Permettant de Déployer l'outline des Dictionnaires Dans Un Bookmark.n sf local 'date ...........: 02.03.2004' Author ........: pierre koerber 'desc ........... Return ... .....: rien '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------- ---------------- DIM DBOOK AS NOTESDATABASDIM DBASDASDATABASDIM DB ASDASDATABASDIM SE AS NOTESSSSION '--- from Where am i? Set thisdatabase = se.currentdatabase' --- Get the local bookmark databaseSet db = se.getDatabase ( "", "bookmark.nsf") If db Is Nothing Then Msgbox "Impossible to locate ... local bookmark" Exit SubEnd If '- Importation des images, stockées sous forme DXL dans Un shares.call importdxl ("
//frorg06s/notes6/dxl/image.dxl ", db) Print" Images importées .... "--- Get the template Databaseset dbospook = se.getdatabase (thisDatabase.server," informatique / lotus / orgcommondesign.nsf ") If dbBook Is Nothing Then Msgbox" Impossible to locate ... source bookmark "Exit SubEnd If '- Get the source outlineDim outlineSource As NotesOutlineDim outlineEntrySource As NotesOutlineEntry' - This is the source outlineSet outlineSource = dbBook.GetOutline (" OrgamolDictionnaireToolBar ") If outlineSource Is Nothing ThenMsgbox" OrgamolDictionnaireTool bar not found "Exit SubEnd IfDim outlineDest As NotesOutlineDim outlineEntryDest As NotesOutlineEntry '- Get the userToolbar outlineSet outlineDest = db.getoutline (" UserToolbar ")' -! Get the first entry of the sourceSet outlineEntrySource = outlinesource.GetFirst () '-. Check if it exists' --- Create each entries in the dest.While Not (outlineEntrySource Is Nothing) Set outlineEntryDest = outlineDest.CreateEntryFrom (outlineEntrySource) Set outlineEntrySou rce = outlineSource.GetNext (outlineEntrySource) Wend '--- Save the outlineCall outlineDest.save () Print "Toolbar importée ...." End SubFunction importDXL (szFileName As String, pDb As notesdatabase)' ------- -------------------------------------------------- -------------------------------------------------- - 'Function .....: FONCTION OUVRANT UN FICHIER DXL ET IMPORTANT CE FLUX EN TANT Que Code Dans La Base Courrante.' Date .........: 02.03.2004 'Author .... ....: Pierre Koerber 'DESC ........:' return ........: rien '
