AppendDocLink Methode - Wie wirds gemacht?

[Sillik]

Hi,

wie funktioniert das genau mit den DocLinks? Mit Formeln kann ichs nicht machen. Und mit LS erscheint nix:

Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Dim mail As notesdocument
Dim rtitem As notesrichtextitem

Set db = session.currentdatabase
Set doc = view.getfirstdocument

Set mail = New notesdocument(db)
mail.subject = "Offene Störung"      
Set rtitem = New notesrichtextitem(mail, "doclink")
Call rtitem.appenddoclink(doc, "")


Wenn ich das dann versende bekomm ich eine leere mail.

[Axel]

Hi,

ich weiß nicht ob es daran liegt, aber ein Doklink oder ein Dateianhang in einem RTF-Feld sind erst dann sichtbar, wenn das Dokument geschlossen und wieder geöffnet wurden.

Irgendwo hab ich so was schon mal gesehen. Gibt mir etwas Zeit, ich geh mal auf die Suche.

Axel

[Sillik]

Ich weiß nur das man das Dokument normalerweise speichern muss damit das RTF sichtbar ist, aber das hab ich auch schon versucht.

[koehlerbv]

Die Mail ist nicht leer - Deine Mailmaske wird aber wohl kein Feld "doclink" enthalten zur Anzeige des Links.

[Sillik]

Stimmt so gehts dann, thx

[Axel]

Hi,

ich hab was gefunden. Sieht aber auf den ersten Blick deiner Lösung recht ähnlich:

...

Set maildoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(maildoc, "Body")

strInfoText = "Bitte folgen Sie der Dokumentverknüpfung"
Subject = "Dokument erfordert Ihre Prüfung."

Call rtitem.AppendText(strInfoText)
Call rtitem.AddNewLine(2)
Call rtitem.AppendText("Klicken Sie auf diese Verknüpfung, um auf das Dokument zuzugreifen. ")
Call rtitem.AppendDocLink(note, "Dokumentverknüpfung zu " & WorkflowObject(0))
maildoc.Form = "Memo"
maildoc.SendTo = SendTo
maildoc.Subject = subject
Call maildoc.Send (False)

Axel