Übersicht über verschiedene Dokumente?

[reraru]

Guten Morgen!

Ich bin dabei ein kleines Portal für meine Firma zu erstellen.
Hier möchte ich verschiedene Inhalte zentral unterbringen.

Unter anderem möchte ich unsere Notes Applikationen in einer
Art übersicht darstellen.

Ich habe eine Maske erstellt, die in etwa so aussehen soll:



Nun möchte ich eine Art Seite erstellen in der alle eingetragenen
Anwendungen ähnlich wie eine News-Seite aufgeführt werden.

Wie könnte ich das realisieren???

Vielen Dank im Voraus!

Gruß René

[robertpp]

Ich nehme an du möchtest das im Web darstellen.

Da könntest du das Bild in ein RTF importieren und in ein weiteres RTF anhängen.

Declare Function NEMGetFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer
Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim docThis As NotesDocument
   Dim sField As String
   Dim sFile As String
   Dim rtItem As NotesRichtextItem
   Dim object As NotesEmbeddedObject
   Dim uidoc As NotesUIDocument
   
   Dim szFileName As String*256
   Dim szTitle As String
   Dim szFilter As String
   Dim szSelectedFile As String
   
   szFilename = Chr(0)
   szTitle = "Open File"
      'szFilter = "All Files |*.*|Word Document |*.doc|Text Files|*.txt|"
   szFilter = "JPG - Pictures |*.jpg|JPEG - Pictures |*.jpeg|"
   If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
      
      szSelectedFile = szFileName
      
   End If
   Set uidoc = ws.CurrentDocument      
   If Not uidoc.IsNewDoc Then
      löschen      
   End If
   
   sFile = szFileName
   sField = "Picture"
   Set docThis = ws.CurrentDocument.Document
   Set rtItem = docThis.GetFirstItem(sField)
   If rtItem Is Nothing Then Set rtItem = docThis.CreateRichTextItem(sField)   
   If rtItem.Type = 1 Then
            ' # 1454 = EMBED_ATTACHMENT
      Set object = rtitem.EmbedObject( 1454, "", sFile)
   End If
   Call docThis.Save(True , True)
   Call ReOpen( docThis )
   
   Set uidoc = ws.CurrentDocument      
   uidoc.GotoField( "Bild" )
   Call uidoc.Import("JPEG Image",szSelectedFile)
End Sub

Und dann machst du dir einfach eine View wo du mit:

dbpath := @ReplaceSubstring (@Subset (@DbName; -1); "\\"; "/");
file :=@Trim(@Subset(@AttachmentNames;1));
nopicURL := "/" + dbPath + "/nopic.jpg?OpenImageResource";
@If(file!="";"[<img src='/" + dbpath + "/0/" + @Text(@DocumentUniqueID) + "/$FILE/" + file + "' WIDTH=120 HEIGHT=150 BORDER=2>]";"[<img src='"+ nopicURL+ "' WIDTH=120 HEIGHT=150 BORDER=2>]")

das Bild im Web darstellen kannst und in der Makse sieht man dann das importierte Bild.

robert

[reraru]

Hallo Robert!

Sorry! Ich hätte schreiben sollen, das ich es im Notes Client realisieren möchte.
Mein Fehler!

Danke trotzdem!.

Gruß René

[umi]

Îm Notes Client gehts einfach über eine normale Ansicht.

Die Screenschots müssen dabei als ImageRessourcen vorliegen (import, etc siehe Forumssuche)

Dann kannst Du die Anwendungen in einer Liste anzeigen lassen.

[reraru]

Hallo Umi!

Na dann werde ich es doch lieber statisch halten und einfach eine Seite erstellen.

Der Weg über eine Ansicht und entsprechendes einbinden von Bildressourcen ist
ja leider auch Handarbeit.

Trotzdem vielen Dank!

Gruß René

[umi]

Nö das Anbinden von ImageRessource geht automatisch. Stichwort DXL.