Evite aborrecimento com Mail Delivery Subsystem em seu site

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 Rafael Martins de Ascenção
' Email: iamaz@ig.com.br - ICQ: 118036283
'--------------------------------------------------------------------

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.

Peço que enviem as atualizações para o meu email (iamaz@ig.com.br) para poder modificar esta função aqui neste site. Sempre colocando os nomes dos autores.

Esta matéria foi postada originalmente no ASP4Developers por Rafael Martins de Ascenção (site), que na época era "também conhecido como Iamaz do news do FX. Programador ASP, ColdFusion. ". Hoje, vai saber...