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

[JXJ]

Pues retomando lo que dice. Lepe.

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

He tenido la curiosidad de hacer lo que dices AgAg4, pero hay algunos
problemas que he tenido para dejarlo en paz.
se puede hacer lo que pides.
he aqui algunos de los problemas.


Algunos servidores. de cuando en cuando, el correo que envias tarda en llegar
al servidor. de segundos a minutos.

hay servidores que aunque la cuenta de correo, no exista. reciben el correo
y no dan respuesta de que esa cuenta de correo, no existe. no te mandan
un dalivery notification faillure o similar.


y el codigo puesto solo es una pequeña ayuda,.
al estilo de las ayudas que se dan en el foro, no se tiene el tiempo suficiente para
andar codificando para otro. o unos no quieren compartir, todo el codigo.
si no que prefieren que aprendamos. desde cosas sencillas, pero funcionales.
o como yo que mi nivel es de menos termino medio - hacia abajo.
no podemos poner codigo en poco tiempo, que maneje todas las posibles excepciones.
a un correo bien escrito
Personalmente me tardo.


¿si crees que esos casos, van a pasar donde hay caracteres especiales,?
pues solo codificas.

[AGAG4]

Gracias JXJ por su respuesta, tiene muchísima razón con respecto a sus comentarios sobre el regreso de respuesta por parte del servidor de correo, he investigado un poco y me he percatado que no va hacer muy exacto el monitoreo de envios de EMAILS a Direcciones Incorrectas, pero en fin algo saldrá más preciso.... de ante mano gracias ...

Que tengan buen día.

[S.M.S.]

Yo utilizo la siguiente función que no recuerdo de donde la saqué, pero que funciona perfectamente con los ejemplos de jachguate y de roman

Código Delphi [-]
function ValidEmail(email: string): boolean;
   // Devuelve True si la dirección de email es válida
   const
     // Caracteres válidos en un "átomo"
     atom_chars = [#33..#255] - ['(', ')', '<', '>', '@', ',', ';', 
     ':', '\', '/', '"', '.', '[', ']', #127];
     // Caracteres válidos en una "cadena-entrecomillada"
     quoted_string_chars = [#0..#255] - ['"', #13, '\'];
     // Caracteres válidos en un subdominio
     letters = ['A'..'Z', 'a'..'z'];
     letters_digits = ['0'..'9', 'A'..'Z', 'a'..'z'];
     subdomain_chars = ['-', '0'..'9', 'A'..'Z', 'a'..'z'];
   type
     States = (STATE_BEGIN, STATE_ATOM, STATE_QTEXT,
     STATE_QCHAR, STATE_QUOTE, STATE_LOCAL_PERIOD,
     STATE_EXPECTING_SUBDOMAIN, STATE_SUBDOMAIN, STATE_HYPHEN);
   var
     State: States;
     i, n, subdomains: integer;
     c: char;
begin 
  State := STATE_BEGIN;
  n := Length(email); 
  i := 1;
  subdomains := 1; 
  while (i <= n) do 
    begin
      c := email[i];
      case State of 
         STATE_BEGIN: 
                  if c in atom_chars then
                  State := STATE_ATOM 
                  else if c = '"' then 
                  State := STATE_QTEXT
                  else break;
         STATE_ATOM:
                  if c = '@' then
                  State := STATE_EXPECTING_SUBDOMAIN
                  else if c = '.' then 
                  State := STATE_LOCAL_PERIOD
                  else if not (c in atom_chars) then 
                  break; 
         STATE_QTEXT:
                  if c = '\' then
                  State := STATE_QCHAR 
                  else if c = '"' then
                  State := STATE_QUOTE 
                  else if not (c in quoted_string_chars) then 
                  break; 
         STATE_QCHAR:   
                  State := STATE_QTEXT; 
         STATE_QUOTE:
                  if c = '@' then 
                  State := STATE_EXPECTING_SUBDOMAIN
                  else if c = '.' then
                  State := STATE_LOCAL_PERIOD 
                  else break; 
         STATE_LOCAL_PERIOD:
                  if c in atom_chars then
                  State := STATE_ATOM 
                  else if c = '"' then 
                  State := STATE_QTEXT
                              else break; 
         STATE_EXPECTING_SUBDOMAIN: 
                  if c in letters then
                  State := STATE_SUBDOMAIN 
                  else break;
         STATE_SUBDOMAIN:
                  if c = '.' then
                  begin 
                      inc(subdomains);
                      State := STATE_EXPECTING_SUBDOMAIN
                  end
                  else if c = '-' then 
                  State := STATE_HYPHEN
                  else if not (c in letters_digits) then 
                  break;
         STATE_HYPHEN:
                  if c in letters_digits then
                  State := STATE_SUBDOMAIN
                  else if c <> '-' then break;
      end;
      inc(i);
    end;
  if i <= n then
  Result := False
  else
  Result := (State = STATE_SUBDOMAIN) and (subdomains >= 2);
end;

Saludos.

[johncook]

Muchachos, muchachos... Tanto lío para validar un mail...
Porque mejor no valernos de expresiones regulares, no? En C# no hay q instalar ninguna libreria de terceros para el uso de éstas expresiones... En delphi yo utilizo RegExpr, porque desconozco si existe alguna función nativa del lenguaje...

Código Delphi [-]
 uses RegExpr;
 
procedure TForm1.Button1Click(Sender: TObject);
// Valida la dirección de email en Edit1
begin
  if not ExecRegExpr('[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+',
      Edit1.Text) then begin
    ShowMessage('La dirección de email no es válida');
    Edit1.SetFocus;
  end else
    ShowMessage('La dirección de email es válida');
end;

Les dejo el enlace

[[__hector]]

Puedes conectarte al servidor smtp del dominio al que quieres mandar el mail, y con un par de comandos, puedes saber si esa cuenta existe en dicho servidor. Digo, si te refieres a validar que existe, y no exactamente a validar la sintaxis de la direccion.

[AGAG4]

Muchas Gracias por sus respuestas, estoy tomando en cuenta todas sus opiniones, Que Tengan Buen Día....!!!!

[JXJ]

johncook

Una busqueda rapida, me llevo a sitios

http://anso.da.ru/
http://anso.virtualave.net/

Pero ya estan muertos.

¿¿Cual es el enlace. ??

gracias.