enviar mensajes a whatsapp, ¿posible solucion?

[JoseAlvarez]

Saludos a todos amigos.

Seré breve ya que este tema se ha tocado muchas veces en el foro.

Buscando la manera de como enviar mensajes desde mi sistema FW+HARBOUR vía whatsapp, logré hacerlo a medias, utilizando una hoja Excel siguiendo lo que se explica en el siguiente video de youtube (espero que no haya problema con poner enlaces hacia otros sitios dentro del foro). Cabe resaltar que la hoja Excel es de uso libre.

https://youtu.be/JrhE2Vx2b18?si=a-1F_inpM6ajZOfe

Primero hice unas adecuaciones de gusto personal a la hoja y la deja asi, ya que me sirve para mi caso:

http://www.datanet.space/fw/mensajesexcel.xlsm

El procedimiento que usé es: desde mi programa FW preparo un browse con los datos necesarios para el envio de los mensajes. Ese browse lo exporto a una hoja de excel temporal desde la cual, el usuario de mi programa debe hacer un "copy&paste" a la hoja sacada de youtube que enviara los mensajes. Hasta ahora ha funcionado con 2 de mis clientes que usan mi software de cuentas por cobrar. Están enviando los alertas de cobranza exitosamente.

Ahora bien, los envíos los hace una macro diseñada con visual basic. La pregunta es: ¿será posible que alguno de los master pueda adecuarlo para usarse como una función fw?. Hay otros temas secundarios como la posibilidad de baneo por parte de whatsapp si se abusa con el uso de la cuenta, pero ya eso seria otro tema. Como comenté, esta funcionando en dos de mis clientes desde hace un par de meses y no ha habido problemas.

Dejo la inquietud abierta a ver si nos puede ser útil a quienes necesitamos poder hacer los envíos directos desde nuestras aplicaciones.

[karinha]

https://forums.fivetechsupport.com/view ... 1b#p242869

https://forums.fivetechsupport.com/view ... 1b#p242852

https://forums.fivetechsupport.com/view ... 1b#p222774

José, no lo sé, en Venezuela, pero aquí en Brasil, si envías más de 5 mensajes, y alguien te denuncia, inmediatamente te banean tu WHATS y recuperarlo es casi imposible. ¿Los SMS no te funcionan?

Regards, saludos.

[JoseAlvarez]

Hola joao, saludos.

Los clientes previamente dan su autorización para recibir los mensajes, asi se reduce al maximo la posibilidad de que alguien reporte spam.

Los servicios de sms aqui en venezuela, aparte de costoso, los términos y condiciones son muy exigentes. Todos los usuarios optan por whatsapp.

[Antonio Linares]

Estimado José,

Puedes hacerlo directamente desde FWH sin necesidad de crear una hoja de cálculo ni tener que usar VBA, etc

Simplemente usa esto desde FWH en un bucle:

ShellExecute( 0, "open", StrTran( "whatsapp://send?phone=" + cTelefono + "&text=" + cMensaje ), " ", "%20" ) )
SysRefresh() // ó SysWait( 5 ) prueba con distintos valores hasta que te funcione bien
CreateObject( "WScript.Shell" ):SendKeys( "~" )

[Antonio Linares]

Este ejemplo funciona correctamente. Es necesario instalar la app de whatsapp y debe estar funcionando antes de ejecutar nuestra llamada:

whatsapp.prg

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   ShellExecute( 0, "open", "whatsapp://send?phone=34722461100&text=FWH," + Time() )
   SysWait( 1 )
   CreateObject( "WScript.Shell" ):SendKeys( "~" )

return nil

To send msgs to a whatsapp group instead of a phone number use this:
whatsapp://send?text=encoded_message&phone=group_id

Find out the group ID of the group you want to send the message to. You can do this by opening the group info screen in WhatsApp and tapping on the invite link. The group ID is the part after “chat.whatsapp.com/”. For example, if the invite link is “https://chat.whatsapp.com/ABCDEF123456”, then the group ID is “ABCDEF123456”

[JoseAlvarez]

Saludos Master Linares.

Muchísimas gracias. Creo que me estaba ahogando en un vaso de agua.

Voy a implementar el código y le comento.

Muy agradecido por su ayuda, es una necesidad que debía solventar.

Un abrazo.

[karinha]

http://fivewin.com.br/index.php?/topic/ ... -whatsapp/

Regards, saludos.

[sysctrl2]

Amigos muy interesante WharsApp.prg, me saltan unas dudas

1. a partir de que versión de FWH funciona?
2. es para harbour/xHarbour ?
3. Tiene costo la APPI de WhasApp ?

saludos

[Antonio Linares]

Estimado Cesar,

> 1. a partir de que versión de FWH funciona?

Debería funcionar con todas

> 2. es para harbour/xHarbour ?

Si

> 3. Tiene costo la API de WhasApp ?

gratuito

[sysctrl2]

Antonio muy interesante,
abusando un poco, como se envía un PDF ?
o alguna información que nos ayude?

saludos .

[JoseAlvarez]

Master Antonio,

Funciona muy bien y rápido el envío de mensajes con el código suministrado.

Gracias Nuevamente.

Ahora hay un detalle: El mensaje se envía en una sola línea, seria excelente si se pudiera incluir el salto de línea para separar los textos.

Me explico mejor, en la pagina de excel que estaba utilizando se podía incluir la separación de línea y el mensaje se ve así:



¿habrá manera de hacerlo? intenté con chr(13) y con CRLF pero no funciona.

[JoseAlvarez]

¡ Listo Master !

Lo encontré.

Code: Select all | Expand

ShellExecute( 0, "open", "whatsapp://send?phone="+cTelf+" &text=Estimado Sr. Antonio Linares.%0A"+"Gusto en Saludarle"+","+ Time() )

y se ve así:



Resuelto todo.

Agradecido una vez más.

[sysctrl2]

José, sabes como se envia un archivo?
saludos

[JoseAlvarez]

José, sabes como se envia un archivo?
saludos

Saludos estimado,

Estoy buscando la manera, al tener la solución la cuelgo acá.

[Antonio Linares]

A ver si esto funciona:

whatsapp://send?phone=+15555555555&text=Here is a file for you.&document=/path/to/file.txt