Pesquisar na Comunidade
Showing results for tags 'enviaremail'.
Encontrado 4 registros
-
Desenvolvi uma aplicação utilizando Threads, para emissão de NFe e, me deparei com um problema ao envio de emails, se por algum motivo o sistema gerar um erro, ele exibe uma caixa de dialogo na tela. Então, criei uma propriedade dentro do ACBrMail para que o Desenvolvedor escolha a forma que deseja trabalhar, se o sistema exibe ou não a mensagem de erro(se escolher não, o sistema manterá a mensagem do Excetion em uma variável, permitindo o uso dela posteriormente). Segue o código para ser analisado e, se possível, acrescido aos fontes do Projeto ACBr. ACBrMail.pas
-
Boa tarde para todos. Estou com um problema bastante estranho por aqui. Meu ambiente é: Delphi XE7 AcBr no truck Dlls do svn com openSSL 0.9.8.14 Quando do envio do email pela função "NotasFiscais[0].EnviarEmail", as vezes, sim...nem sempre mesmo repetindo a mesma operação eu recebo um access violation no seguinte bloco de codigo function TMimeMess.AddPartHTML(const Value: TStrings; const PartParent: TMimePart): TMimepart; begin Result := AddPart(PartParent); with Result do begin Value.SaveToStream(DecodedLines); <-- AQUI Primary := 'text'; Secondary := 'html'; Description := 'HTML text'; Disposition := 'inline'; CharsetCode := UTF_8; EncodingCode := ME_QUOTED_PRINTABLE; EncodePart; EncodePartHeader; end; end; Já mudei dlls, desinstalei e recoloquei o AcBr, mas o problema persiste. Envio 10, 20 NFs e do nada acontece bem ai (cheguei até ai com o Eureka) Não sei mais o que fazer. Se alguém puder me dar um norte seria de enorme ajuda. Desde já, obrigado pela atenção de todos.
-
Boa Noite Galera, estou com dificuldade para conseguir enviar email com os meus boletos, com a utilização do ACBrMail1, não havia achado um pq está dando erro então fui olhar as funções dentro do acbr e achei uma uma diferença entre a função para envio da NFe e o boleto, queria saber se está correta a função do TACBrBoletoEnviarEmail. procedure TACBrBoleto.EnviarEmail(Const sPara, sAssunto: String; sMensagem: TStrings; EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings); procedure NotaFiscal.EnviarEmail(sPara, sAssunto: String; sMensagem: TStrings; EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings);
-
caros , estou com o seguinte erro abaixo na inicialização do delphi xe2. obs: quando estou enviando o danfe e o arquivo xml pela função? ACBrNFe1.NotasFiscais.Items[0].EnviarEmail estou com tudo pronto so faltando corrigir o erro e conseguir enviar o danfe por email com o xml atravez com componente ACBrNFe. uso o email do google ja configurado a porta 465 e o host smtp.gmail.com as imagens anexas são do erro na inicialização do delphi e na no envio do e-mail pelo sistema. ja tentei: -colocar o arquivo C:\Windows\System324 -colocar o arquivo libxml2.dll em C:\Windows\SysWOW64 -colocar o arquivo libxml2.dl na pasta a aplicação. agradeço a ajuda.
