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