FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour MAPI - Mail, nRetcode siempre 0
Jorge_T
Posts: 38
Joined: Tue Jan 22, 2019 08:28 AM

MAPI - Mail, nRetcode siempre 0

Posted: Mon May 20, 2019 08:51 AM

Hola a todos,

Puedo enviar emails sin problema con Windows 10 y Thunderbird (MAPI), el problema es que cuando la direcci贸n del destinatario es err贸nea Thunderbird lo detecta pero el valor de retorno de que el mensaje ha sido enviado es siempre 0 por lo que al enviar varios mensajes desde una aplicaci贸n al finalizar no hay forma de controlar cuales no han sido enviados.

Estoy atascado con el tema y no logro ver la soluci贸n,

Saludos,

include "FiveWin.ch"

include "mail.ch"

function EMessage()
Local oMail
DEFINE MAIL oMail ;
SUBJECT "Asunto..." ;
TEXT "Cuerpo del mensaje....." ;
TO "demo@demostracion.com"
ACTIVATE MAIL oMail

MsgInfo( oMail:nRetCode )

return nil

Jorge

--------------------------------------------------

Fivewin 18.10 - Harbour - BCC 7 - PellesC

--------------------------------------------------
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: MAPI - Mail, nRetcode siempre 0

Posted: Mon May 20, 2019 01:24 PM
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "mail.ch"

STATIC oWnd

function Main()

聽 聽LOCAL oBar
聽 聽LOCAL MailTo, cSndFile, cSndFile2, cText, cSubj, aFiles

聽 聽MailTo 聽 := "kapiabafwh@gmail.com; <!-- e --><a href="mailto:demo@demostracion.com">demo@demostracion.com</a><!-- e -->"

聽 聽// Archivos
聽 聽cSndFile 聽:= "C:\FWH1701\SAMPLES\COMP.Log"
聽 聽cSndFile2 := "C:\FWH1701\SAMPLES\ERROR.Log"

聽 聽IF .NOT. FILE( cSndFile )

聽 聽 聽 cSndFile := ""

聽 聽ENDIF

聽 聽IF .NOT. FILE( cSndFile2 )

聽 聽 聽 cSndFile2 := ""

聽 聽ENDIF

聽 聽cText 聽 聽:= "Mister Jorge... 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "

聽 聽cSubj 聽 聽:= "Errores en el programa.. 聽聽 聽 聽"

聽 聽DEFINE WINDOW oWnd TITLE "Send Mail"

聽 聽DEFINE BUTTONBAR oBar _3D OF oWnd

聽 聽DEFINE BUTTON OF oBar ACTION( SendMail2( MailTo, cSndFile, cSndFile2, cText, cSubj ) )

聽 聽SET MESSAGE OF oWnd TO "Send Mail" NOINSET CLOCK DATE KEYBOARD

聽 聽ACTIVATE WINDOW oWnd

return nil
// Envia Error
FUNCTION SendMail2( MailTo, cSndFile, cSndFile2, cText, cSubj )

聽 聽LOCAL oMail

聽 聽DEFINE MAIL oMail 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 SUBJECT cSubj 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 TEXT cText 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 FILES cSndFile, cSndFile, cSndFile2, cSndFile2 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 FROM USER 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 TO MailTo

聽 聽ACTIVATE MAIL oMail

聽 聽IF ( oMail:nRetCode ) = 0

聽 聽 聽 MsgInfo( "Mensagem Enviada com Sucesso", "Aviso" )

聽 聽ELSE

聽 聽 聽 MsgInfo( OemToAnsi( "N脝o Foi Possivel Enviar a Mensagem de Erro" ), 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽OemToAnsi( "N脝o Foi Possivel Enviar a Mensagem de Erro" ) )

聽 聽ENDIF

RETURN( .T. )


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Jorge_T
Posts: 38
Joined: Tue Jan 22, 2019 08:28 AM

Re: MAPI - Mail, nRetcode siempre 0

Posted: Mon May 20, 2019 02:49 PM
Muchas gracias Karinha,

Pero el problema es el mismo, despu茅s de compilar tu ejemplo, si envio a un email err贸neo, por ejemplo "demo@demostracionx.com", nRetcode es 0 por lo que el programa informa que el mensaje a sido enviado...

Sin embargo, si que nos informa correctamente con error si no adjuntamos un archivo valido. Si no es mucho pedir, intenta hacer la prueba,

Saludos,

Jorge

--------------------------------------------------

Fivewin 18.10 - Harbour - BCC 7 - PellesC

--------------------------------------------------
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: MAPI - Mail, nRetcode siempre 0

Posted: Mon May 20, 2019 03:14 PM

El correcto 茅s que tu haga una FUNCTION para criticar los emails erroneos. El windows live 茅s que debe retornar un erro de envio.

No hay error en este email: demo@demostracion.com solo no ejiste.

Saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Jorge_T
Posts: 38
Joined: Tue Jan 22, 2019 08:28 AM

Re: MAPI - Mail, nRetcode siempre 0

Posted: Fri May 24, 2019 02:53 PM
karinha wrote:El correcto 茅s que tu haga una FUNCTION para criticar los emails erroneos. El windows live 茅s que debe retornar un erro de envio.

No hay error en este email: demo@demostracion.com solo no ejiste.

Saludos.


Muchas gracias Karinha,

Tienes toda la raz贸n, estaba "ofuscado", no hay un error en el formato del email.

Lo correcto ser铆a chequear si la direcci贸n de email existe....

Es posible hacerlo con fivewin???

Saludos,
Jorge

--------------------------------------------------

Fivewin 18.10 - Harbour - BCC 7 - PellesC

--------------------------------------------------

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions