enviar SMS

[xanburzum 169]

Algumas operadoras aceitam Simple Mail Transport Protocol (SMTP), uma interface email para enviar mensagens SMS curtas. Normalmente, o endereço de e-mail será o número do aparelho celular ou pager número de identificação, juntamente com domínio especial da operadora. Por exemplo, um telefone da AT & T terá um endereço de email 551992978286@mobile.att.net. Os usuários devem prestar atenção , porque algumas operadoras, como a Pacific Bell, inclui o número 1 antes do número de telefone (1 é o código do país de acordo com o Plano de Numeração), no endereço de correio electrónico para o dispositivo.

 

sms.inc

 

<%

'Definir variáveis globais

SMTP_SERVER = "mail.dominio.com"
SMTP_SERVER_PORT = 25

Public Function SendSMS(msgToEmailAddress, msgFromEmailAddress, msgSubject, msgText)
	

	' AT&T
	If (InStr(1, msgToEmailAddress, "mobile.att.net") > 1) Then
		maxLength = 140
	' Nextel
ElseIf (InStr(1, msgToEmailAddress, "messaging.nextel.com") > 1) Then
		maxLength = 280
	' Sprint PCS
ElseIf (InStr(1, msgToEmailAddress, "messaging.sprintpcs.com") > 1) Then
		maxLength = 100
	' Default Length
Else
		maxLength = 140
	End If
	
'Normalmente, há pelo menos dois caracteres de delimitador entre o from, subject, 
' texto e na tela do dispositivo móvel.
		

	msgLength = len(msgFromEmailAddress & "  " & msgSubject & "  " & msgText)
	
	
	'Este aqui é para garantir que a mensagem não é mais do que o dispositivo suporta.
	If ( msgLength > maxLength) Then
		' Return false
		SendSMS = false
	Else
		' DevMailer 
		Set Mailer = CreateObject("Geocel.Mailer")

		' SMTP server
		Mailer.AddServer SMTP_SERVER, SMTP_SERVER_PORT
					
		' From
		Mailer.FromAddress = msgFromEmailAddress
			
		' Subject
		Mailer.Subject = msgSubject

		' Definir tipo de conteúdo para Somente texto
		Mailer.ContentType = "text/plain; charset=us-ascii"
	
		' body
		Mailer.Body = msgText
	
		' endereço
		Mailer.AddRecipient msgToEmailAddress, ""
	
		' Send It
		SendSMS = Mailer.Send()
	End If
End Function
%>

O sendsms.asp vai puxar nessa função e enviar uma mensagem de texto.

 

<!--#include virtual="/sms.inc"-->
<%
msgTo = "551992978286@messaging.sprintpcs.com"
msgFrom = "xan@dominio.com"
msgSubject = "teste de mensagem"
msgText = "First text-message!!"

'Attempt to send the sms
IsSent = SendSMS(msgTo, msgFrom, msgSubject, msgText)

if IsSent then
	Response.Write("SMS enviado com sucesso para " & msgTo)
else
	Response.Write("SMS não enviada com sucesso a " & msgTo)
end if
%>

Embora essa interface desenha uma solução rápida , o envio de SMS via e-mail ainda tem muitos inconvenientes oculto, incluindo velocidade, garantia, verificação de erros, características e consistência. Com o seu design original, e-mail não se destina a tornar-se um sistema rápido. Como resultado, a maioria das mensagens de texto que são enviados através de email tem problemas de latência que varia de 1 minuto a 2 horas. Esta estimativa também assume que um servidor SMTP não vai cair.

 

<%


'  SMS object
Set sms = Server.CreateObject("SimplewireSMS.SMSRequest")

'Defina a mensagem de solicitação para enviar
sms.setSendPage

' propriedades
sms.setSynch(True)
sms.msgFrom = "Xan"
sms.msgPin = "551992978286"
sms.msgCallbackNum = "551992655576"
sms.msgText = "Mensagem SMS atraves de ASP!"

' Enviar request
Set smsResponse = sms.send

' chekando Erro
If smsResponse.isSuccess = False Then
	Response.Write("SMS não foi enviado com sucesso. ")
	Response.Write("Error Code: " & smsResponse.errorCode & " - " & smsResponse.errorDesc)
Else
	Response.Write("SMS foi enviado com sucesso.")
End If

' Cleanup
Set req = Nothing
Set res = Nothing
%>

[PF Webmaster 0]

só funciona nos USA num é?

[xanburzum 169]

precisa ter o SimplewireSMS instalado

[Jefferson Timbó 0]

precisa ter o SimplewireSMS instalado

 

Amigo, e como eu faço pra enviar sms com operadora do brasil??

E como faço para conserguir esse arquivo SimplewireSMS, para eu instalar no meu servidor?

[xanburzum 169]

algumas operadoras do Brasil naum aceitam msgs da internet, exceto pela propria pagina da operadora

uma outra ferramenta é o usar o servidor C4sms.com , vocêpode enviar de mensagem de texto SMS para mais de 170 paises.No servidor, ele só usa o objeto XMLHTTP o que por padrão é instalado em todos os Servers.Ou também o smslib

outro que ja usei foi o ASPSMS