Fernando Kerber
-
Total de ítens
81 -
Registro em
-
Última visita
Community Answers
-
Fernando Kerber's post in Não Envia Anexo Quando Tem Corpo Do E-Mail was marked as the answer
Bom dia Juliomar e Daniel,
Achei uma solução, eu estava usando "ACBrMail1.IsHTML := true" e não estava alimentando o campo "ACBrMail1.Body.Text", estava apenas alimentando o "ACBrMail1.AltBody.Text" que seria o texto puro alternativo, quando eu mando o e-mail em HTML o anexo vai normalmente, mas quando eu mando apenas com o texto puro alternativo não vai o anexo, lembrando que é apenas para e-mails do gmail, funciona normal para outros provedores quando se alimenta apenas o texto puro alternativo com anexo.
No caso assim envia:
ACBrMail1.IsHTML := true; ACBrMail1.Body.Text := '<html>'+#13+#10+ '<head>'+#13+#10+#13+#10+ ' <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">'+#13+#10+ '</head>'+#13+#10+ '<body text="#000000" bgcolor="#FFFFFF">'+#13+#10+ '<h1>Texto em HTML.</h1><br>'+#13+#10+ '</body>'+#13+#10+ '</html>'+#13+#10; // ACBrMail1.AddAttachment('c:\Relatório.pdf','Relatório'); Eu estava fazendo assim:
ACBrMail1.IsHTML := true; ACBrMail1.AltBody.Text := 'Teste com texto puro alternativo.'; // ACBrMail1.AddAttachment('c:\Relatório.pdf','Relatório'); Sem alimentar o ACBrMail1.Body.Text.
Vou criar um e-mail no gmail, dai eu faço um mini projeto das duas formas para vocês entenderem melhor depois eu posto aqui.
Não sei se é algum tipo de bloqueio do gmail ou algo assim mas caso alguém passe por isso ta ai uma solução.
Obrigado.
-
Fernando Kerber's post in Erro Ao Enviar Email Com Domínio Pago was marked as the answer
Bom dia pessoal,
Entrei em contato com o provedor de e-mail do meu cliente e realmente para configurar o e-mail dele é um pouco diferente, por exemplo, o endereço de e-mail é [email protected] mas a configuração smtp dele é mail.dominio.com.br, como nosso amigo sfwinfo disse a cima o endereço de e-mail e o host não tem os mesmos nomes, isso aconteceu comigo em um e-mail do gmail também, o email era [email protected] mas o host era smtp.gmail.com. O suporte deles também me orientou a colocar o AutoTLS = SIM, no caso do acbr colocar, ACBrMail1.SetTLS := true, também me pediu pra conferir as DLLs, ele me explicou que como é um software de terceiros precisa de DLLs pra envio de e-mail, estas DLLs estão la na pasta Open SSL do Acbr.
Então se alguém passar por algo parecido, oriento a entrar em contato com o pessoal do provedor para pegar todas as informações necessárias, pode ser apenas que o seu host SMTP está errado, obrigado pela dica Daniel e sfwinfo.
-
Fernando Kerber's post in Erro Ao Abrir Pdf was marked as the answer
Bom dia.
Eu estava utilizando o fortes 3.71B no Delphi XE7, atualizei o Fortes para 3.72B e deu certo.
Obrigado.
-
Fernando Kerber's post in Código De Barras was marked as the answer
Fiz essa verificação para quebrar um galho e pelo ao menos deixar o cliente satisfeito por em quanto,
-veriifiquei no Before Print se o código de barras for igual a 4, igual a 5 ou igual a 7 ele muda a propriedadde BarcodeType para 2/5 Industry, esse codigo de barras é tipo um "universal" (o leitor le toda e qualquer numeração informada) mas a barra fica bem extensa, então 4, 5, e 7 digitos são pequenos e cabe na minha etiqueta;
-Se tiver 6, 8, 10,12 ou 14 digitos mudei a propriedade para 2/5 Intervaled, essa propriedade imprime corretamente apenas códigos com numeros pares,
-Se for 9 ou 11 digitos mudei a propriedade para bcCode128C onde é menor que o 2/5 Industry e le perfeitamente com essas duas numerações;
-Se for 13 ditos deichei o EAN13 dai la no campo também só faz a verificação do dígito verificador se tiver 13 digitos.
procedure TFFEstoque.RLDetailGrid9BeforePrint(Sender: TObject; var PrintIt: Boolean); begin if (Length(DataM.ADQTempCAMPO5.AsString) = 4) or (Length(DataM.ADQTempCAMPO5.AsString) = 5) or (Length(DataM.ADQTempCAMPO5.AsString) = 7) then RLDBBarcode2.barcodetype := bcCode2OF5Industry; if (Length(DataM.ADQTempCAMPO5.AsString) = 6) or (Length(DataM.ADQTempCAMPO5.AsString)= 8) or (Length(DataM.ADQTempCAMPO5.AsString)= 10) or (Length(DataM.ADQTempCAMPO5.AsString) = 12) or (Length(DataM.ADQTempCAMPO5.AsString) = 14) then RLDBBarcode2.barcodetype := bcCode2OF5Interleaved; if (Length(DataM.ADQTempCAMPO5.AsString) = 11) or (Length(DataM.ADQTempCAMPO5.AsString) = 9) then RLDBBarcode2.barcodetype := bcCode128C; //Aqui só cod barras com dígito verificador if Length(DataM.ADQTempCAMPO5.AsString) = 13 then RLDBBarcode2.barcodetype := bcEAN13; end; Lembrando que isso é para códigos de barras internos, e também se alguem tem uma maneira mais prática para fazer me digam. Obrgado.