Jump to content

dev botao

Enviar email dos eventos NFe


Sergio Sartori
Go to solution Solved by BigWings,
  • Este tópico foi criado há 1711 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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?

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

Projeto ACBr

 

 

Link to comment
Share on other sites

  • 4 weeks later...
  • Consultores

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

  • Like 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 to comment
Share on other sites

  • Este tópico foi criado há 1711 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...