Hola a todos. Recurro directamente a vosotros por que no he podido encontrar solución a mi problema en los hilos (o no he sabido encontrarlo). Os explico:
Utilizo Delphi 2006 e intento enviar un e-mail con los componentes Indy TIDMessage y TIdSMTP. El código se ejecuta correctamente, hasta que llega a la línea con lo siguiente : smtp.Send(mail); (la variable smtp pertenece a la clase TIdSMTP) (la variable mail pertenece a la clase TIDMessage).
El error es el siguiente: 'Project raised exception class EidSMTPReplyError with message "" '
El código en cuestión es el siguiente (es una función):
Código Delphi
[-]
smtp := TIdSMTP.Create(self);
mail := TIdMessage.Create(Self);
with smtp do begin
Host := pSMTP;
port := 25;
Username := pUser;
Password := pPass;
end;
with mail do begin
From.Address := pFrom;
Recipients.EMailAddresses := pDestinatario;
Subject := pSubject;
body.text := pBody;
end;
try
smtp.Connect;
try
smtp.Send(mail);
except on E: Exception do
begin
Result := True;
ShowMessage('Fallo al enviar: ' + E.Message);
end;
end;
finally
Result := True;
if SMTP.Connected then
SMTP.Disconnect;
smtp.free;
mail.free;
end;
Estoy algo desesperadillo, para qué negarlo.¿Alguna alma caritativa sabe el porqué del problema?
Este foro no tiene precio. Muchas gracias a todos de antemano.
Saludos