Fonction asp pour vérifier si une adresse mail est valide

Techniques

Cette section permet de regrouper un ensemble de techniques ou de scripts qui ont l'originalité d'arriver à résoudre une difficulté avec le moindre effort ou qui sont particulièrement efficaces...

•  Script: vérifier si une adresse mail est valide :

Avant l'envoi d'un mail pour éviter une surcharge inutile sur le serveur, il est possible de se servir d'une simple fonction ASP pour vérifier que le format d'une adresse mail est bien valide. Dans un process plus poussé nous pourrions aussi être amené à interroger le serveur smtp correspondant pour savoir si l'adresse existe ou non.

        
<%
function IsValid(email)
  IsValid = true
  dim names, name, i, c
  names = Split(email, "@")
  if UBound(names) <> 1 then
   IsValid = false
   exit function
  end if
  for each name in names
   if Len(name) <=  0 then
    IsValid = false
    exit function
   end if
   for i = 1 to Len(name)
    c = Lcase(Mid(name, i, 1))
letters="abcdefghijklmnopqrstuvwxyz_-."
   if InStr(letters, c) <= 0 and not IsNumeric(c) then
     IsValid = false
     exit function
    end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
    IsValid = false
    exit function
   end if
  next
  if InStr(names(1), ".") <= 0 then
   IsValid = false 
   exit function
  end if
  i = Len(names(1)) - InStrRev(names(1), ".")
  if i <> 2 and i <> 3 then
   IsValid = false
   exit function
  end if
  if InStr(email, "..") > 0 then
   IsValid = false
  end if
 end function
%>