Domino 9 und frühere Versionen > ND6: Entwicklung

Copy to clipboard

(1/1)

mwue:
Hallo zusammen,

wir haben in Lotus Notes 6 ein mehrsprachiges Fachwörter-Lexikon erstellt mit mehreren Ansichten z.B.  deutsch-englisch-französisch-spanisch. Nun suchen wir nach einer Möglichkeit, wie man von der Ansicht aus, z.B die französische Bedeutung eines bestimmten Wortes, in die Zwischenablage kopiert und zwar  o h n e  das Dokument zu öffnen und  o h n e  Schreibrechte auf das Dokument.

Nun würde ich dafür eine Ansichtsaktion anbieten, mit der man den französischen Wert für das gewählte Dokument bekommt.
Mit dem Code unten kann ich das Wort zwar in einer Messagebox ausgeben, aber ich habe keine Idee, wie ich es in die Windows Zwischenablage bekomme ???.

Könnt Ihr mir hier weiterhelfen ?



Sub Initialize
   Dim ws As New NotesUIWorkspace
   Dim session As NotesSession
   Dim uiview As NotesUIView
   Dim doc As NotesDocument
   Dim value As Variant
   Dim valuetext As String
   
   Set session =New NotesSession
   Set db = session.CurrentDatabase
   Set uiview = ws.CurrentView
   
   ' Bilden der Document Collection
   Set dc = db.UnprocessedDocuments
   If dc.count <> 0 Then   
      Set doc = dc.GetFirstDocument()
      While Not(doc Is Nothing)
         
         value = doc.GetItemValue("Wortfranz")
         textvalue = value(0)
         Msgbox textvalue,,"Französisch: "
         Set doc = dc.GetNextDocument(doc)
      Wend
      
   End If


Viele Grüße

Marion

Axel:
So was hatten wir hier schon mal.

Guckst du hier: http://atnotes.de/index.php?topic=22767.0


Axel

mwue:
Hallo Axel,

das ist ja super, probiere ich gleich aus. Vielen vielen Dank !!!  :) :) :)

Viele Grüße

Marion

datenbanken24:
Hallo Axel,

Danke auch. Konnte ich auch grad gut gebrauchen.

Scharfes Teil,

Gruß,
Uwe

mwue:
Hallo Axel,

ich habe das Script gestern nacht noch in meine Datenbank eingebaut und es funktioniert wirklich suuuuuper.

 :) :) :)

Nochmal vielen Dank !

Gruss

Marion

Navigation

[0] Themen-Index