Domino 9 und frühere Versionen > ND6: Entwicklung

Aufgabe per LS erstellen

<< < (2/2)

Wirsing:
Noch eine Frage:

Wie kann ich einen DocLink in den Body einfügen?

Lossa:
Doclink geht nur über die backendklassen und richtextitem, nicht via frontend. Dann müsstes du das Frontend Dokument zumachen und wieder öffnen, dann wäre der Link erst sichtbar.

Wirsing:
Uff, ok. Damit muss ich dann eben leben.

Und hier noch die komplette Lösung:


--- Code: ---Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As New NotesDatabase( "", "" )
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim taskdoc As NotesDocument
Dim taskuidoc As NotesUIDocument

Dim rtitem As NotesRichTextItem
Dim datum As String

Set uidoc = ws.CurrentDocument
Set doc=uidoc.Document

datum = uidoc.FieldGetText("dtErinnerung")
If datum ="" Then datum = Today()
Dim dt As New NotesDateTime(datum + " 08:00:00")

'Aufgabe erstellen
Call db.OpenMail
Set taskuidoc = ws.ComposeDocument(db.Server,db.filepath,"Task")
Set taskdoc = taskuidoc.Document

Call taskuidoc.fieldsettext("TaskType","1")
Call taskuidoc.fieldsettext("Subject","Projekt " + Cstr(uidoc.FieldGetText("tfProjektNummer")))
Call taskuidoc.fieldsettext("StartDate", Cstr(dt.lsLocaltime))
Call taskuidoc.fieldsettext("DueDate" , Cstr(dt.lsLocaltime))
Call taskuidoc.fieldsettext("Alarms","1")

' DocLink einfügen
Set rtitem = New NotesRichTextItem( taskdoc, "Body" )
Call rtitem.AppendDocLink( doc,  "Projekt")

--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete