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