Domino 9 und frühere Versionen > ND6: Entwicklung

Dokumentenverknüpfung in Lotus Script

(1/3) > >>

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??

Navigation

[0] Themen-Index

[#] Nächste Seite