Envio de XMl Carta Correção

[Sergio Sartori]

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;
 

[BigWings]

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.

[Sergio Sartori]

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

 

[Juliana Tamizou]

Boa tarde.

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

Att.

[BigWings]

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;

 

[Sergio Sartori]

obrigado BigWings