дык надо задать кнопку (типа приложить код и отправить) с этим кодом, в шаблоне (или где хоца - в апликухе)
понятно что вставку кода можно по-разному оформить (вплоть до замены по спец. тегу), и готовый текст (уже набитый) можно перефигачить в майм
вощем - дерзайте (ничего сложного не вижу)
вбаянить код:[codebox]Sub Initialize
'Initialize all variables
Dim s As New NotesSession
Dim doc As NotesDocument
Dim body As NotesMIMEEntity
Dim mimeE As NotesMIMEEntity
Dim mimeH As NotesMimeHeader
Dim stream As NotesStream
Dim URL As String
REM Set the default information
Set doc = s.CurrentDatabase.CreateDocument
doc.SendTo = "My Notes Address/MyOrg"
doc.Subject = "Subject - " + Cstr(Now)
URL="www.castrolcis.com"
REM Create the main MIME message
s.ConvertMIME = False
Set body = doc.CreateMIMEEntity("Body")
Set mimeH = body.CreateHeader({MIME-Version})
mimeH.SetHeaderVal {1.0}
Set mimeH = body.CreateHeader({Content-Type})
mimeH.SetHeaderValAndParams {multipart/related;boundary="=NextPart_="}
Set mimeE = body.CreateChildEntity
Set stream = s.CreateStream
REM Add the text of the message
stream.WriteText {This is a test message.<br><br>}
REM Create the link
stream.WriteText {<a href="http://www.krassota.com/" target="_blank">
<img src="http://www.krassota.com/i/cvet/19.gif"
title="анимационные открытки"
border="0"></a><br><a href="http://www.krassota.com/" target="_blank">
<b>www.krassota.com</b></a></left>}
mimeE.SetContentFromText stream, {text/html;charset="UTF-8"}, ENC_NONE
'Stop working with the Entity
Call doc.CloseMIMEEntities(True)
s.ConvertMIME = True
'Send document
Call doc.send(False)
Call stream.Close
End Sub[/codebox]
