como capturar una excepcion al enviar mail smtp indy gmail

[Casimiro Noteví]

Entonces, si salta la excepción, ¿cuál es el problema?

[martini002]

LOL, no me entiendes

Código Delphi [-]
try
    idSMTP1.Send(IdMessage1);
    ShowMessage('Mensaje enviado exitosamente!');
    
    //hasta aqui perfecto, pero cuando no exista conexion a internet
    //saltara la excepcion, entonces quiero que siga intentando hasta que halla conexion a internet
    //y entonces pueda enviar el correo
    //pero no quiero que cuando no exista conexion a internet salte un mensaje
    //porque estas son tareas de mantenimiento y no deber interrumpir la interfaz

  except
     on E: Exception do

        //la cuestion es que cuando salta la excepcion no toca esta linea,
        //por eso escribo aqui, a ver como saben ustedes capturar esto :/

        ShowMessage('Error al enviar mensaje!');//Esto nunca se muestra cuando salta la excepcion de timeout por ejemplo    
  end;

[[movorack]]

Hola,

Podrías hacer una función que se encargue de enviar el correo y manejar la excepción y cada vez que falle reintentar el envío.

algo así:

Código Delphi [-]
const
  MaxIntentos = 5;

..

function EnviarCorreo(var CanIntentos : Byte) : Boolean;
begin
  try
    //Codigo para envio
    result := true;
  except
    if CanIntentos < MaxIntentos then
      result := false
    else
      raise exception.create('Mensaje de error');
  end;
end;

..

//y dentro de tu función de envío cambiar el simple send por algo asi...

procedure TuFuncionDeCorreo;
  var
    CanIntentos : Byte;
begin
  
  ..
  
  CanIntentos := 0;
  while not EnviarCorreo(CanIntentos) do
    Inc(CanIntentos);

  ..

end;

[martini002]

Gracias Movorack,

me parece una solución buena,
dejame intentar hacer algo con eso y te cuento
como me va.

Saludos