Dokumentenverknüpfung in Lotus Script

[Vigeli]

Hallo Forum,

Ich habe eine Datenbank, welche einen Workflow beinhaltet.
Wie kann ich im Lotus Script eine Dokumentenverknüpfung mitschicken, sodas der Bearbeiter nur noch auf die Verknüpfung im Kalendareintrag klickt und automatisch das Dokument in der Datenbank öffnet.

mit folgendem Script werden Kalendereinträge automatisch generiert:
========================================

REM Kalenereintrag erzeugen
Sub Click(Source As Button)
   Dim session As New NotesSession   
   Dim db As New NotesDatabase ("","")
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument   
   Dim userName As New notesname(session.username)
   Dim dbfilename As String
   Dim dbserver As String
   Dim value As Integer
   Dim vondatum As String
   Dim bisdatum As String
   Dim newdoc As NotesDocument
   Dim rtitem As NotesRichtextItem
   
   Call db.OpenMail   
   dbfilename=db.filepath   
   dbserver = db.server
   
   value = Messagebox ("Soll der Termin " + Chr(10) + "in den Kalender eingetragen werden?", (4+32+0+0), "Abwesenheit in den eigenen Kalender eintragen")
   
   If (value = 6) Then
      
      Set uidoc = ws.CurrentDocument
      REM art=uidoc.FieldgetText("MstName1")
      kunde=uidoc.FieldGetText( "KUNA1" )
      vondatum = uidoc.FieldGetText( "KUBELEN" )
      bisdatum = uidoc.FieldGetText( "KUBELEN" )
      ort=uidoc.FieldGetText("KUORT")
      REM vonzeit = uidoc.FieldGetText( "vonzeit" )
      REM biszeit = uidoc.FieldGetText( "biszeit" )
      Print vondatum, bisdatum   
      
      Set db = session.CurrentDatabase
      Set newdoc = New NotesDocument( db )
      Set uidoc = ws.ComposeDocument (dbserver,dbfilename,"Appointment")
      Call uidoc.FieldSetText("Subject",kunde & " - " & "Besuch")
      Call uidoc.FieldSetText("Location",ort)
      Call uidoc.FieldSetText("StartDate",vondatum)      
      Call uidoc.FieldSetText("EndDate",bisdatum)
      REM Call uidoc.FieldSetText("StartTime",vonzeit)      
      REM Call uidoc.FieldSetText("EndTime",biszeit)
      Call uidoc.FieldSetText("AppointmentType","2")
      
      
%REM
      Messagebox ("Bla Bla Bla")
   Else
      Messagebox ("Kalender wurde nicht verändert")
%ENDREM
      
      Call uidoc.refresh
      Call uidoc.Save()
      Call uidoc.Close()
      Call uidoc.refresh
   End If
   
   Call uidoc.refresh
   Call uidoc.Save()
   Call uidoc.Close()
   
   
   
End Sub   

Besten Dank

[umi]

Hi
Über das rtitem. Die Funktion heisst AppendDoclink (vgl. Hilfe)

[Vigeli]

hi umi,

geht leider nicht...

habe folgende zeile hinzugefüt..:

Set rtitem = New NotesRichTextItem( uidoc.Document, "body" )
      Call rtitem.AppendDocLink( doc, "Link ==>" )   

[umi]

Geht schon, nur nicht direkt. Damit die RTF's richtig funktionieren muss das Dokument mind. 1 mal gespeichert worden sein.

[Vigeli]

...und wie??

[umi]

Zuerst mit Call uidoc.save() das UIDokument speichern.
danach ungefähr so
dim tdoc as notesdocument
set tdoc = uidoc.document
set rtitem = new NotesRichtextITem(tdoc,"Body")
call rtitem.appendDoclink(Doc,"Link -->","Link -->")

[flaite]

bin am googlen. Dabei bin ich auf diese Lösung gestossen, die behauptet, dass ein re-open nicht notwendig ist (mit 6). Ist mir neu:
http://searchdomino.techtarget.com/tip/1,289483,sid4_gci993463,00.html
Hier ist ein "klassisches" Beispiel (mit re-open):
http://www.keysolutions.com/NotesFAQ/howrichtext.html

oder hier:
http://www-10.lotus.com/ldd/46dom.nsf/ShowMyTopicsAllFlatweb/26946918600b6b6b85256d3e000835c4?OpenDocument

[Vigeli]

... funzt nicht..Body bleibt immer "leer"...

Call uidoc.Save()
      Dim tdoc As notesdocument
      Set tdoc = uidoc.document
      Set rtitem = New NotesRichtextITem(tdoc,"Body")
      Call rtitem.appendDoclink(Doc,"Link -->","Link -->")

[umi]

Ist ja klar warum das leer bleibt. Du fügst den Doclink im Backend ein.
Damit Du den Link dann im UIDocument siehst, musst Du
1. das Dokument speichern
2. das UIDokument schliessen
3. das UIDokument erneut öffnen.

[Vigeli]

hi umi,

...es geht nicht  . was ist hier falsch? Body bleibt immer leer!!

REM Kalenereintrag erzeugen
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As New NotesDatabase ("","")
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim userName As New notesname(session.username)
Dim dbfilename As String
Dim dbserver As String
Dim value As Integer
Dim vondatum As String
Dim bisdatum As String
Dim newdoc As NotesDocument
Dim rtitem As NotesRichtextItem

Call db.OpenMail
dbfilename=db.filepath
dbserver = db.server

value = Messagebox ("Soll der Termin " + Chr(10) + "in den Kalender eingetragen werden?", (4+32+0+0), "Abwesenheit in den eigenen Kalender eintragen")

If (value = 6) Then

Set uidoc = ws.CurrentDocument
REM art=uidoc.FieldgetText("MstName1")
kunde=uidoc.FieldGetText( "KUNA1" )
vondatum = uidoc.FieldGetText( "KUBELEN" )
bisdatum = uidoc.FieldGetText( "KUBELEN" )
ort=uidoc.FieldGetText("KUORT")
avs=uidoc.FieldGetText("AVS")
'test=uidoc.FieldGetText("AVS")
REM vonzeit = uidoc.FieldGetText( "vonzeit" )
REM biszeit = uidoc.FieldGetText( "biszeit" )
Print vondatum, bisdatum

Set db = session.CurrentDatabase
Set newdoc = New NotesDocument( db )
Set uidoc = ws.ComposeDocument (dbserver,dbfilename,"Appointment")
Call uidoc.FieldSetText("Subject",kunde & " - " & "Besuch")
Call uidoc.FieldSetText("Location",ort)
Call uidoc.FieldSetText("StartDate",vondatum)
Call uidoc.FieldSetText("EndDate",bisdatum)
Call uidoc.FieldSetText("Categories",avs)
'Call uidoc.FieldSetText("Test",avs)
REM Call uidoc.FieldSetText("StartTime",vonzeit)
REM Call uidoc.FieldSetText("EndTime",biszeit)
Call uidoc.FieldSetText("AppointmentType","2")

Call uidoc.Save()
Call uidoc.Close()

Call uidoc.Save()

Call uidoc.FieldSetText("AppointmentType","2")
Dim tdoc As notesdocument
Set tdoc = uidoc.document
Set rtitem = New NotesRichtextITem(tdoc,"Body")
Call rtitem.appendDoclink(Doc,"Link -->","Link -->")

%REM
Messagebox ("Bla Bla Bla!!!!")
Else
Messagebox ("Kalender wurde nicht verändert")
%ENDREM

Call uidoc.refresh
Call uidoc.Save()
Call uidoc.Close()
Call uidoc.refresh
End If

Call uidoc.refresh
Call uidoc.Save()
Call uidoc.Close()



End Sub

[umi]

Code

Call uidoc.Save()

Call uidoc.FieldSetText("AppointmentType","2")
Dim tdoc As notesdocument
Set tdoc = uidoc.document
Set rtitem = New NotesRichtextITem(tdoc,"Body")
Call rtitem.appendDoclink(Doc,"Link -->","Link -->")

call tdoc.save(true,false)
call uidoc.close()

'Die genauen parameter siehe Hilfe
set uidoc = ws.editdocument(tdoc)

End If