Validar se e-mail existe

Delphi

03/02/2004

Gostaria de validar se o conteudo do campo é um e-mail, e se este e-mail e existe.

OBS. Uso Delphi 7

Agradeço,

Carlos


Cgil

Cgil

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

03/02/2004

Saber se o e-mail existe eu acho meio difícel..

eu valido os e-mail´s assim:

procedure TUtilitario.ValidaEmail(email: String);
begin
  if email <> ´´ then
   if pos(´@´, email) = 0 then
     raise EDadoInvalido.Create(email + ´ não é um e-mail válido!´);
end;



GOSTEI 0
Lucas Silva

Lucas Silva

03/02/2004

Corrigindo o código ai.
procedure TForm1.ValidaEmail(email: String);
begin
  if email <> ´´ then
   if pos(´@´, email) = 0 then
     ShowMessage(email + ´ não é um e-mail válido!´);
end;



GOSTEI 0
POSTAR