Guest Danilo Rangel Postado Novembro 22, 2004 Denunciar Share Postado Novembro 22, 2004 alguém tem Script em qualquer linguagem para envio de torpedos para celular de qualquer operadora, vi um muito interessante em http://www.biasoli.com/ Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Deividy Postado Novembro 22, 2004 Denunciar Share Postado Novembro 22, 2004 tem um aqui dentro desse site mais você tem que dar uma procuradahttp://www.superasp.com.br/ Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 serraventura Postado Fevereiro 22, 2005 Denunciar Share Postado Fevereiro 22, 2005 Mandando SMSArtigo em ASP para mandar SMS por Fernando Marques. 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 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 -------------------------------------------------------------Isso q esta no SuperASP "Para isso basta seguir um formato como numero@operadora.com.br"Acho q uma questão interessante aqui seria o seguinte....não necessariamente a operadora use seu dominio neste formato...ela poderia usar por ex: oiconnect.com.br ao invés de oi.com.br para envio de SMS......então como saber qual dominio ela usaria?alguém tem mais informações sobre esse assunto??valeu! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Danilo Rangel
alguém tem Script em qualquer linguagem para envio de torpedos para celular de qualquer operadora, vi um muito interessante em http://www.biasoli.com/
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.