Ir para conteúdo
  • Cadastre-se

dev botao

Envio de XMl Carta Correção


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

Recommended Posts

  • Membros Pro

Bom dia  pessoal .

estou com problema no envia dos arquivos da carta de correção por email!

so esta chegando no email do cliente o arquivo pdf o xml não.

 é assim mesmo no caso da carta de correção só envia o arquivo pdf ?

/***********************************************************************

esse é o codigo

//**********************************************************************

 vCaminho  := 'C:\sgmsistemagestao\Nfe\CCe\'+vAn+'\'+vMe+'\'+pegaChaveRec+'-procEventoNFe.xml';
   if vEmail1 <> '' then
    begin
      vEmail:= vEmail + ';' + vEMail1;
    end;
   if vEmail2 <> '' then
    begin
      vEmail:= vEmail + ';' + vEMail2;
    end;

    Para := vEmail;
    if not(InputQuery('Enviar Email', 'Digite o Email de destino', Para)) then
    exit;

    OpenDialog1.InitialDir :=  frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
    OpenDialog1.Title := 'Selecione ao Evento';
    OpenDialog1.DefaultExt := '*.XML';
    OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
    OpenDialog1.InitialDir := frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar;


      Evento := TStringList.Create;
      Evento.Clear;
      Evento.Add(OpenDialog1.FileName);
      frmListaNFe.ACBrNFe1.EventoNFe.Evento.Clear;
      frmListaNFe.ACBrNFe1.EventoNFe.LerXML(vCaminho);

      CC:=TstringList.Create;
      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
        frmListaNFe.ACBrMail1.SetSSL  := True;
        frmListaNFe.ACBrMail1.SetTLS  := False;
       end
      else if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'TSL' then
       begin
        frmListaNFe.ACBrMail1.SetSSL  := False;
        frmListaNFe.ACBrMail1.SetTLS  := True;
       end
      else
       begin
        frmListaNFe.ACBrMail1.SetSSL  := False;
        frmListaNFe.ACBrMail1.SetTLS  := False;
       end;


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

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

                              showMessage('Email enviado com sucesso.');

    CC.Free;
    Evento.Free;
 

Link para o comentário
Compartilhar em outros sites

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

so esta chegando no email do cliente o arquivo pdf o xml não.

 é assim mesmo no caso da carta de correção só envia o arquivo pdf ?

Analisando o código, é isso mesmo... só é enviado o PDF.

Mas você ainda pode passar como parâmetro na lista de anexos o caminho para o XML do evento ou qualquer outro arquivo que desejar.

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

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

 Sugiro estudar o demo do ACBrNFe, em especial a opção "Enviar Evento Email"

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Moderadores
1 hora atrás, Sergio Sartori disse:

Vc pode me dar um exemplo como que eu passo esse parametro por favor?

var
  Anexos: TStringList;
begin

  [...]

  Anexos := TStringList.Create;
  try

    Anexos.Add('c:\caminho\do\arquivo.xml');

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

 

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1498 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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...