Programar Lotus Notes para enviar Correo

[Leonel Martinez Ramos]

Recuerdo que anteriormente habian hecho un comentario para poder enviar
correos mediante Lotus notes desde VFP. Alguno de ustedes tendra esta
informacion?

Leonel Martinez

[Javier Leal]

Quí hay varios:

***********************************************************************

LOTUSNOTESVFP.ZIP Clase en VFP que puede leer y enviar
emails usando Lotus Notes (el objeto [Notes.NotesSession]).

http://www.fpress.com/ficheros/Feb03/LOTUSNOTESVFP.ZIP

***********************************************************************
Para mandar mail por Lotus Notes solo tienes una limitante si el Notes es
Release 5.X. No vas a poder mandar mail con formato HTML, unicamente con
Rich Text.

Te adjunto el codigo para mandar un mail con formato Texto. Las clases
vienen con el cliente Notes.

oNotes=CREATEOBJECT("Lotus.NotesSession") &&Creas la Sesion de Notes
oNotes.Initialize("Password") &&Inicializas la Sesion, puedes configurar
para que no te pida password, pero solamente funciona si tienes el notes
abierto
oDir=oNotes.GetDbDirectory("servidor") &&Obtengo el Directorio del Servidor
oDB=oDir.OpenMailDatabase &&Abro la base de Mail
oDoc=oDb.CreateDocument &&Creo el email
oDoc.AppendItemValue("Subject","Mandado por Fuera de Notes") &&Agrego el
Subject
oDoc.AppendItemValue("From","Gustavo Jui") &&Agrego el remitente
oDoc.AppendItemValue("SendTo","gus...@koventryrecords.com") &&Agrego el
destinatario
oDoc.AppendItemValue("Form","Memo") &&Agrego el nombre del formulario
oBody=oDoc.CreateRichTextItem("Body") &&Creo el cuerpo
oBody.AppendText("Prueba") &&Agrego el texto al cuerpo del mensaje
oDoc.SaveMessageOnSend=.T. &&Para que grabe el mail en los enviados
oDoc.Send(.T.,.F.) && Envio el mail.

Si quieres enviar en HTML, necesitas crear un agente en Notes, y correrlo
desde VFP.

Ojala te sirva

Saludos
Gustavo Jui
Santiago, Chile
****************************************************************************
**
Para poder enviar mails utilizando Lotus tenes que usar una OCX que viene
con el mismo Lotus (si no me equivoco). El nombre es ESSMTP Control. Y las
propiedades que tenes que utilizar son estas (existen mas pero son las que
utilizo yo):
DestinationAddress
CCDestinationAddress
Domain
MailData
SmtpServerIP
SourceAddress
SourceMailer
SourceName
Subject
SendMail

Saludos,
Sebastian E. Garcia
****************************************************************************
*******

--
__________________________
Javier Leal
VFP7 SP1, W2000 Profesional
nospam.javier.leal(arroba)e-innovatech.com

Monterrey, N.L. - México

"Leonel Martinez Ramos" <leonelv...@hotmail.com> escribió en el mensaje
news:#WeYnH1N...@TK2MSFTNGP11.phx.gbl...