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
Curtidas 0
Respostas
Sremulador
23/12/2004
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
GOSTEI 0
Sremulador
23/12/2004
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)
GOSTEI 0