Buenas

Aquí dejo un ejemplo de una funcionalidad que me pregunto el amigo Albert si se podría implementar. La cuestión era, ¿Como puedo Insertar una imagen de la librería de Imágenes del blog rápidamente, sin saber HTML?

Pues una manera más o menos rápida seria crear una Acción que hemos puesto en el menú Insert-->Image from Library




con el siguiente Script


Sub Click(Source As Button)
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.CurrentDatabase
      Dim workspace As New NotesUIWorkspace
      Dim doctemp As NotesDocument
      Dim nc As NotesDocumentCollection
      Dim coltemp As NotesDocumentCollection
      Set nc=db.Unprocesseddocuments
      Set coltemp = workspace.PickListCollection(PICKLIST_CUSTOM,True,db.server,db.filepath,   "v_resdisplay",   "Images",   "Please select all Resources from your theme." )
      For a =1 To coltemp.Count
              Set doctemp=coltemp.GetNthDocument(a)
              titulo=Inputbox("Title of Image")
              descripcion=Inputbox("Description os Image (ALT Text)")
              Call workspace.currentdocument.InsertText({< img src="../dx/}+doctemp.res_title(0)+{/$FILE/}+doctemp.res_attachnames(0)+{" alt="}+descripcion+{" title="}+titulo+{" >}) ' NOTA: hay un espacio que quitar despues y antes de < y >
      Next
End Sub

Esto nos facilita la tarea de insertar imágenes sin hacer copy paste o import, pero previamente tendríamos que haberlas subido al blog

Así hacemos la vida un poco mas fácil al administrador del Blog.
Saludos

lotus DominoDominoBlog