Der Tip von Roland hat es mal wieder gebracht. Hatte ja dasselbe Problem, und mich auch schon mal mit dem Mime Thema befasst.
Einfach die Klasse von Roland einbinden und Set HTML Aufrufen.
Dann kann man in seinem Mail Dokument beliebigen HTML Code einfügen, der dann auch vernünftige Links beinhalten kann.
Vielen Dank und Gruß
'/**
' * Diese Prozedur erstellt ein neues Dokument, erzeugt mit obiger Klasse ein MIME-Item und versendet das Dokument dann
' */
Sub Initialize
Dim session As New NotesSession
Dim stream As NotesStream
Dim doc As New NotesDocument(session.Currentdatabase)
Dim cid As String
doc.Subject = "Dies ist ein Test"
Dim mime As New MultipartRelatedMime(doc, "Body") ' Klasse anlegen
Set stream = session.createStream
Call mime.setHtml(HTML, "bitte benutzen Sie einen HTML-fähigen Mailclient") '
Call mime.closeMime()
Call doc.send(False,session.Effectiveusername) ' Mail an den aktuellen User senden (zum Testen senden wir uns das Mail selber)
End Sub