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:  TORPEDO
Postada em 2/10/2003 por ^HEAVY-METAL^            
Op's!!!! Essa eu achei no NewsGroup e achei interessante colocar aqui para vcs!!!! Não Vamos esquecer dos créditos ao autor!!!!!!

=============================
Leandro Carvalho
lean~dro@dannus.com.br
=============================

Verificando o tamanho

strTitulo ="Titulo da mensagem"
strTitulo ="Você recebeu uma mensagem SMS"
intTamanho= Len(StrTexto)
if intTamanho > 160 then
'Código de envio da mensagem
End if


O próximo passo é criar uma função que elimine toda acentuação, pois alguns celulares não tem a capacidade de exibir caracteres acentuados.

Removendo Acentos

Function RemoveAcento(strExpressao)
Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = "[áàâãäª]"
strExpressao = regEx.Replace
(strExpressao, "a")
RegEx.Pattern ="[ÁÀÂÃÄ]"
strExpressao = = regEx.Replace
(strExpressao, "A")
...
RemoveAcento = strExpressao
End Function

Depois de verificar o tamanho da mensagem e remover os acentos , crie um código que utiliza o componente ASPmail para enviar a mensagem SMS.

Enviando a mensagem SMS

strNumCelular ="9991234"
strCodArea = "11"
strSMSEmail = "@torpedoinfo.com.br"
strEndEmail = strCodArea & strNumCelular & strSMSMail
Set Mailer = Server.Create object ("Persists.MailSender")
Mailer.AddAddress = strEndEmail
Mailer.Body = RemoveAcento (strTexto)
Mailer.Send

Galera, vale ressaltarmos que o envio de torpedos são apenas para celulares cadastrados no www.torpedoinfo.com.br.

Valeu Marcos, Eliana e Ricardo!!!!!!!

Dica tirada de www.aspbrasil.com.br

T+,
 


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