Fórum email #263176
23/12/2004
0
Como faço para fazer com que a aplicação verifique se um dederminado email existe ! Mais ow menos assim, daniel@msn.com ai ele vai lá no servidor smtp e verifica se existe este dominio !
Dangardenal
Curtir tópico
+ 0
Responder
Posts
23/12/2004
Sremulador
Function VerificaMail(MAIL: string): Boolean;
function VerificaMail(MAIL: string): Boolean;
var
I, Q: integer;
M: String;
begin
M:= ´´;
Q:= 0;
Result:= False;
for I:= 1 TO LENGTH(MAIL) do begin
M:=Copy(MAIL, I, 1);
if M <> ´@´ then
Q:= Q + 1;
if Q = LENGTH(MAIL) then
result:= true;
end;
end;
acho que isso resolve
function VerificaMail(MAIL: string): Boolean;
var
I, Q: integer;
M: String;
begin
M:= ´´;
Q:= 0;
Result:= False;
for I:= 1 TO LENGTH(MAIL) do begin
M:=Copy(MAIL, I, 1);
if M <> ´@´ then
Q:= Q + 1;
if Q = LENGTH(MAIL) then
result:= true;
end;
end;
acho que isso resolve
Responder
Gostei + 0
23/12/2004
Sremulador
desculpe postei errado mas você pode fazer uma função que caso retorne o cod de erro x então o problema e no domínio (depende do provedor pois nem todos retornam esta informação de imediato)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)