FiveTech Software tech support forums

Code: Select all  Expand view

#include "FiveWin.ch"
#include "mail.ch"

STATIC oWnd

function Main()

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

   MailTo   := "kapiabafwh@gmail.com; demo@demostracion.com"

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

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.