Fórum Tratamento de erros no envio de email #334091

Oi pessoal,

Estou fazendo uma aplicação que, dentre outras características, envia emails usando o Indy 9.0.19 no Deliphi 7.

Consigo enviar alguns emails sem problemas, só que, quando algo anormal acontece, a aplicação pára e me mostra uma janela de erro. Alguns exemplos de mensagens são:

-------------------------------------------------
Quando diversos emails são enviados:
´Project Agenda.exe raised exception class EIdProtocolReplyError with message ´socom3.uol.com.br Error: too many connections from 201.44.201.83

Email não existente:
´Project Agenda.exe raised exception class EIdProtocolReplyError with message ´<rwaller12345@uol.com.br>: Recipient address rejected: User unknown in relay recipient table

Dominio não existente:
´Project Agenda.exe raised exception class EIdProtocolReplyError with message ´<rwaller@uol12345.com.br>: Recipient address rejected: Domain not found
-------------------------------------------------

Gostaria que esta janela não fosse mostrada, e sim me informar, de preferência com o erro, para que o usuário possa corrigí-lo.

Também gostaria de entender o que significa a primeira mensagem de erro e como evitá-la (too many connections from 201.44.201.83). Aqui uso Vírtua e pop3/smtp da Uol.

A função que estou utilizando é:
-------------------------------------------------
function TfrmEnviaEmail.Envia(Sender:TObject; Para:String):Boolean;
var
Mensagem: TIdMessage;

begin
Mensagem := TIdMessage.Create(Self);

if (Para <> ´´) then begin
idPOP31.UserName:=idSMTP1.UserName;
idPOP31.Password:=idSMTP1.Password;

// Define os parâmetros da mensagem
Mensagem.ContentType := ´text´;
Mensagem.Recipients.Add.Address := Para;
Mensagem.From.Text := ´rwaller@uol.com.br´ ;
Mensagem.Subject := ´[Teste] Envio pela aplicação´;
Mensagem.Body.AddStrings(mMensagem.Lines);
Mensagem.Headers.Values[´X-Library´] := ´´;

// Faz a conexão com o servidor e envia a mensagem
if not (IdSMTP1.Connected) then IdSMTP1.Connect();

idPOP31.Connect;

Envia:=False;
Try
IdSMTP1.Send(Mensagem);
Except
End;

if IdSMTP1.Connected then Begin
Envia:=True;
IdSMTP1.Disconnect;
End;

if IdPOP31.Connected then
IdPOP31.Disconnect;
End;

Mensagem.Free;
end;
-------------------------------------------------

Creio que já pesquisei os todos os tópicos deste fórum sobre este assunto. Inclusive foi por isso que instalei a última versão do Indy. Quanto à conectar no Pop antes do Smtp (dica de outro tópico), creio que não vi diferença.

Gostaria MUITO que pudéssem me ajudar, se for possível.

Obrigado :)

Abraços,
Rudolf