Boa noite,
Estou com um problema no envio do XML e o PDF fiz esse código abaixo e quando envio ele criar no xml e não pegar o que foi validado pelo sefaz alquem poder mim ajuda.
procedure Tfrmnotafiscal_menu.bt_nfe_exportar1Click(Sender: TObject);
var
Para : String;
CC: Tstrings;
sXML,pdf: string;
bserv: boolean;
StreamMemo: TMemoryStream;
Email: TEmail;
begin
try
sXML := Gerar_XML;
if FileExists(sXML) then
begin
frmmodulo.qrconfig.open;
if edtSmtpHost.Text = '' then
begin
Application.messagebox('Favor configurar a conta de email!', 'Erro',
mb_ok + mb_iconerror);
exit;
end;
// verificar se pdf existe
pdf:= 'C:\Inforpoint\pdf\'+ stringreplace( ExtractFileName(sXML), '-NFe.xml' , '.pdf',[rfReplaceAll, rfIgnoreCase]);
if FileExists(pdf) then sXML := sXML + '|'+ pdf;
qrNFE_Cliente.close;
qrNFE_Cliente.sql.clear;
qrNFE_Cliente.sql.add('select email from c000007');
qrNFE_Cliente.sql.add('where codigo = ''' +
qrnota.fieldbyname('codcliente').asstring + '''');
qrNFE_Cliente.open;
Para := qrNFE_Cliente.fieldbyname('Email').asstring;
if Para = '' then
inputbox('Email', 'Email do Cliente', '');
if frmmodulo.qrconfig.fieldbyname('email_exige_conexao').asinteger = 1
then
bserv := True
else
bserv := False;
email := TEmail.Create;
end;
//CC:=TstringList.Create;
//CC.Add('
[email protected]'); //especifique um email válido
//CC.Add('
[email protected]'); //especifique um email válido
ACBrMail1.Host := edtSmtpHost.Text;
ACBrMail1.Port := edtSmtpPort.Text;
ACBrMail1.Username := edtSmtpUser.Text;
ACBrMail1.Password := edtSmtpPass.Text;
ACBrMail1.From := edtSmtpUser.Text;
ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - Conexão Segura
ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS
ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email
ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread)
ACBrMail1.FromName := 'Nota e XML Referente as Compras!!!';
ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text,
mmEmailMsg.Lines
, True // Enviar PDF junto
//, CC // Lista com emails que serão enviado cópias - TStrings
, nil); // Lista de anexos - TStrings
finally
CC.Free;
end;
Application.messagebox('Email enviado com sucesso!', 'Aviso',
mb_ok + MB_ICONINFORMATION);
end;
