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
