by karinha » Thu Feb 16, 2017 12:16 pm
Lo siento, no comprendo perfecto... Mira se ayuda:
- Code: Select all Expand view
#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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341