Hola
, estoy programando en Delphi 7 una aplicacion para enviar correo, estaba usando un coponente llamado ANSMTP pero tuve q cambiar el codigo x q era una version de prueba y expiro
, ahora estoy usando el IDSMTP de las Indy y el Idmessage
, ya cheque varios codigos que vienen en esta pagina, y si puedo enviar los correos
, pero no me funciona cuando quiero manejar estas 2 excepciones EIdSocketError y esta EIdProtocolReplyError
, a ver si alguien me puede ayudar por favor.
Asi es el codigo que tengo para esas dos excepciones
ON E: EIdProtocolReplyError do begin
showmessage('No se ha podido enviar el email.' + #13 +
'Incorrecto el email o el usuario o la password.');
end;
on E: EIdSocketError do begin
showmessage('No se ha podido enviar el email.'+ #13 +
'Host desconocido o incorrecto.');
end
else begin
Msg('Fallo en el envio de email');
gracias.