|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
