Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zerocall

Envio de SMS para celular

Recommended Posts

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"><!--functionMM_validateForm() {/v2.0var i,objStr,field,theCheck,atPos,theNum,colonPos,min,max,errors='';for (i=0; i<(MM_validateForm.arguments.length-2); i+=3) {objStr = MM_validateForm.arguments[(navigator.appName == 'Netscape')?i:i+1];if ((objStr.indexOf(document.layers[')==0 && document.layers==null)||(objStr.indexOf('document.all[') ==0 && document.all ==null))objStr = 'document'+objStr.substring(objStr.substring(0,objStr.lastIndexOf('.')).lastIndexOf('.'),objStr.length); //fix layer ref if not suppfield = eval(objStr);field.name = (field.name)?field.name:objStr;theCheck = MM_validateForm.arguments[i+2];if (field.value) { //IF NOT EMPTY FIELDif (theCheck.indexOf('isEmail') != -1) { //CHECK EMAILatPos = field.value.indexOf('@');if (atPos < 1 || atPos == (field.value.length - 1))errors += '- '+field.name+' must contain an e-mail address. ';} else if (theCheck != 'R') { //START NUM CHECKStheNum = parseFloat(field.value);if (field.value != ''+theNum) errors += '- '+field.name+' must contain a number. ';if (theCheck.indexOf('inRange') != -1) { //CHECK RANGEcolonPos = theCheck.indexOf(':');min = theCheck.substring(8,colonPos);max = theCheck.substring(colonPos+1,theCheck.length);if (theNum < min || max < theNum) //bad rangeerrors += '- '+field.name+' must contain a number between '+min+' and '+max+'. ';} } }else if (theCheck.charAt(0) == 'R') errors += '- '+field.name+' is required. ';}if (errors) alert('The following error(s) occurred: '+errors);document.MM_returnValue = (errors == '')}//--></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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.