FiveTech Support Forums

MAPISendMail( cSubject, cNoteText, , , , TRUE, TRUE, , aRecipients, aFiles );

#Include "FiveWin.ch"
#Include "Mail.ch"

FUNCTION Main()

   LOCAL MailTo, cSndFile, cSndFile2, cText, cSubj

   // Campo Para:
   MailTo   := "joao@pleno.com.br"

   // Arquivo a Anexar
   cSndFile  := "C:\FWH1306\SAMPLES\COMP.Log"
   cSndFile2 := "C:\FWH1306\SAMPLES\ERROR.Log"

   // Texto do Corpo do Email
   cText    := "Errores del Programa - Archivo Anexo"

   // Titulo do Email
   cSubj    := "Errores del Programaa "

   //LogOn in the mail system
   MAPILogOn()

   // Abre o OutLook Express ou o Windows Live Mail - Tem que estar padrao
   SendMail2( MailTo, cSndFile, cSndFile2, cText, cSubj )

   // LogOff from the mail system
   MAPILogOff()

RETURN NIL

// Envia o arquivo de erro do programa

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" )
      // nada a fazer

   ELSE

      // use google translator..

      ? "Error... "

   ENDIF

RETURN( .T. )

/*
MAPI Mail Syntax:

DEFINE MAIL [ <oMail> ];
[ SUBJECT <cSubject> ];
[ TEXT <cText> ];
[ TYPE <cType> ];
[ DATE <dDate> ];
[ TIME <cTime> ];
[ CONVERSATION <cConversation> ]:
[ RECEIPT ];
[ FROM USER ];
[ FILES <cFilename1> ,<cDescript1>, <cFilenameN>, <cDescriptN> ] ];
[ ORIGIN <cOrigin> [ <cOriginAddress> ] ];
[ TO <cTarget1>, [ <cTargetAddress1> ] [ <cTargetN> [ <cTargetAddressN> ] ] ];

DEFINE MAIL...FILES cFilename1,,cFilename2,,Filename3

/*
DEFINE MAIL oMail ;
SUBJECT cxSUBJECT ;
FILES cRutafileA , cRutafileA , cRutafileB , cRutafileB ;
TEXT cTexto ;
TO cEmail, cEmail
ACTIVATE MAIL oMail
*/

*/