Ir para conteúdo
  • Cadastre-se

dev botao

Enviar email dos eventos NFe


Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1546 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

não estou conseguindo enviar o arquivo da cc nfe, esta dando esse erro

 

smtp:error unable to send mail from 501 5.1.3 invalid address 

 

já atualizei as dll   mas continua a mesma coisa;

 

 

   MenuPrincipal.ACBrNFe1.NotasFiscais.Clear;
    MenuPrincipal.ACBrNFe1.NotasFiscais.LoadFromFile(vCaminho);
    //ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
    CC:=TstringList.Create;
    try
      CC.Add('[email protected]'); //especifique um email válido
      CC.Add('[email protected]'); //especifique um email válido

      if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'SSL' then
       begin
        MenuPrincipal.ACBrMail1.SetSSL  := True;
        MenuPrincipal.ACBrMail1.SetTLS  := False;
       end
      else if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'TSL' then
       begin
        MenuPrincipal.ACBrMail1.SetSSL  := False;
        MenuPrincipal.ACBrMail1.SetTLS  := True;
       end
      else
       begin
        MenuPrincipal.ACBrMail1.SetSSL  := False;
        MenuPrincipal.ACBrMail1.SetTLS  := False;
       end;

     // ACBrMail1.AddCC(vEmail1);
     // ACBrMail1.AddReplyTo('um_email'); // opcional
    //  ACBrMail1.AddBCC(vEmail2); // opcional

      MenuPrincipal.ACBrMail1.Host      := DM_EMPRESA.cds_empresaSERVIDOR_EMAIL.AsString;
      MenuPrincipal.ACBrMail1.Port      := IntToStr(DM_EMPRESA.cds_empresaPORTA_EMAIL.AsInteger);
      MenuPrincipal.ACBrMail1.Username  := DM_EMPRESA.cds_empresaEMAIL.AsString;
      MenuPrincipal.ACBrMail1.Password  := DM_EMPRESA.cds_empresaSENHA_EMAIL.AsString;
      MenuPrincipal.ACBrMail1.FromName  := DM_EMPRESA.cds_empresaNOME.AsString;
      MenuPrincipal.ACBrMail1.From      := DM_EMPRESA.cds_empresaEMAIL.AsString;
      MenuPrincipal.ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email
      MenuPrincipal.ACBrMail1.UseThread := False;           //Aguarda Envio do Email(não usa thread)
     // ACBrMail1.FromName := 'Projeto ACBr - ACBrNFe';

      MenuPrincipal.ACBrNFe1.EnviarEmailEvento(Para, edtEmailAssunto.Text, mmEmailMsg.Lines,
                               nil, // Lista com emails que serao enviado copias - TStrings
                               nil, // Lista de anexos - TStrings
                               nil  // ReplyTo
                               );


    finally
      ShowMessage('Carta de Correção enviada com sucesso!');
      CC.Free;
    end;
  

será que esta errado ?

Link para o comentário
Compartilhar em outros sites

  • Consultores

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores
35 minutos atrás, Sergio Sartori disse:

smtp:error unable to send mail from 501 5.1.3 invalid address 

A mensagem parece apontar que uma configuração de email está incorreta. Possivelmente um endereço inválido. Provavelmente a propriedade "from".

Verifique se não está passando algum caractere inválido, como um espaço por exemplo.

Se possível, teste também com o aplicativo de exemplo.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Membros Pro

EMBARBOSA,  já conferi esta certo.

 

mas coloquei os dados manualmente sem espaço em branco etc.  

mas não deu certo.

mas os arquivos da emissão da nfe esta funcionando normal.

consigo enviar normalmente, usando a mesma configuração do emitente.

 

quanto fazer o teste, eu já exclui a pasta do acbr, e baixei novamente + o demo vem sempre desatualizado. inclusive hoje fiz isso exclui a pasta instalei o acbr novamente  mas continua o exemplo da nfe antigo.

 

usando este link https://svn.code.sf.net/p/acbr/code/trunk2

até desisti de atualizar.  

 

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

o problema de componente Opensources é isso, já estou quase uma semana tentando resolver isso e até agora nada, você não tem uma linha objetiva para resolver o problema né?.

ai agente fica testando uma coisa, depois outra.  

mas tudo bem, vamos enfrente.  

se não ser certo o acbr vou usar idsmpt do delphi mesmo, acho que vai resolver o problema.

por hora obrigado pela atenção.

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
22 minutos atrás, Sergio Sartori disse:

o problema de componente Opensources é isso, já estou quase uma semana tentando resolver isso e até agora nada, você não tem uma linha objetiva para resolver o problema né?.

O problema o Elton já identificou pela mensagem, algum endereço de email inválido.

Mas é difícil saber sem saber quais dados você está informando.

Não vi por exemplo no seu código você inicializar a variável "Para" que é o email do destinatário.

32 minutos atrás, Sergio Sartori disse:

quanto fazer o teste, eu já exclui a pasta do acbr, e baixei novamente + o demo vem sempre desatualizado. inclusive hoje fiz isso exclui a pasta instalei o acbr novamente  mas continua o exemplo da nfe antigo.

Como assim exemplo antigo?

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • Consultores

Tópico fechado por falta de retorno do usuário

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1546 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...