Buenos días gente, estoy teniendo un problema al intentar adjuntar un archivo a un correo, estoy utilizando delphi 2005 con los componentes inDy y tengo el siguiente código:
Código Delphi
[-]
var
temp:string;
begin
RvSystem2.DoNativeOutput:=false;
RvSystem2.RenderObject:=RvRenderPDF1;
RvSystem2.SystemSetups:=RvSystem2.SystemSetups-[ssAllowSetup];
RvSysTem2.OutputFileName:='C:\Windows\temp\temp.pdf';
IdMessage1.ClearBody;
IdMessage1.Body.Text:='Un saludo.';
idmessage1.Recipients.EMailAddresses:=DESTINATARIO;
IdMessage1.Subject:='Envio de informe';
IdMessage1.Priority:=MpNormal;
IdMessage1.From.Text:=CORREO;
Frmlistadoart.RvProject2.SelectReport('Report13',true);
FrmListadoart.RvProject2.SetParam('Pedido',pedido);
FrmListadoArt.RvProject2.SetParam('PedPapel',compra);
Frmlistadoart.RvProject2.SetParam('RefTinta',tinta);
frmlistadoart.RvProject2.SetParam('RefMotivo',motivo);
Frmlistadoart.RvProject2.Execute;
if fileexists('C:\WINDOWS\Temp\Temp.pdf') then
begin
TIdAttachmentfile.create(IdMessage1.MessageParts,'C:\Windows\temp\temp.pdf');
end;
try
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
Finally
IdSMTP1.Disconnect;
end;
showmessage('Se envio el mensaje correctamente');
Except
ShowMessage('Fallo en el envio de email');
Si intento mandarlo con el PDF adjunto me salta el siguiente error:
Código:
raised exception class EIdSocketError with message 'Socket Error # 10054 Connection reset by peer.'
Sin embargo, si lo envío sin el archivo adjunto el mensaje se envia correctamente. Espero que alguien me pueda echar una mano porque no se porque falla, además este código, o uno muy similiar, lo llevo usando en otro programa hace ya tiempo y comparando el código de uno y otro no veo porque uno funciona y el otro no.
Un saludo y gracias por su tiempo.