Como Saber si una Dirección de Correo es Válida????

[JXJ]

¿¿de que este bien escrita. por ejemplo [email protected] y no
Cuienta@hotmail,com??

¿o de que esa cuenta de correo este activa en el servidor. del correo de
destinatario?

[JXJ]

Esto es para aeguranos que la sintaxis de la cuenta de correo este
bien escrita. como el primer ejemplo que de di.

Código Delphi [-]
 
function IsValidEmail(const Value: string): Boolean;
 
function CheckAllowed(const s: string): Boolean;
var i: Integer;
begin
Result:= false;
for i:= 1 to Length(s) do
if not (s[i] in ['a'..'z', 
'A'..'Z', 
'0'..'9', 
'_', 
'-', 
'.']) then Exit;
Result:= true;
end;
 
var
i: Integer;
NamePart, ServerPart: string;
begin
Result:= False;
i:=Pos('@', Value);
if i=0 then Exit;
NamePart:=Copy(Value, 1, i-1);
ServerPart:=Copy(Value, i+1, Length(Value));
if (Length(NamePart)=0) or ((Length(ServerPart)<5)) then Exit;
i:=Pos('.', ServerPart);
if (i=0) or (i>(Length(serverPart)-2)) then Exit;
Result:= CheckAllowed(NamePart) and CheckAllowed(ServerPart);
end;

el codigo fuente de un pryecto de muestra. por si no fui claro.
http://greatis.com/delphicb/tips/lib...checkemail.zip

[jachguate]

No he probado "en vivo" pero me parece que el algoritmo fallaría con algo como:

[email protected].

Donde evidentemente el último punto está de mas.

Hasta luego.

[marcoszorrilla]

Pues yo lo acabo de probar y falla, pues me da valida una dirección de correo terminada en .

Un Saludo.

[JXJ]

Claro que falla. lo que revisa es si la dirección esta bien escrita.
en las primeras partes antes y despues de la @
[email protected]. y eso por que hay ciertas formas de enviar el correo
por ejemplo, algunos componente o dll, para enviar correo
solo admiten o ( , ) o ( ; ) o ambas, indy creo que permite usar dos formas
de separar los destinatarios por ( , ) o ( ; ), no faltara quien crea mejor usar un ( . )
--}
si saben como solucionar ese defecto. decirlo. o los otros posibles que al separar
los destinatarios se vaya un dedo de may se agregen ( ,,) o ( ;; ) o semejantes.

aparte, AgAg4 no dice si es solo verificar, la sintaxis o se refiere a revisar si
la cuenta de correo esta activa.

[roman]

¿Y qué tal si escribo una dirección como ésta?

"Informático Román %&$" <[email protected]>

// Saludos

[[Lepe]]

Personalmente y con todo el afán del mundo para convertir este hilo en un debate.... creo que todo lo expuesto aqui es excesivo.

"Por favor, introduzca un e-mail válido!!!" y listo...... sin problemas, si la persona quiere enviar/recibir "lo que sea" se esforzará en escribir el correo bien.

Es bueno realizar algunas comprobaciones, que haya un nombre, la @ y despues algo más. Pero ya está. No nos compliquemos la vida.

Se envia el correo, y si se produce un fallo, (porque el correo no existe) pues se informa a posteriori.

Un saludo

[AGAG4]

Pues lo que quiero es que sea Valida, es decir, que la Cuenta de Correo este activa en el servidor del correo del destinatario....

Ya ven que cuando envian un EMAIL con un correo Incorrecto del Destinatario, al mandarlo te dice el Servidor de Correo, Cuenta de Correo No Existe....

Gracias por sus respuestas....