Envío múltiples mensajes con TSMTP

Envío múltiples mensajes con TSMTP

Postby AngelSalom » Thu Feb 06, 2014 10:41 am

Hola amigos, estoy haciendo pruebas con la clase TSMTP. Mi intención es enviar varios correos (unos 10 cada vez) y me gustaría saber si hay alguna forma de controlar cuándo la clase ha finalizado de enviar cada correo o si se puede hacer una llamada a la función las diez veces "de golpe".
En principio he probado con el ejemplo de FWH y parece ser que los envía bien.

Code: Select all  Expand view  RUN
// Testing FiveWin new Internet Outgoing mail (SMTP protocol) Class

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "Sending Internet Mail from FiveWin"

   DEFINE BUTTONBAR oBar _3D OF oWnd

  // Hago 5 envíos de golpe
   DEFINE BUTTON OF oBar ACTION (SendMail("1"),SendMail("2"),SendMail("3"), SendMail("4"), SendMail("5")) TOOLTIP "Send Mail"

   SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function SendMail(cTexto)

   local oOutMail, cIP

   oWnd:SetMsg( "Sending Internet email..." )

   WSAStartup()

   oOutMail := TSmtp():New( cIP := GetHostByName( "sigev.com" ), 25, .t., "usuario", "xxxxxxxxxx")

   oOutMail:bConnecting = { || oWnd:SetMsg( "Connecting to sigev.com ..." ) }
   oOutMail:bConnected  = { || oWnd:SetMsg( "Connected" ) }
   oOutMail:bDone       = { || oWnd:SetMsg( "Message sent successfully" )}

   oOutMail:oSocket:lDebug:=.T.
   oOutMail:oSocket:cLogFile:="smtp.log"
   oOutMail:cReplyTo:="angel@sigev.com"
   oOutMail:nDelay := 1

   oOutMail:SendMail( "angel@sigev.com",;     // From
                      { "angel@sigev.com" },; // To
                      "Probando mensaje : "+cTexto,;              // Msg Text
                      "Testing FiveWin Class TSmtp enhancements",; // Subject
                      { "testsmtp.prg" } )  // attached files
return nil


Muchas gracias
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Re: Envío múltiples mensajes con TSMTP

Postby karinha » Thu Feb 06, 2014 12:16 pm

El mejor és que use RMAIL:

viewtopic.php?f=6&t=27821&start=0&hilit=RMAIL

Sauldos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7870
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Envío múltiples mensajes con TSMTP

Postby AngelSalom » Thu Feb 06, 2014 1:08 pm

karinha wrote:El mejor és que use RMAIL:

viewtopic.php?f=6&t=27821&start=0&hilit=RMAIL

Sauldos.


Precisamente lo que estoy intentando evitar es usar un gestor de correo preconfigurado, pretendo hacerlo todo desde la aplicación.
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Re: Envío múltiples mensajes con TSMTP

Postby karinha » Thu Feb 06, 2014 1:13 pm

Angel, mira en \samples\testmail.prg SI NO SIRVE?

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7870
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Envío múltiples mensajes con TSMTP

Postby AngelSalom » Thu Feb 06, 2014 2:08 pm

karinha, testmail.prg necesita que el ordenador tenga instalado un cliente de correo electrónico, éste no es el caso. Tiene que fucionar sin tener un programa de correo electrónico instalado y configurado.
La clase TSMTP lo hace perfecto, sólo necesito saber cómo saber cuando un correo ha terminado de enviarse para proceder a enviar otro.
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Re: Envío múltiples mensajes con TSMTP

Postby karinha » Thu Feb 06, 2014 2:42 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7870
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Envío múltiples mensajes con TSMTP

Postby karinha » Thu Feb 06, 2014 3:16 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7870
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Envío múltiples mensajes con TSMTP

Postby AngelSalom » Thu Feb 06, 2014 3:24 pm

Gracias Karinha, voy a probar.
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Re: Envío múltiples mensajes con TSMTP

Postby AngelSalom » Thu Feb 06, 2014 5:51 pm

Parece que rmail.prg funciona de forma eficiente, gracias.
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Re: Envío múltiples mensajes con TSMTP

Postby karinha » Thu Feb 06, 2014 6:54 pm

Bién!!!
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7870
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Envío múltiples mensajes con TSMTP

Postby elvira » Wed Feb 12, 2014 7:57 am

Angel,

Por favor, ¿podías copiar aquí el rmail que usas por favor?.

Gracias.
elvira
 
Posts: 516
Joined: Fri Jun 29, 2012 12:49 pm

Re: Envío múltiples mensajes con TSMTP

Postby AngelSalom » Wed Feb 12, 2014 8:11 am

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 23 guests