Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Gerhard am 29.12.04 - 14:57:05
-
Hallo zusammen !
Möchte in ein Dokument ein Foto einfügen, aber nicht so dass der Dateiname erscheint und ich nur durch Doppelklick und starten das Bild sehe, ich hätte es gerne gleich angezeigt wenn ich das Dokument öffne. Das Ganze wäre für eine Telefonliste und da möchte ich die Bilder einiger MA hinterlegen.
Wie mache ich das am Besten ?
Danke für die Hilfe !
-
Datei ---- Importieren
sollte dir helfen.
Gruß Sascha
-
... oder
Erstellen --- Bild
-
Danke, importieren war genau das was ich meinte ! :)
-
in unserem Telefonbuch habe ich das mit einer Schaltfläche im Dokument gelöst
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)
'Declare variables...
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim szFileName As String*256
Dim szTitle As String
Dim szFilter As String
Dim szSelectedFile As String
'Set values...
szFilename = Chr(0)
szTitle = "Open File"
szFilter = "All Files |*.*|Word Document |*.doc|Text Files|*.txt|"
If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
szSelectedFile = szFileName
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "BildOS" )
Call uidoc.Import("JPEG Image",szSelectedFile)
End If
End Sub
-
Danke einstweilen für die Hilfe, aber ich hab noch eine Frage:
Habe nun das Bild importiert, möchte nun in einer Ansicht eine Spalte machen wo ich bei vorhandenem Inhalt des Feldes ein Symbol anzeige. @Attachment geht nicht weil dies ist ja keines, ich habe ja bereits den Inhalt im Feld und nicht den Verweis auf eine externe Datei (Word oder Excel o.ä.).
Möchte nun irgendwie :) die Länge des Feldes abfragen und finde die passende Funktion dazu nicht .....
Kann mir wer sagen welche Funktion da zu verwenden ist ?
Danke für die Hilfe ...
-
Zum Thema 'Foto einfügen':
AtNotes BP: Bilder in ein Richtextfeld importieren (http://www.atnotes.de/index.php?topic=13839.0)
Zum Thema 'Spaltensymbol anzeigen wenn Dokument ein Bild enthält':
Dazu kannst Du über einen Masken-Event (z.B. Postsave) die Größe des Richtextfeldes abfragen. Wenn > x dann schreibst Du ein Flag ins Dokument (z.B. ins Item 'IsPicture').
Zur RT-Länge gabs erst letztens einen Thread:
http://www.atnotes.de/index.php?topic=19645.0
-
Soweit alles klar, aber mit welcher Funktion frage ich nun konkret die Grösse ab ?
-
Mit @Formula wäre mir da nichts bekannt, und wie es in LotusScript geht, steht oben im 2. verlinkten Thread: ValueLength Eigenschaft der NotesItem-Klasse.
-
ich habe das in meinem Adressbuch mit @If ( @DocLength > 3000; 17; 0) in einer Spalte (Werte als Symbol anzeigen) gelöst.
-
Danke Eknori, das war griffig und funktioniert super !