Página 3 de 4
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 21 Jul 2011 12:00
por rochinha
Amiguinhos,
Este exemplo é para envio usando BLAT.DLL:
Código: Selecionar todos
function blatEmail( cbody ,;
cserver ,;
cto ,;
cf ,;
csubject ,;
cu ,;
cpw ,;
cattach, lHtml )
lHtml := .t.
BlatCMD := [ blat.txt] + ;
[ -to ] + alltrim(cto) + ;
[ -server ] + alltrim(cserver) + ;
[ -mailfrom ] + alltrim(CL_Email) + ;
[ -subject "] + alltrim(csubject) + ["] + ;
[ -r ] + ;
[ -replyto ] + alltrim(CL_Email) + ;
[ -returnpath ] + alltrim(CL_Email) + ;
[ -u ] + alltrim(lower(cu)) + ;
[ -pw ] + alltrim(lower(cpw)) + ;
[ -log "email.log" -debug ] + ;
iif( lHtml, [ -html ], [] )
if empty( cAttach )
else
if ValType( cAttach ) == "A"
For nEle := 1 To Len( cAttach )
BlatCMD := BlatCMD + [ -attach "] + alltrim(cAttach[ nEle ]) + ["]
Next
else
BlatCMD := BlatCMD + [ -attach "] + alltrim(cAttach) + ["]
endif
endif
if lHtml
cBody := FormHtml( cSubject, cBody )
endif
rMemoWrit( "blat.txt", cbody )
fErase( "email.log" )
BlatLOG := SendB( BlatCMD )
RETURN .T.
DLL32 FUNCTION SendB( sBlatString AS STRING ) AS LONG PASCAL ;
FROM "SendBlat" LIB "Blat.dll"
Function rMemoWrit( _aquivo_, _conteudo_ )
nHandle := fCreate( _aquivo_ )
fWrite( nHandle, _conteudo_, LEN( _conteudo_ ) )
fClose( nHandle )
RETURN .T.
Function FormHtml( cSubject, cBody )
Local cOpen
cOpen := '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd">' + CRLF
cClose := CRLF + 'Nossa empresa envia email somente para pessoas e empresas cadastradas em nosso sistema.' + CRLF + ;
'Caso tenha duvidas favor entrar em contato com nossa central de atendimento ao cliente.'
cHTML := ;
'<html>' + CRLF + ;
'<head>' + CRLF + ;
' <meta http-equiv="Content-Type"' + CRLF + ;
' content="text/html; charset=iso-8859-1">' + CRLF + ;
'</head>' + CRLF + ;
'<body>' + CRLF + ;
'<pre>' + CRLF + ;
cBody + CRLF + ;
'</pre>' + CRLF + ;
'</body>' + CRLF + ;
'</html>'
Return cOpen + cHTML + cClose
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 22 Jul 2011 09:15
por HASA
)
Olá Rochiha, 2 questões:
1 - Qual das opções vc realmente acha 100% funcional, batzinho ou DLL ?
2 - Onde baixar o EXE e a DLL, são Free ?
HASA
:{
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 23 Jul 2011 05:02
por rochinha
Amiguinho,
A opção com .EXE esta ativa no módulo de erros pelo fato de ser pouco usada, foi a primeira implementação. SauDOSismo.
A versão .DLL é melhor quando se trata de envio em massa, já que a mesma subirá para a memória junto com o sistema e a rotina de envio fará acesso direto a ela.
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 23 Jul 2011 09:11
por HASA
)
Beleza Rochinha, só ficou o onde baixar ?
:)Pos
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 23 Jul 2011 21:09
por rochinha
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 25 Jul 2011 09:24
por HASA
Bom dia, Rochinha, infelizmente revirei o site e em tudo quanto foi link alguns poucos levaram a alguma outra pagina e outros estavão quebrados, mas... principalmente sobre a DLL, o executavel ainda aparece.
Hasa
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 25 Jul 2011 09:58
por rochinha
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 25 Jul 2011 10:06
por HASA
Ai sim heimmm, agora vou testar, testar e testar, vamos ver se ficará legal,
Valeu, Rocha
:{
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 28 Jul 2011 11:46
por momente
Amigo Rochinha,
Estou tentando compilar com o xHarbour, e esta dando erro na linha:
e na linha:
Oque será que esta faltando?
Obrigado
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 28 Jul 2011 13:41
por rochinha
Amiguinho,
Não existe este trecho no código:
fErase( "posthilit">email.log" )
O código correto é:
fErase( "email.log" )
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 28 Jul 2011 15:33
por momente
Verdade Rochinha,
Acredito que tenha sido no momento da cópia,
Consegui compilar sem gerar erros. Apenas não esta acontecendo nada. Segue parte do Código.
Código: Selecionar todos
function EnvEmail(cbody , cserver, cto, cf, csubject, cu, cpw, cattach, lHtml)
lHtml := .t.
BlatCMD := [ blat.txt] + ;
[ -to ] + alltrim(cto) + ;
[ -server ] + alltrim(cserver) + ;
[ -mailfrom ] + alltrim(cTo) + ;
[ -subject ] + alltrim(csubject) + ;
[ -r ] + ;
[ -replyto ] + alltrim(cTo) + ;
[ -returnpath ] + alltrim(cTo) + ;
[ -u ] + alltrim(lower(cu)) + ;
[ -pw ] + alltrim(lower(cpw)) + ;
[ -log ] + "email.log" + ;
[-debug ] + iif( lHtml, [ -html ], [] )
if empty( cAttach )
else
if ValType( cAttach ) == "A"
For nEle := 1 To Len( cAttach )
BlatCMD := BlatCMD + [ -attach ] + alltrim(cAttach[ nEle ]) // + "[]"
Next
else
BlatCMD := BlatCMD + [ -attach ] + alltrim(cAttach)
endif
endif
if lHtml
cBody := FormHtml( cSubject, cBody )
endif
rMemoWrit( "blat.txt", cbody )
fErase( "email.log" )
// BlatLOG := SendB( BlatCMD )
RET := DLLCALL(nDLL_BLAT,32,"SendBlat",BlatCMD)
If RET == 1
MsgBox1("Falha no envio do email')
Endif
RETURN .T.
A função DLLCALl esta retornando NUL :%
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 28 Jul 2011 16:14
por rochinha
Amiguinho,
Tente uma delas:
Código: Selecionar todos
DLL32 FUNCTION SendB( sBlatString AS STRING ) AS LONG PASCAL ;
FROM "SendBlat" LIB "Blat.dll"
DLL32 FUNCTION BlatSend( BlatCMD AS STRING ) AS LONG PASCAL;
FROM "Send" LIB "Blat.dll"
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 29 Jul 2011 10:27
por HASA
)
Para aqueles que usam MiniGUI 1.9 Extended Edition (Build 98) achei por um acaso:
C:\MiniGUI\SAMPLES\Advanced\BlatMail
Usando a DLL com a Dll na pasta é mole.
:xau
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 29 Jul 2011 10:47
por momente
Amigo,
Dei uma olhada neste exemplo da MiniGUI e achei interessante. Acho que vai dar certo para o que preciso.
Valeu pela dica!
Obrigado Rochinha tmb!
:-Y
Automatizar um envio de relatorio via email [EDITADO]
Enviado: 06 Set 2011 14:39
por fertriod3
Olá pessoal do fórum.
Postei algumas vezes e fiquei um tempão sem postar. Sobre a duvida do colega, a biblioteca SIBRA resolve certinho o problema. Gera PDF (tem que ter uma impressora PDF instalada), e envia pra qualquer impressora USB.
Acontece que ela também dá um erro de "Programa muito extenso pra ser colocado na memória" e ainda não resolvi.
Se alguem tiver a solução, por favor compartilhe.