Enviar email

[edutraini]

Tenho uma rotina que envia email e nesse email tem 4 anexos e as vezes uma variável não tem nenhum anexo ou seja fica em branco

ai o Outlook não abre

Alguem poderia me dar alguma dica de como fazer

DEFINE MAIL oMAIL ;

SUBJECT "Nota Fiscal Eletrônica "; // assunto

TO nEmail ; // para

TEXT nMeuIP ; //mensagem

FILES nArq,"",nArq1,"",nArq3,"",nArq4,"" FROM USER

SEND MAIL oMAIL

[kapiaba]

#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\VoNfeUtil2G.Log"

   cSndFile2 := "C:\FWH1306\SAMPLES\ERROR.Log"


   // Texto do Corpo do Email

   cText    := "Favor Verificar Erros da Nota Fiscal Eletrônica - Arquivo Anexo"


   // Titulo do Email

   cSubj    := "Erros da Nota Fiscal Eletrônica"


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


      MsgInfo( OemToAnsi( "NÆo Foi Possivel Enviar a Mensagem de Erro" )+CRLF+;

               OemToAnsi( "Por Favor Verifique se o Enviador de Email" )+CRLF+;

               OemToAnsi( "OutLook Express ou Windows Live Mail,     " )+CRLF+;

               OemToAnsi( "Est  Definido Como Enviador PadrÆo, nas   " )+CRLF+;

               OemToAnsi( "Op‡äes da Internet - Internet Explorer.   " ),     ;

               OemToAnsi( "NÆo Foi Possivel Enviar a Mensagem de Erro" ) )


   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

*/


*/


// FIM DO PROGRAMA