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

[JXJ]

Claro que falla. lo que revisa es si la dirección esta bien escrita.
en las primeras partes antes y despues de la @
juanperez@servidor.com. 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 %&$" <roman@gmail.com>

// 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....

[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