Envio de E-Mail

Envio de E-Mail

Postby dobfivewin » Wed Sep 03, 2008 9:59 am

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
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby Manuel Aranda » Wed Sep 03, 2008 5:37 pm

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
Un saludo,
Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
User avatar
Manuel Aranda
 
Posts: 604
Joined: Wed Oct 19, 2005 8:20 pm
Location: España

Postby dobfivewin » Fri Sep 05, 2008 10:28 am

Estimado Manuel

MUchas gracias....

Voy a tratar de implementarla....

gracias totales . . .


David
Argentina
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby 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
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby 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:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Postby 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
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby 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
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby wmormar » Thu Sep 25, 2008 10:26 am

dobfivewin,

da una vuelta por:

CODIGO-BASE

encontrarás algunas LIB que ojalá puedan ayudarte.
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby dobfivewin » Fri Sep 26, 2008 8:24 am

mmm

Aparentemente no hay nada....

David
Argentina
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby 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()
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby dobfivewin » Mon Sep 29, 2008 9:48 am

MUCHAS GRACIAS


ya lo bajo y prueba


un abrazo

David
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 72 guests