Problemas Ao Enviar E-Mail Do Pdf + Xml

[rrodrigoffernandes]

Olá amigos, estou com problemas na rotina que envia o e-mail do acbrnfse, após fazer a nota de serviço, clico no botão que chama a função abaixo que envia o e-mail. Quando baixo os anexos, o arquivo PDF está gerado corretamente, porém o arquivo XML está zerado, totalmente limpo sem informações. o xml existe na pasta correta do sistema, tem conteúdo, abre normalmente, mas quando envio o e-mail o nome dele vai correto, porém ele vai em branco.

 

o código usado para enviar o e-mail é o abaixo:

 

 

 

//..Carregando a Nota

      ACBrNFSe1.NotasFiscais.Clear;

      ACBrNFSe1.NotasFiscais.LoadFromFile(vArquivo);

      Mens:= TMemo.Create(FNFSe);

      Mens.Parent:= FNFSe;

      Mens.Lines.Add(DM_Principal.CDSParametroSistemaPANFESMTPMENSAGEM.asString);

      CC:= TstringList.Create;

      CC.Add('[email protected]');      //..especifique um email válido

      CC.Add('[email protected]');      //..especifique um email válido

 

      ACBrNFSe1.NotasFiscais.Items[0].EnviarEmail(DM_Principal.CDSParametroSistemaPANFESMTPSERVIDOR.AsString

                                             , DM_Principal.CDSParametroSistemaPANFESMTPPORTA.AsString

                                             , DM_Principal.CDSParametroSistemaPANFESMTPUSUARIO.AsString

                                             , vSenhaDecodificada

                                             , DM_Principal.CDSParametroSistemaPANFESMTPUSUARIO.AsString

                                             , Para

                                             , DM_Principal.CDSParametroSistemaPANFESMTPASSUNTO.AsString

                                             , Mens.Lines

                                             , (DM_Principal.CDSParametroSistemaPANFESMTPCONEXAOSEGURA.Text = 'S')

                                             , True          //..Enviar PDF junto

                                             , nil           //..Lista com emails que serão enviado cópias - TStrings

                                             , nil           //..Lista de anexos - TStrings

                                             , False         //..Pede confirmação de leitura do email

                                             , True         //..Aguarda Envio do Email(não usa thread)

                                             , DM_Principal.CDSParametroSistemaPAFANTASIA.AsString //..Nome do Rementente

                                             ,False // TLS

                                             ,True// Usar Thread

                                             ,false );//Formato html

      CC.Free;

      Mens.Free;

[Italo Giurizzato Junior]

Bom dia Rodrigo,

 

Foi enviado uma alteração, por favor atualize os seus fontes e teste novamente.

[rrodrigoffernandes]

Ok, fomos nós aqui da empresa que fizemos a alteração, 

acabei de atualizar os fontes, as alterações estão ok

já deu certo!

 

Fizemos alguns outros ajustes, acabamos de enviar um e-mail, dá uma olhada fazendo favor.