DocLink in LotusScript

Hallo!

Ich versuche, aus einem Dokument heraus ein Mail mit DocLink per LotusScript zu versenden. Aus der Ansicht heraus klappt es auch, nur nicht aus dem Dokument heraus. Es spielt auch keine Rolle, ob das Dokument im EditMode ist oder nicht.
Das Mail wird zwar erstellt und alle Infos sind drin, bloß der DocLink fehlt.

Hier das Script:

Set ws = New NotesUIWorkspace
Set se = New NotesSession
Set db = se.Currentdatabase

Dim sMessage As String
Dim sSendTo As String
Dim ndMail As NotesDocument
Dim nrtMailBody As NotesRichTextItem
'************************************************************************************************************
' Test, ob wir uns in einer Ansicht oder in einem Dokument befinden
'************************************************************************************************************
Set uidoc = ws.CurrentDocument
If uidoc Is Nothing Then
env = "Ansicht"
Set coll = db.UnprocessedDocuments
Set doc = coll.GetFirstDocument
Else
env = "Dokument"
Set doc = uidoc.Document
End If

sSendTo = doc.SendTo(0)
Set ndMail = db.CreateDocument
ndMail.Form = "Memo"
ndMail.Subject = "Folgender Auftrag wurde eingetragen..."
Set nrtMailBody = ndMail.CreateRichTextItem("Body")
Call nrtMailBody.AppendText(sMessage +Chr(13) + Chr(13) + "Bitte klicken Sie hier, um zum Dokument (Auftrag) zu gelangen ----- >> ")

Call nrtMailBody.AppendDocLink(doc, doc.Auftrag(0))
Call ndMail.Send(False, sSendTo)
Call doc.Save(True, True)

ach ja, die Variablen sind natürlich im Vorfeld in der Bibliothek Common definiert worden und über Use "Common" eingebunden!

Ja, ist es!

'ne Vorgabeansicht gibt es nicht. Wo ist denn da ein Zusammenhang??

Wenn eine definiert ist scheint's aber zu klappen........

Dankeschön!

Hab' wieder was dazugelernt. Jetzt funktioniert die Funktion überall einwandfrei!