Envio de E-Mail

dobfivewin · Post by **dobfivewin** » Wed Sep 03, 2008 9:59 am

Estimados

Estoy intentando enviar por e-mail un archivo desde mi aplicacion usando:

#include "fivewin.ch"
#include "mail.ch"

function main()
   local oWnd
   define window oWnd
   activate window oWnd on init doit()
return nil

function doit()
   local oMail,aCustomer:={}
   local cSubject:="Prueba"
   local cMessage:="Prueba de envio de e-mail"

   aadd(aCustomer,"direccion de destino @ xxx .com")

   DEFINE MAIL oMail;
               SUBJECT cSubject;
               TEXT cMessage
   
   oMail:aRecipients:=aCustomer
   
   ACTIVATE MAIL oMail

   msgInfo("mail sent")

return nil

Que me está faltando??

muchas gracias

David
Argentina

Manuel Aranda · Post by **Manuel Aranda** » Wed Sep 03, 2008 5:37 pm

Hola David:

Yo utilizo la función siguiente:

Code: Select all | Expand

#include "MAIL.ch"
*************************************
STATIC FUNCTION EnviarMail()
*************************************
Local oMail
Local cMensaje1
Local cMensaje2
Local cMensaje3
//
cMensaje1 = "Linea 1 del mensaje"
cMensaje2 = "Linea 2 del mensaje"
cMensaje3 = "Linea 3 del mensaje"
//
cSubject = "Título del mensaje"

cNoteText = cMensaje1+CRLF+CRLF+cMensaje2+CRLF+CRLF+cMensaje3

cMsgType = nil

cConversationID = nil

dDate = Date()

cTime = Time()

lReceipt = .f.

lFromUser = .t.  // Abre el gestor de correo

aOrigin = {"tudireccion@dominio.com"}
aRecipients = {CLIENTES->Mail}
aFiles = {"c:\factura1.pdf","c:\factura2.pdf"}

oMail:=TMail():New(cSubject ,;
                             cNoteText ,;
                             cMsgType ,;
                             cConversationID ,;
                             dDate,;
                             cTime,;
                             lReceipt,;
                             lFromUser,;
                             aOrigin,;
                             aRecipients,;
                             aFiles)
oMail:Activate()
oMail:End()

RETURN NIL

dobfivewin · Post by **dobfivewin** » Fri Sep 05, 2008 10:28 am

Estimado Manuel

MUchas gracias....

Voy a tratar de implementarla....

gracias totales . . .

David
Argentina

dobfivewin · Post by **dobfivewin** » Mon Sep 22, 2008 8:28 am

Manuel

Disculpas por la tardanza de la prueba de tu propuesta . . . .

Como declaro las variables, y en especial la CTRL ?

Gracias

David
Argentina

joseluisysturiz · Post by **joseluisysturiz** » Tue Sep 23, 2008 4:02 am

dobfivewin wrote:Manuel

Disculpas por la tardanza de la prueba de tu propuesta . . . .

Como declaro las variables, y en especial la CTRL ?

Gracias

David
Argentina

David, CRTL, sino me equivoco es salto de linea automatico, pusistes CTRL y eso es abreviacion de CONTROL... checa bien..saludos.. :shock:

dobfivewin · Post by **dobfivewin** » Wed Sep 24, 2008 9:41 pm

Estimados....

funciona perfecto, lo unico que:
1) Hay que tener el programa de correo abierto??
2) Se puede que en envio se haga automático, osea que se mande directamente a la bandeja de salida ?

chas gracias

David
Argentina

dobfivewin · Post by **dobfivewin** » Thu Sep 25, 2008 9:59 am

Estimados....

funciona perfecto :lol:

,

lo unico que:

1) Hay que tener el programa de correo abierto :?:

2) Se puede que en envio se haga automático, osea que se mande directamente a la bandeja de salida :?:

3) Se puede chequear o controlar que la direccion de origen (el remitente del e-mail) sea correcta :?:

, para saber :arrow:

si es seguro la ejecucion del envio

muchas gracias

David
Argentina

wmormar · Post by **wmormar** » Thu Sep 25, 2008 10:26 am

dobfivewin,

da una vuelta por:

CODIGO-BASE

encontrarás algunas LIB que ojalá puedan ayudarte.

dobfivewin · Post by **dobfivewin** » Fri Sep 26, 2008 8:24 am

mmm

Aparentemente no hay nada....

David
Argentina

wmormar · Post by **wmormar** » Sat Sep 27, 2008 6:11 am

David,

ahí "colgué" una lib para el envío de correos, varios compañeros acá en méxico y otros paises han hecho pruebas satisfactorias.

se llama: TWMAIL()

dobfivewin · Post by **dobfivewin** » Mon Sep 29, 2008 9:48 am

MUCHAS GRACIAS

ya lo bajo y prueba

un abrazo

David