Envio De Email

[visageplus]

ola gostaria de saber se vcs tem algum componente para envio de email gostaria de enviar os orçamentos/vendas do meu sistema por email

att,

nill camargo

[André Ferreira de Moraes]

Não, mas vc pode usar a synapse, veja como é feito o envio de email da NFe e siga o mesmo modo.

[wellison morais]

Estou com esse erro no envio de notas por email,alguem pode me ajudar por favor.

 

 

SMTP ERROR: MailFrom:Permanent Failure-Delivery not authorized, message refused

 

530 5.7.1 Client was not authenticated

[EMBarbosa]

 

Estou com esse erro no envio de notas por email,alguem pode me ajudar por favor.

 

 

SMTP ERROR: MailFrom:Permanent Failure-Delivery not authorized, message refused

 

530 5.7.1 Client was not authenticated

 

Crie um tópico novo para uma dúvida nova conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto".

[wellison morais]

Entendido ,sou novo aki e agradeço pela orientação.

[Solivan]

Tentei colocar o meu post  mas deu erro de conexao entao foi postado 3 vezes, peço aos moderadores que por gentileza apage os comentários que não contenham o anexo *.pas

 

Obrigado!

uEnviarEmail.pas

Editado 2 Julho, 2013 por Solivan

[Solivan]

uses uEnviarEmail

 

Eu fiz uma limpeza na unit ACBrBoleto e deixei apenas a função que envia o boleto se alguém se interessar fica ai o anexo ...

 

Envio com Thread para evitar travamento.

Necessário ter o pacote ACBr instalado na máquina, haja vista que a função utiliza as rotinas de envio utilizadas pelo ACBr ...

 

At. Solivan Noleto Milhomem

 

var
  AEmail : TSendMailThread;
  cPath, cEmail, cFrom, cAssunto : string;
begin
  AEmail := TSendMailThread.Create(nil);
  cAssunto := 'assunto do email';
  cFrom    := 'quem esta enviando';
  cEmail   := '[email protected]'; // email do destinatario

  try
    btn_EnviarEmail.Enabled := False;
    cPath := 'c:\localdoarquivoinicontendoosdadosdosmtp.ini';
    AEmail.AFonteDados := cPath;
    AEmail.EnviarEmail(cFrom, cEmail, cAssunto, mmDescErro.Lines, True, nil, mmAnexoImagem.Lines, False, True, cFrom);
  finally
    btn_EnviarEmail.Enabled := True;
  end;
end;