Enviar XML e PDF da CCe

[Arnaldo]

Fiz a CCe está tudo OK só está mim faltando conseguir enviar o XML e o PDF pro email do cliente.

alguem pode mim dá algumas dicas.

Obrigado

ja consegui com o codigo abaixo

uses

IdAttachmentFile, IdMessage, IdSMTP, IdComponent

var

IdSMTP : TIdSMTP;

lMensagem : TIdMessage;

lMensagem := TIdMessage.Create(Application);

IdSMTP := TIdSMTP.Create(Application);

idSMTP.Username := SMTPUsu; // emaildo usuario

idSMTP.Password := SMTPSenha;// senha do usuario

idSMTP.Host := SMTPHost;// host do usuaro ex.: provedo.mail.com.br

idSMTP.Port := StrToInt(SMTPPorta);// porta email -> geralmente 25

idSMTP.Connect;

with lMensagem do

begin

Subject := 'Carta de Correção';// assunto

From.Address := vsEdtEmail;// email de origem

Recipients.EmailAddresses := EmailCliente;// email de destino

Body.Text := 'Carta de Correção';// testo do email

TIdAttachmentFile.Create(MessageParts, 'C:\USOFT\Carta\' + '110110-' + edtChave.Caption + '-' + IntToStr(NumSeq) + '-procEventoNfe.xml');

TIdAttachmentFile.Create(MessageParts, 'C:\USOFT\Carta\' + '110110-' + edtChave.Caption + '-' + IntToStr(NumSeq) + '-procEventoNfe.pdf');

idSMTP.Send(lMensagem);

end;

idSMTP.Disconnect;

lMensagem.Free;

IdSMTP.Free;

[Régys Silveira]

Movido para o local correto.

[Angelo Gomes]

Eu utilizo o mesmo método que envia a NFe, o EnviarEmail, só adiciono o XML e o PDF da CCe como anexos.

[ricardo_casc]

Uma outra opção de envio do xml do cce.

viewtopic.php?f=6&t=3451&p=35978&hilit=ricardo+rodrigues#p35978