Enviar SMS

[AfpSistemas]

Estimados:

 

Me veo en la necesidad de que mi aplicación envíe un recordatorio vía SMS (  Aclaro que no es publicidad ¡! ), alguien tuvo que implementarlo ¿?

 

Estuve navegando y hay muchos sitios que ofrecen el servicio, pero no estoy seguro de poder integrarlo desde la aplicación….

 

Saludos y gracias,

 

Fernando.

 

PD: Es para las telefónicas de Argentina…

[edgar suarez kummers]

http://www.safemailservices.com/index.html?hop=netman114

Es de pago, pero poco dinero y solamente hay que enviar algún SMS al menos cada seis meses, de otra forma suspenden la suscripción.

Please look my LINKS --- What I offer ---

CLICK my (mi) software offer (oferta)

CLICK para leer acerca del generador de aplicaciones para PLC

CLICK to read about the PLC software generator

edgar suarez kummers

ingeniero electrónico

matrícula 11714

diseño de software y ensamble de cuadros de control

cel Colombia: 3176992038

tel fijo Bogotá: 3126100

[AfpSistemas]

Edgar:

 

Gracias por la Info pero por lo que puedo ver en la página es para enviar correos y lo que necesito es enviar mensajes de texto a celulares ( SMS )…

[edgar suarez kummers]

Ya entiendo, yo los he enviado a celulares de la siguiente forma:

Se envía igual que un correo normal, pero por ejemplo, acá en Colombia era así:

31153...@comcel.com

el primero es el número del celular y lo que hay después de la @ es el operador.

Obviamente el celular receptor tiene que tener autorizada la llamada porque él es quien paga.

No necesitas para nada el VFP, y el número que te he puesto es un ejemplo, era el de mi hija que se ha graduado hace 3 días en la Universidad ...

Please look my LINKS --- What I offer ---

CLICK my (mi) software offer (oferta)

CLICK para leer acerca del generador de aplicaciones para PLC

CLICK to read about the PLC software generator

edgar suarez kummers

ingeniero electrónico

matrícula 11714

diseño de software y ensamble de cuadros de control

cel Colombia: 3176992038

tel fijo Bogotá: 3126100

[ZeRoberto]

Edgar vives en Colombia o España.

Saludos

[edgar suarez kummers]

Buenas ZeRoberto:

Así como suenas a "chino" en el Perú, o sea tienes ascendencia Japonesa, mis padres eran extranjeros en Colombia, Suárez de Asturias (Grado, "los moscosos", al lado de Oviedo) y Kummers originario de Breslau, antes Alemania y hoy Polonia, aunque mi madre nació en Canal Zone, (Colón, Panamá), siendo su Padre gringo nacido en Breslau, pero criado en New York, pero mi bisabuela era Británica de apellido Carrs ... menudo embrollo.

Vivo en Colombia, aunque he vivido (gracias al dinero que tuvo mi padre, pero que ya no hay), en Deutschland, Österreich, España, United States and Canada.

No soy buen programador de VFP como el resto del grupo, pero aún así hago software, sobre todo para respaldo de las aplicaciones de autómatas (PLC). O sea circuitos por software que reemplazan a circuitos electrónicos.

Sí, vivo en Colombia, el único que quedó en Colombia, junto a mi esposa y a mi hija. Todos los demás viven en España, La France y United States, algunos son alemanes y el resto somos españoles, unos de nacimiento y otros por "derecho de tierra".

Please look my LINKS --- What I offer ---

CLICK my (mi) software offer (oferta)

CLICK para leer acerca del generador de aplicaciones para PLC

CLICK to read about the PLC software generator

edgar suarez kummers

ingeniero electrónico

matrícula 11714

diseño de software y ensamble de cuadros de control

cel Colombia: 3176992038

tel fijo Bogotá: 3126100

[ZeRoberto]

A que bien, tienes un árbol genealógico muy diverso, faltan los Merovingios en tus venas jajaja.

Saludos

[Rafael Mellado]

Hola Fernando en España, nosotros utilizamos  Arsys.es  que tiene un producto de envío de SMS, es de pago.

Los SMS se envían desde VFP sin problemas.

Saludos

[Luis M.]

Hola Rafael,

Yo también estoy pensando en utilizar los SMS de Arsys, ¿me podrías pasar un ejemplo para utilizarlos con VFP?

Gracias y un saludo,

Luis Martínez.

[eres.u...@gmail.com]

¡Que enredo!

Jajajajaja, tu si "tienes mundo en la sangre"


Victor Navarro
3008102508

ICQ 279 364 380
Face: +573008102508
MSN: eres_u...@hotmail.com
Mail: eres_u...@yahoo.es
Whatsapp: +573008102508
Skype: eres_un_vago

[eres.u...@gmail.com]

Arsys se puede utilizar con móviles de Colombia (Tigo, Movistar, Uff, Claro, UNE, ETB, Metrotel)

Gracias

[sixtored]

Yo estoy utilizando www.chesms.com.ar es muy facil de implementar en tu aplicacion..

Saludos.

Sixto.!!

[Rafael Mellado]

Hola Luis,

He buscado el programa de hace muchos años.

copio la rutina de envio.

Saludos

****

loSMS = CREATEOBJECT("SMSCOM.SMSSend")

loSMS.setAccount("CuentaPa...@tudominio.com")

loSMS.setPwd("xxxxxx")

loSMS.setFrom(lcDe)

loSMS.setTo(lcPara)

loSMS.setText(lcTexto)

lcComentario = loSMS.Send()

****

[Luis M.]

Muchas gracias Rafael,

Saludos,

Luis Martínez.

El lunes, 11 de marzo de 2013 22:45:50 UTC+1, Rafael Mellado escribió:

Hola Luis,

He buscado el programa de hace muchos años.

copio la rutina de envio.

Saludos

****

loSMS = CREATEOBJECT("SMSCOM.SMSSend")

loSMS.setAccount("CuentaParticul...@tudominio.com")

loSMS.setPwd("xxxxxx")

loSMS.setFrom(lcDe)

loSMS.setTo(lcPara)

loSMS.setText(lcTexto)

lcComentario = loSMS.Send()

[RickDeCastro]

Hola Fernando.

 

En verdad, tienes dos opciones:

1) SMS basado en Web. Tu empresa proveedora de SMS te proporcionará un API para enviar SMS utilizando la conexión a Internet.

 

2) SMS por modem GSM. Puedes enviar SMS utilizando comandos AT a través de módem GSM. Puede ser un teléfono celular común y corriente. En su momento, yo lo probé con un Nokia 2330 y funcionó perfectamente.

 

Revisa el ejemplo del link abajo para ver cómo hacer con los comandos AT:

 

http://www.foxite.com/archives/how-can-i-send-sms-by-vfp6-0000066718.htm

 

---

Saludos mensajeados.

Ricardo De Castro A.

Asunción - Paraguay

[alexana]

Rafael:

 

He copiado tu rutina, previa alta en Arsys de los web sms con bono de 100 mensajes, incluyéndole dos líneas más para ver el estado:

 

loSMS = CREATEOBJECT("SMSCOM.SMSSend")

loSMS.setAccount("mico...@aaa.es")
loSMS.setPwd("contraseña")
loSMS.setFrom('Yo')
loSMS.setTo('666666666')
loSMS.setText('Esta es una prueba de envío de sms')
lcComentario = loSMS.Send
resultado = loSMS.getResult
descripcion = loSMS.getDescription

En lccomentario responde: -1
En resultado responde: KO
En descripción responde: Error de conexión al servidor
sms (send)

¿Qué puede ser?. ¿Qué hay que cambiar, incluir o
excluir para que funcione?.

Gracias

 

Alexana

 

 

 

El lunes, 11 de marzo de 2013 22:45:50 UTC+1, Rafael Mellado escribió:

Hola Luis,

He buscado el programa de hace muchos años.

copio la rutina de envio.

Saludos

****

loSMS = CREATEOBJECT("SMSCOM.SMSSend")

loSMS.setAccount("CuentaParticul...@tudominio.com")

loSMS.setPwd("xxxxxx")

loSMS.setFrom(lcDe)

loSMS.setTo(lcPara)

loSMS.setText(lcTexto)

lcComentario = loSMS.Send()

[Jose Antonio Blasco]

Alexana, ¿has instalado y registrado las librerias  "smscom.dll"  y  "oswinsck.dll" correctamente ?

Sobre el código que muestras, yo sólo tengo en cuenta lo que me devuelve tu variable "resultado".

Si es "OK" el envio es correcto.  Con cualquier otra cosa, se ha producido un error, y el mensaje se muestra en "getDescription".  No veo ningún fallo en el codigo.  Sólo una cosa, los emails de envio y recepción, de que proveedor son ?

Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[alexana]

Jose A.:

 

Muchas gracias por tu respuesta y ayuda. No había incluido la librería "oswinsck.dll".

 

Ahora me va perfecto.

 

Muchas gracias de nuevo.

 

Alexana

[Jose Antonio Blasco]

Me alegro Alexana.  Otra cosa, sabes que en la variable ".getCredit" te devuelve el número de sms's que te quedan?

Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[alexana]

De nuevo, gracias por tu indicación, Jose A.

 

Alexana

[sixtored]

Aqui te paso el codigo.. con el que envio los sms

lcuser = mi usuario Chesms

lcpassword = mi pasword

lcresto = MOD(goApp.cantSelec,10) && calculo la cantidad de seleccionados..

SELECT (Thisform.lctemp)

GO top

SCAN FOR marca

lcidabon = idabonado

lcidrecla = idrecla

IF SEEK(lcidabon,"ABONADOS","IDABONADO") && busco el abonado para traer el numero de telefono..

   lctelef = ALLTRIM(Abonados.telefono)

   IF NOT EMPTY(lctelef) && si no esta vacio..

      IF idt>0

      lctextele = lctextele+',' && agrego la coma para separar los numeros..

      ENDIF 

      lctextele = lctextele+lctelef && armo la lista de telefonos.. hasta 10 numeros separados por coma..

   

    IF SEEK(lcidrecla,"RECLA","IDRECLA")

     Replace observ WITH "SMS enviado "+lctelef+" "+TTOC(DATETIME()) IN Recla 

     Replace sms WITH .T. IN Recla

     Replace fechhora WITH DATETIME() IN Recla

    ENDIF 

    ENDIF 

    idt = idt + 1

    IF 10-mod(idt,10) = 10-lcresto && 10 enviamos los sms cada 10 telefonos 

             ** aqui armo la URL

     TEXT TO lcURLcommand NOSHOW TEXTMERGE 

   http://CheSMS.sytes.net:93/?User=<<lcuser>>&Password=<<lcpassword>>&PhoneNumber=<<lctextele>>&Text=<<lcsms>>

ENDTEXT

*** limpiar lctextele

RELEASE miWeb

miWeb = CreateObject ("InternetExplorer.Application")

    miWeb.Visible = .T. 

    miWeb.Navigate(lcUrlcommand)

    WAIT WINDOW ' ' TIMEOUT .5

    miweb.visible = .F.

* Thisform.Hyperlink1.NavigateTo(lcURLcommand)

*lcFsms = CREATEOBJECT('gsenviosms')

*lcFsms.Caption = "ENVIAR SMS A ABONADOS.."

*lcFsms.Oleie.Navigate2(LTRIM(lcURLcommand))

*lcFsms.Show()

*lctextele = ""

     

   ENDIF 

ENDIF 

SELECT (Thisform.lctemp)

ENDSCAN 

El sábado, 9 de marzo de 2013 11:53:34 UTC-3, Fernando Maggi escribió:

[alexana]

Muchas gracias, sixtored. Agradezco tu aporte, pero me quedo con la opción de arsys, es algo más económica que chesms y funciona muy bien por api.

 

De todas formas, gracias por tu idea.

 

Alexana