Puedes usar el método CreateMIMEEntity de la clase NotesDocument de LotusScript. Con éste método puedes asignar código html a un documento de notes que al mandarlo por email el receptor verá el resultado de interpretar éste html, tablas, estilos, hipervínculos, etc.
A continuación indico una función LotusScript que envía un email con una tabla HTML y un hipervínculo al NotesDocument que nos entra como parámetro de la función "doc".
Para que funcione debes cambiar las variables ServerName, DatabasePath, docMail.SendTo, docMail.From y docMail.Subject a las que he asignado unos valores por defecto a modo de ejemplo.
Sub SendMailWithHTML(doc As NotesDocument)
Dim docMail As NotesDocument
Dim s As New NotesSession
Dim stream As NotesStream
Dim body As NotesMIMEEntity
Dim db As NotesDatabase
Dim ServerName As String, DatabasePath As String
'Inicializaciones
Set db = s.CurrentDatabase
ServerName = "nombre_servidor"
DatabasePath = "ruta_base_de_datos"
'Creamos el documento de email con campos necesarios
Set docMail = db.CreateDocument
docMail.Form = "Memo"
docMail.SendTo = "
[email protected]"
docMail.From = "
[email protected]"
docMail.Subject = "Ésto es una prueba"
'Creamos el html
s.ConvertMime = False
Set stream = s.CreateStream
Set body = docMail.CreateMIMEEntity
Call stream.WriteText({<html><head><title>HTML Email</title>})
'Estilos CSS
Call stream.WriteText (|
<style type="text/css">
<!--
body {font-size:12px;font-family:Arial, Verdana, Helvetica, sans-serif;color: #000000;}
-->
</style>
|)
'HTML body
Call stream.WriteText ({</head>})
Call stream.WriteText ({<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">})
Call stream.WriteText({
<table cellpadding=15 cellspacing=0 border=0 width=640 style="border:1px solid #cccccc">
<tr>
<td height=46>
<table width=170 cellpadding=0 cellspacing=0>
<tr>
<td>
<a href="http://}+ServerName+{/}+DatabasePath+{/0/}+doc.UniversalID+{?OpenDocument">Ver documento</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
})
Call stream.WriteText ({</body></html>})
'HTML content type
Call body.SetContentFromText (stream, "text/html;charset=iso-8859-1", ENC_NONE)
'Call docMail.Save(True,False)
'Enviar
Call docMail.Send(False,docMail.SendTo)
s.ConvertMIME = True
End Sub
