Hallo,
Was machst Du denn genau mit der UNID und GetDocumentByUNID?
Sollte dieses Stueckchen Code denn nicht einen Dok-Link in der zu versendenden Mail erzeugen.
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtBody As NotesRichTextItem
Set docA = ...
Set docB = New NotesDocument(db)
With docB
.Form = "Memo"
.SendTo = "Adressen"
.Subject = "Hier das Subject"
End With
'Mailbody erstellen und mit Text und Dok-Link belegen
Set rtBody = New NotesRichTextItem(docB, "Body")
Call rtBody.AddNewline(1)
Call rtBody.AppendText("1. Zeile Text")
Call rtBody.AddNewline(1)
Call rtBody.AppendText("2. Zeile Text")
Call rtBody.AddNewline(1)
Call rtBody.AppendText("Hier der Doc-Link ==> ")
Call rtBody.AppendDocLink(docA, "Kommentar zu diesem Link") 'Hier wird der Link erstellt
Call docB.Send(False) 'Senden der Mail
Andreas