(Resolvido)Nova duvida a respeito de Emails!

[Douglas Soares]

Fiz tipo uma newsletter para enviar mensagens para clientes, com uma imagem oferecendo atualizações... porem tem vez que ele para no meio do processo e não da erro!, fiz em modo de execução e peguei o danado do erro! ele dá que o email foi rejeitado!

Teria como eu pular para o proximo se um email for rejeitado?

p.s. uso IdSmtp e IdMessage!

Obrigado

Editado Agosto 19, 2009 por Douglas_Soares

[Douglas Soares]

Somente com Try Except eu não conseguia resolver meu problema, então eu coloquei tambem on Error, agora sim, segue o código:

try
................
except
On E:Exception do
begin
//ShowMessage('Erro: ' + E.Message);
frmEmailSuporte.cdsClientes.Edit;
frmEmailSuporte.cdsClientes.FieldByName('ENVIOEMAIL').Value := 1;
if frmEmailSuporte.cdsClientes.ApplyUpdates(0) > 0 then
begin
ShowMessage('Erro ao Gravar!');
Abort;
end;
frmEmailSuporte.cdsClientes.Next;
Synchronize(Execute);
end;
end;