Lotus Notes - Lotus Designer

Hola Raza,

Tengo un pequeño problema estoy haciendo una apicación web, pero no se como mandar un correo con los datos del actual documento que estoy utilizando , por medio de un agente, alguien me puede ayudar.

creas un boton con una formula con la llamada al agente
@command([toolsRunMacro];"enviarCorreo");

creas un agente en Lotus Script que se llame "enviarCorreo"

dim s as new notessession
dim doc as notesdocument
dim db as notesdatabase

set db = s.CurrentDatabase ' base de datos actual
set doc = s.documentContext ' documento (web) actual

dim newdoc as new notesdocument(db)
newdoc.Form = "Memo"
newdoc.SendTo = doc.destinatario(0) ' destinatario es un campo en tu formulario
newdoc.Subject = doc.titulo(0) ' titulo es un campo en tu formulario

Call newdoc.Send( False )

puedes hacer lo siguiente, en el evento webQuerySave de tu forma colocas el nombre del agente. Esto es parecido a lo que respndio Pedro Meza


Dim correo As notesdocument
Dim db as NotesDataBase
Dim ses as New NotesSession
Dim doc as NotesDocument

set db= ses.CurrentDataBase
set doc =db.DocumentContext
Set correo = New NotesDocument( db )

correo.Form = "Memo"
correo.Principal=usuario 'La variable Usuario es el nombre que aparecerá en el from
correo.SendTo = doc.SendTo()' Aqui pueds poner el correo electronico a donde vas a enviar, o puede ser el campo SendTo del documento que admita varios valores

'#########################
'Estos Campos son Opcionales
'#########################
correo.CopyTo = CopyTo 'Por si deseas copiar a alguien
correo.BlindCopyTo = blindcpoy 'Por si deseas mandar un correo sin que aparesca en el "To" del correo
'#########################
'Estos Campos son Opcionales
'#########################
correo.Subject = Subject 'El asunto del correo
'Body es una variable de tipo variant, yo te recomiendo que para enviar un correo personalisado uses algo como esto:
body = "Correo Desde Web" + chr(13) 'chr(13) es un enter codigo ascii
body = body + doc.Campo1(0) + chr(13) etc etc.
correo.Body = body
Call correo.Send( False )


Espero no te revuelva mucho, es mas sencillo como lo explica Pedro, pero asi puedes hacerlo mas personalizado

salu2