Envio de SMS para celular

zerocall · Agosto 6, 2003

Olá pessoal estou tendo dúvidas de como configurar os scripts para enviarSMS para Celular alguém pode dizer como faço para enviar smspara TCO, Telesp Celular, Rjes, Rs e PrSc todas operadoras da Vivo Celularvou deitar os codigos aqui sem alguem souber configurar:confirma.asp<html><head><%' Dimensionando as constantes.dim denomedim Numerodim mensagemdim erroldim contagemdim NumeroErradodim assuntodim mailpara' Através deste passo recolhemos os dados do formulário' O nome de quem envia:denome = Request.form("DeNome")' O número do celular para onde é enviada a mensagem:Numero = Request.form("NumeroTelemovel")' Isto é para que o número passe de página para página...session("Numero")=Numero' Mensagem a enviarMensagem = Request.form("Mensagem")' Vamos verificar se foi ultrapassado o limite de carateres.' Eu usei 500 pois a Vivo'aceita até 640 caracteres.' Para que o serviço funcione pode-se diminuir de valor...contagem=len(mensagem)' Os valores do goby serão referenciados de seguida.If contagem>=500 Thengoby="0"elsegoby="1"End If' O assunto (Subject)assunto="Mensagem enviada por " & denome & "."' Atribuimos um valor para a constante NBumeroErrado, caso o 'número não comece por 63, 64 ou 65.NumeroErrado="0"'Opera = aos primeiros 2 dígitos do número.OPera=midB(Numero,1,3)'Para o caso o número seja Vivo, operadora do Brasilif OPera=63 thenmailpara=Numero&"@torpedoinfo.com.br"'caso contrárioelse'para o caso seja Vivo, operadora do Brasilif OPera=64 thenmailpara=Numero&"@torpedoinfo.com.br"'caso contrárioelse'Para o caso ser Vivo, operadora do Brasilif OPera=65 thenmailpara=Numero&"@torpedoinfo.com.br"'Caso não seja de nenhum, existe um erro, o número introduzido é errado...elseNumeroErrado="1"end ifend ifend if' Já temos valores para apresentar resultados' Já sabemos se foi ultrapassado o limite de caracteres e se o número ' que foi introduzido está correto.' Se estas duas condições estiverem corretas, ótimo, podemos' prosseguir, caso contrário, teremos que corrigi-las.%></head><body bgcolor="#ffffff" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center" vspace="0" hspace="0"><tr valign="top" align="center"><td><table width="500" border="0" cellspacing="0" cellpadding="0" height="100%"><tr align="center"><td width="600" rowspan="3" height="100%" valign="top"> <font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#022941">Confirmação</font><br><br><%' Caso o goby seja "0", significa que foi ultrapassado o limite de caracteres...if goby="0" then%><table width="100%" border="0" cellspacing="2" cellpadding="2"><tr bgcolor="#022941"><td><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFFFFF"><b>:.Erro</b></font></td></tr><tr><td height="57"><font color="#022941"><font face="Verdana, Arial, Helvetica, sans-serif">Ocampo da mensagem não pode conter mais do que 500 caracteres.</font></font></td></tr><tr bgcolor="#022941"><td><input type="submit" name="Submit3" value=" <<-- Retroceder " onClick="parent.history.back(); return false;"></td></tr></table><%' Caso contrário, goby >< 0, passemos à fase seguinte, número ' correto ou número errado?else' Caso o número esteja errado:if NumeroErrado="1" then%><table width="100%" border="0" cellspacing="2" cellpadding="2"><tr bgcolor="#022941"><td><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFFFFF"><b>:.Erro</b></font></td></tr><tr><td><font color="#022941"><br> <font face="Verdana, Arial, Helvetica, sans-serif">Este serviço só está disponível apenas para redes Brasileiras, <b>Tco</b>(63 xxx xx xx), <b>Vivo</b>(64 xxx xx xx), <b>Vivo </b>(65 xxx xx xx).<br></font></font><font color="#022941" face="Verdana, Arial, Helvetica, sans-serif">Onúmero que você introduziu (</font><font color="#022941"><font face="Verdana, Arial, Helvetica, sans-serif" size="3"><%=session("Numero")%></font></font><font color="#022941" face="Verdana, Arial, Helvetica, sans-serif">),não é de nenhum operador, deste modo, nãonos é possível entregar a sua mensagem.</font><br></td></tr><tr bgcolor="#022941"><td><input type="submit" name="Submit33" value=" <<-- Retroceder " onClick="parent.history.back(); return false;"></td></tr></table><font color="#022941"> </font><%' Se chegamos a este ponto, está todo correto, o utilizador pode ' agora confirmar o envio ou então voltar para corrigir algo.Else' agora criamos mais um "form" com "Hidden Fields" isto porque a componente que está instalada'no servidor que eu estou só aceita dados já atribuídos ou através de'um "form", não aceita variáveis...%><form method="post" action="SMSsend.asp" name="SMSsend"><table width="100%" border="0" cellspacing="2" cellpadding="2"><tr bgcolor="#022941"><td><font color="#022941"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFFFFF">:.Confirme se é isto que pretende enviar</font></b></font></td></tr><tr><td><font face="Verdana, Arial, Helvetica, sans-serif" color="#022941">DE:<br><font size="2"> <%=denome%> </font><br><input type="hidden" name="denome" value="<%=denome%>"></font></td></tr><tr><td><font face="Verdana, Arial, Helvetica, sans-serif" color="#022941">Para: <br><font size="2"> <%' Aqui dizemos qual aOperadora móvel em questão.Response.Write session("Numero")if MidB(session("Numero"),1,3)=63 thenResponse.Write(" ( VIVO )")end ifif MidB(session("Numero"),1,3)=64 thenResponse.Write(" ( VIVO )")end ifif MidB(session("Numero"),1,3)=65 thenResponse.Write(" ( VIVO )")end if%></font><br><input type="hidden" name="NomePara" value="<%=session("Numero")%>"><br><input type="hidden" name="emailpara" value="<%=mailpara%>"></font></td></tr><tr><td><font face="Verdana, Arial, Helvetica, sans-serif" color="#022941"><input type="hidden" name="assunto" value="<%=assunto%>"></font></td></tr><tr><td><font face="Verdana, Arial, Helvetica, sans-serif" color="#022941">Mensagem:<br><font size="2"> <%=Mensagem%></font><br><input type="hidden" name="Mensagem" value="<%=Mensagem2%>"></font></td></tr><tr bgcolor="#022941"><td><input type="submit" name="Submit" value=" Sim, enviar. "><input type="submit" name="Submit32" value=" Não, retroceder. " onClick="parent.history.back(); return false;"></td></tr></table></form><p> <%' Fechamos os IF's...end ifend if%></td></tr><tr></tr><tr> </tr></table></td></tr></table><br></body></html>--------------------------------------------------------------------------------------------------default.htm<Html><Head><script laguage="JavaScript"></script></head><body bgcolor="#ffffff" link="#022941" vlink="#FFFFFF" alink="#FFFFFF"><table width="790" border="0" cellspacing="0" cellpadding="0" height="100%" align="center" vspace="0" hspace="0"><tr align="center"><th height="38" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#022941">Serviçode mensagens escritas através de e-mail</font></th></tr><tr align="center"><td height="306" valign="top"><form method="post" action="confirma.asp" name="SMS" onSubmit="MM_validateForm('document.SMS.DeNome','document.SMS.DeNome','R','document.SMS.NumeroTelemovel','document.SMS.NumeroTelemovel','RinRange910000000:969999999','document.SMS.Mensagem','document.SMS.Mensagem','R');return document.MM_returnValue"><table border="0" cellspacing="2" cellpadding="2"><tr bgcolor="#022941"><td width="500"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFFFFF">:.SMS - Serviço Mensagens Escritas</font></b></td></tr><tr valign="top"><td><p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#022941">De:</font><br> <input type="text" name="DeNome" size="40" maxlength="20"><br><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#022941">Para(nº de telemóvel):</font><br> <input type="text" name="NumeroTelemovel" size="9" maxlength="9"><br><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#022941">Mensagem:</font><br> <textarea name="Mensagem" cols="40" rows="4"></textarea></p></td></tr><tr bgcolor="#022941"><td><input type="submit" name="Submit" value=" Enviar "><input type="reset" name="Submit2" value=" Limpar "></td></tr></table></form></td></tr><tr align="left"><td height="33"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#022941">Por:<a href="mailto:josebarros@netytal.pt">José Barros</a></font></td></tr></table><br></body></html>---------------------------------------------------------------------------------------------------sendSMS.asp<html><head><title>SMSsend.asp</title></head><body bgcolor="#ffffff" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center" vspace="0" hspace="0"><tr valign="top" align="center"><td><table width="500" border="0" cellspacing="0" cellpadding="0"><tr><td width="600" height="100%" valign="top">s</td></tr><tr><td width="600" height="100%" valign="top"><p><font color="#022941"><br><%Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "Nome"Mailer.FromAddress= "@torpedoinfo.com.br"Mailer.RemoteHost = "O seu host: ex.: torpedoinfo.com.br "Mailer.Priority = 1Mailer.AddRecipient Request.Form("NomePara"), Request.Form("emailpara")Mailer.Subject = Request.Form("assunto")Mailer.BodyText = Request.Form("mensagem")if Mailer.SendMail thenmsgenv=1elsemsgenv=0errol=Chr(34)& Mailer.Response &Chr(34)end ifif msgenv=1 then%> <br><font face="Verdana, Arial, Helvetica, sans-serif" size="3"> A suamensagem foi enviada com sucesso para o n.º <%=session("Numero")%>.<br>Aproveite também para <a href="default.htm"><font size="3"><u>enviar</u></font></a>a outra pessoa.<br></font><font color="#022941"><%else%></font></font></p><form method="post" action="mailto:zerocall@pop.com.br?subject: Erro no envio de SMS" name="SMS2"><font color="#022941"><font face="Verdana, Arial, Helvetica, sans-serif" size="3">Ocorreuum erro ao enviar a mensagem.<br>O erro foi:</font><font color="#022941"><%=errol%></font><font face="Verdana, Arial, Helvetica, sans-serif">.<br>Se este erro persistir reporte-o ao webmaster, usando o botãoque se segue.<br>Desde já obrigado.<br><input type="hidden" name="Erro" value="<%=errol%>"><br><input type="submit" name="Submit" value=" Notificar webmaster "></font>.</font> <br></form><%end if' Muito importante !!! convém ter isto no final, pois assim acaba com qualquer sessão !! e liberta o servidor...session.abandon%></td></tr></table></td></tr></table><br></body>se alguem ai souber como configurar ai por favor diga aqui para a gente possa aprender.

chacalAM · Agosto 6, 2003

Cara olhe está matéria:Envio de SMS com ASPMail.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 também é 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 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

Entrar

Arquivado

Envio de SMS para celular

Recommended Posts

zerocall 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

chacalAM 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante