Bom dia, já fiz esses testes. Já enviei para meu próprio email e continua chegando somente o PDF. Abaixo vou deixar o código do método como estou usando. Para que possa entender melhor.
procedure TfrmEnviaNfeEmail.btnEnviaClick(Sender: TObject);
var
Para : String;
CC: Tstrings;
Dir, ArqXML: String;
MS: TMemoryStream;
P, N: Integer;
begin
if not FileExists( dmnf.znfeCHAVE_NFE.AsString ) then
raise Exception.Create('Arquivo Xml, não localizado ou inexistente!');
try
with fsindatanfe2 do
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(dmnf.znfeCHAVE_NFE.AsString);
//Corri
MS := TMemoryStream.Create;
try
ArqXML := dmnf.znfeCHAVE_NFE.AsString;
MS.LoadFromFile(ArqXML);
fsindatanfe2.ACBrMail1.AddAttachment(MS, 'XML',adAttachment);
finally
MS.Free;
end;
CC := TstringList.Create;
Para := edtPara.Text;
cc.Text := '';
fsindatanfe2.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(Para
, edtAssunto.Text
, memMsg.Lines
, True
, cc
, cc);
ShowMessage('Email Enviado com Sucesso!');
cc.Free;
end;
except
on E:Exception do
begin
ShowMessage('Erro: '+ E.Message);
end;
end;
end;