Mandando SMS

A maioria das operadoras de telefonia
disponibiliza um serviço chamado SMS Mail que
torna possivel enviar mensagens para qualquer celular
digital através de qualquer cliente de e-mail.
Para isso basta seguir um formato como numero@operadora.com.br.
Por ex: para enviar uma mensagem a um celular da Telesp
que tenha um numero ( 11 ) 999-1234 é só
escrver um e-mail para 119991234@torpedoinfo.com.br.
Repare que o código tb é incluido. Mas
lembre-se que por padrão não pode ultrapassar
de 160 caracteres.

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