USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

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


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página