Envio de Msg de texto pra celular

[silas_i 0]

Alguém, tem um exemplo de envio de msg de texto para celular BCP ?Obrigado

[asp.net 0]

Eu sei que no site superasp.com.br tem um código para isto, dá uma busca lá.

[silas_i 0]

Valeu !

[silas_i 0]

Verificando o tamanho ifstrTitulo ="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 FunctionDepois 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 SMSstrNumCelular ="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