FoxPro/Visual FoxPro - Enviar Email desde una Tabla

 
Vista:

Enviar Email desde una Tabla

Publicado por Patricio (21 intervenciones) el 25/04/2001 19:52:06
Hola amigos
Por favor alguien sabe de lagun control o forma de enviar Email desde una tabla de datos por cuanto yo tengo almacenado en un campo tipo texto la direccion de Email y en un formulario colocar el Email origen , el comentario, mensaje y enviar a cada registro.
De antemano mil gracias por su explicacion
Adios
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enviar Email desde una Tabla

Publicado por Gandalf (17 intervenciones) el 26/04/2001 03:13:48
Hola, yo lo hago así utilizando el Outlook Express:

LOCAL ox, msg, oHtml

WAIT WINDOW "Enviando pedido por correo electrónico..." NOWAIT

*Change the subject property of the message object
*Change the text property of the message object
lcTexto = "Texto del mensaje... "

SET CLASSLIB TO mapimail
oMail=CREATEOBJECT("cusmapi")

* Call the send method of outbox
* SendMail(<username>,<password>,<direccion>,;
* <subject>,<text>,<attach_file>)
oMail.SendMail("","",lcMailTo,"El Asunto",ALLTRIM(lcTexto),"")

WAIT CLEAR
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar Email desde una Tabla

Publicado por Gandalf (17 intervenciones) el 26/04/2001 03:16:27
Por supuesto, en el ejemplo anterior la variable "lcMailTo" debe contener la dirección de correo a la que se envía el mensaje.
Suert. :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar Email desde una Tabla

Publicado por ROD (185 intervenciones) el 26/04/2001 04:02:09
Aqui tienes un ejemplo mas simple, usa el outlook, los mensaje van directo a la bandeja de salida


oOutlook = CREA ("outlook.application")
oMail = oOutlook.createitem(0)
oMail.body = 'Mensaje que deseas enviar'
oMail.ATTACHMENTS.ADD (Nombre de a atachar)
oMail.RECIPIENTS.ADD('[email protected]')
oMail.Subject = 'Aqui pones el asunto'
oMail.DISPLAY
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook

Ojalá te sirva.

Atte RHOD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar