Envio de E-Mail

[dobfivewin]

Estimados

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

Code: Select all  Expand view  RUN

#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]

Hola David:

Yo utilizo la función siguiente:

Code: Select all  Expand view  RUN

#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]

Estimado Manuel

MUchas gracias....

Voy a tratar de implementarla....

gracias totales . . .


David
Argentina

[dobfivewin]

Manuel

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

Como declaro las variables, y en especial la CTRL ?

Gracias

David
Argentina

[joseluisysturiz]

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..

[dobfivewin]

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]

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
3) Se puede chequear o controlar que la direccion de origen (el remitente del e-mail) sea correcta , para saber si es seguro la ejecucion del envio

muchas gracias

David
Argentina

[wmormar]

dobfivewin,

da una vuelta por:

CODIGO-BASE

encontrarás algunas LIB que ojalá puedan ayudarte.

[dobfivewin]

mmm

Aparentemente no hay nada....

David
Argentina

[wmormar]

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]

MUCHAS GRACIAS


ya lo bajo y prueba


un abrazo

David