Enviar boleto em PDF como Anexo por EMail

[Clairton Lorenzato]

EStou tento um problema em anviar o arquivo PDF por email, está me dando a seguinte mensagem de Erro SMTP ERROR login???-Other Undefined Status parece ser ero de login, mas estranho que com a NFe está funcionando normal com os mesmos dados.

//AcbrNFe.NotasFiscais.Items[0].EnviarEmail(sSmtp... Este funciona normal

ACBrBoleto1.EnviarEmail(sSmtp, // host

sPorta, //porta

sUsuario, //Usuario

sSenha, //Senha

sEnvia, // Quem envia

EdtEmail.Text, // para onde vai

'Boleto Bancário em PDF', // titulo

mmEmailMsg.Lines, // corpo da mensagem

False, //

True, // Envia PDF

Nil, //Lista com emails que serão enviado cópias - TStrings

Nil, // Lista de anexos - TStrings

False, // Pede confirmação de leitura do email

False, //Aguarda Envio do Email(não usa thread)

'Posto Morada Do Sol'); // Nome do Rementente

São dois projetos diferentes os dois na mesma maquina, o da NFe funciona normal o do boleto dá este erro e não envia o email.

[carlosfilho]

Bom dia,

esta é a função de envio de Email

procedure EnviarEmail(const sSmtpHost,

sSmtpPort,

sSmtpUser,

sSmtpPasswd,

sFrom,

sTo,

sAssunto: String;

sMensagem : TStrings;

SSL : Boolean;

EnviaPDF: Boolean = true;

sCC: TStrings = nil;

Anexos:TStrings=nil;

PedeConfirma: Boolean = False;

AguardarEnvio: Boolean = False;

NomeRemetente: String = '';

TLS : Boolean = True);

Tenta mudar a SSL:=true;

onde smtp usa conexão segura.

[Clairton Lorenzato]

Carlos tentei fazer inumeras alterações e não deu resultado, continua o mesmo erro, estranho porque com o projeto da NFe funciona normal envia o XML e o PDF e neste projeto dá este erro, desconfiei de algumas dlls copiei as mesmas para a pasta do projeto mas não resolveu, sendo que a função é praticamente a mesma. Nunca levei um baile assim.

[carlosfilho]

Bom dia,

Vi que no componente não tava setando a porta, segue a correção.

ACBrBoleto.pas

[Clairton Lorenzato]

Boa Tarde Carlos, Agora funcionou, muito obrigado.

so encontrei um problema na Procedure EnviarEmail Variavel EnviarPDF se vc deixar Setada para false ela vai gerar um arquivo html na mesma pasta do executável, se for true vai gerar o arquivo pdf junto com o executável e não com o diretorio e nome pré designado anteriormente. tentei corrigir mas não cheguei a um consenso, fiz um quebra galho para min, so que toda a vez que atualizar o ACBr terei que corrigir.

if (EnviaPDF) then begin

//ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

// ACBrBoletoFC.NomeArquivo :='boleto.pdf';

// NomeArq:=ExtractFilePath(Application.ExeName)+'boleto.pdf';

NomeArq:= '';

NomeArq:= ACBrBoletoFC.DirArqPDF_HTML +'\'+ ACBrBoletoFC.NomeArquivo;

GerarPDF;

m.AddPartBinaryFromFile(NomeArq, p);

end else begin

// ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

// ACBrBoletoFC.NomeArquivo :='boleto.html';

NomeArq:= '';

NomeArq:=ACBrBoletoFC.DirArqPDF_HTML +'\'+EdtNumeroDoc.text+'_Boleto.html';

GerarHTML;

m.AddPartBinaryFromFile(NomeArq, p);

end;

[thiagogobatti]

Boa noite,

É possivel, enviar o boleto em html no corpo da msg?

abraços

[carlosfilho]

Sim é possivel, ainda não implementado da forma correta, pois a imagem fica bem grande, fica menos viavel que o pdf.

[Jose Carlos Barbosa]

Olá Pessoal.... estou enviando por e-mail boleto em PDF pelo PLUS

configurei a aba e-mail Boleto e quando envia só sai o assunto a mensagem não sai....estaria faltando alguma coisa no comando

obs - Uso Clipper5/Harbour

enviei: BOLETO.IncluirTitulos("C:\ACBrMonitorPLUS\Titulo.ini","E")
OK: E-mail enviado com sucesso!

e também...BOLETO.EnviarEmail("boleto.pdf","[email protected]")
OK: E-mail enviado com sucesso!

BOLETO.EnviarEmail("boleto.pdf","[email protected]","Boleto teste")
OK: E-mail enviado com sucesso!

envia e-mail, mas sem a mensagem..

no aguardo

[Juliomar Marchetti]

Sei que pode ser bobeira mas tentou clicar em mensagem ali no gerenciar?

[Jose Carlos Barbosa]

Juliomar, já verifiquei o gerenciador, abri também via webmail e não envia o boleto com a mensagem colocando no ACBr

 

no aguardo

[Jose Carlos Barbosa]

Alguém teria uma resposta sobre o problema acima ????

 

[Jose Carlos Barbosa]

Tentei também enviar o boleto, usando os comandos da opção EMAIL, mas a mensagem não envia...ex abaixo

EMAIL.Novo()
EMAIL.AdicionaPara("[email protected]","Nome da Empresa Referente")
EMAIL.Assunto("Boleto de NFe")
EMAIL.TextoMensagem("Segue em anexo boleto da NFe 444")
EMAIL.AdicionaAnexo("C:\Boletos\Boleto NFe-002408.pdf","Boleto")
EMAIL.Enviar()

enviando comando a comando, envia o email blz, anexo, assunto mas o corpo da msg não e o cliente esta me cobrando.

POR FAVOR NO AGUARDO

[Juliomar Marchetti]

Boa tarde

por favor é possível enviar para mim? [email protected]

[Jose Carlos Barbosa]

OLá Juliomar..... alguma posição do item acima..

no aguardo

[Jose Carlos Barbosa]

Pessoal, vai fazer uma semana que coloquei um problema ai e não tive resposta....

POR FAVOR....

[Daniel Simoes]

Não reaproveite tópicos antigos... Crie um novo tópico... Isso dificulta a visibilidade do mesmo...

Veja que o problema que você está relatando, é diferente do problema do tópico original...

Gostaria de lembrá-lo que o SAC não dá direito a desenvolvimento específico... mas mesmo assim, estamos sensíveis ao seu problema... vou analisar...

 

[Daniel Simoes]

Enviei correções para o SVN, que devem resolver o problema... a sintaxe de envio é apenas: "BOLETO.EnviarEmail"

Portanto você deve informar o destinatário no próprio título, usando a chave: "Sacado.Email"

 

Em relação ao Texto da mensagem, atente para o Fato de existir : "TextoMensagem" (HTML)  "TextoAlternativo" (TXT)... Na dúvida, preencha ambos...

[Jose Carlos Barbosa]

Olá Daniel, me desculpe se fiz algo de errado. Mas a cobrança foi só porque nas regras do SAC esta que teríamos uma resposta em 24 hs e fazia quase uma semana.

E referente  (SAC não dá direito a desenvolvimento específico) é que na aba BOLETO tem E-mail Boleto, Assunto e Mensagem. O que eu coloco como assunto sai e o que coloquei em mensagem não sai nada.

Mas como você disse que enviou para SNV, vou aguardar a próxima atualização..ok

Desculpa mais uma vez.

Obrigado