|
|
|
|
|
Dicas
|
|
ASP - Active Server Page (Miscelâneas)
|
|
|
Título da Dica: Evite aborrecimento com Mail Delivery Subsystem em seu site
|
|
|
|
Postada em 16/10/2003 por ^HEAVY-METAL^
Quem já teve experiência de enviar emails para usuários cadastrados em um site, já teve problemas com o famoso Mail Delivery Subsystem.
Nunca vamos resolver totalmente esse problema, mas podemos amenizar.
Abaixo, escrevi uma função que conserta a maioria dos erros dos usuários.
<% '-------------------------------------------------------------------- ' limpaemail ' Função que conserta a maioria dos erros dos usuários na hora de digitar um email ' Criado por Manuel Sansoni ' Email: manuelsansoni@uol.com.br '--------------------------------------------------------------------
function limpaemail(email) dim aux
aux = replace(email,",",".") aux = replace(aux,"@.","@") aux = replace(aux,".@","@") aux = replace(aux,"@globo.com.br","@globo.com") aux = replace(aux,"@globo.br","@globo.com") aux = replace(aux,"@aol.com.br","@aol.com") aux = replace(aux,"@globomail","@globo") aux = replace(aux,"@hotmail.com.br","@hotmail.com")
if right(aux,7) = "@ig.com" then aux = replace(aux,"@ig.com","@ig.com.br") elseif right(aux,6) = "@globo" then aux = replace(aux,"@globo","@globo.com") elseif right(aux,8) = "@hotmail" then aux = replace(aux,"@hotmail","@hotmail.com") elseif right(aux,8) = "@zipmail" then aux = replace(aux,"@zipmail","@zipmail.com.br") elseif right(aux,15) = "@cidadeinternet" then aux = replace(aux,"@cidadeinternet","@cidadeinternet.com.br") end if
if left(aux,4) = "www." then aux = replace(aux,"www.","") elseif left(aux,3) = "ww." then aux = replace(aux,"ww.","") end if
limpaemail = aux
end function %>
Claro que essa função pode ser personalizada acrescentando outros erros mais comuns.
T+,
|
|
|
|
|