sms

[allan.web 0]

Ai galera... alguem sabe como posso mandar SMS para celulares da VIVO??... se possivel usando o CDONTS... procurei mas não achei muita coisa a respeito até agora.... se alguem puder me ajudar agradeço muito...desde ja agradeço... :)

[gastao 0]

acho q nao tem como nao....

[diego_sl 0]

sei q tem como mandar...só não sei como...pq no site www.jacare.cjb.net ele tem um sistema q manda...agora vai sabe como o cara fez akilo,hehe

[Gogumelo 0]

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 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 tente isso :lol: