Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Error en api de whatsapp

jeladio

Por jeladio
en Macros y programación VBA

Recommended Posts

jeladio Novato

jeladio

publicado
publicado

Buenas tardes he estado intentando utilizar la api de whatsapp para poder enviar un mensaje a un usuario si necesidad de guardar su numero en nuestros contactos, y funciona parcialmente, desde chrome el problema es que los numeros telefonicos los puede poner en el navegador pero al insertar el mensaje (que los recoge de dos textbox) deberia insertar la frase completa con espacios y todos pero no lo hace asi, sino al lllegar a la primera palabra abre otra nueva ventana de whatsapp en el navegador y lo que yo quiero es que funcione con la frase completa, el codigo base es este y el ejamplo esta en el adjunto 

https://api.whatsapp.com/send?phone=1234567890123&text=Hola%20quiero%20info

donde los primeros numeros son los numeros de codigo de pais y los otros son los del numero de telefono, y a continuacion el texto.

La otra es si hay otra forma de cambiar esta parte del codigo que abre el navegador por otro que no precisamente haga referencia a la ruta. 

Shell "C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe

Espero su ayuda

ejemplo whatspp.xlsm

Antoni Veterano

Antoni

publicado
publicado

Esto parece que funciona con cualquier navegador.

Modifica los tiempos de retraso si es necesario. 

Sub EnviaWhatsapp()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

telwhatsapp = "34666666666" 'Código de país seguido del número de teléfono
textwhatsapp = "Enviado desde Excel"

If telwhatsapp = Empty Or textwhatsapp = Empty Then
   MsgBox ("Debe ingresar número de telefono y texto para enviar Whatsapp"), vbCritical, "AVISO"
   Exit Sub
End If

mylinkwhatsapp = "https://api.whatsapp.com/send?phone=" & telwhatsapp & "&text=" & textwhatsapp
ActiveWorkbook.FollowHyperlink mylinkwhatsapp
Application.Wait (Now + TimeValue("00:00:01"))
ActiveWindow.Application.SendKeys "{TAB}"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveWindow.Application.SendKeys "{TAB}"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveWindow.Application.SendKeys "(~)" 'énvia enter para enviar mensaje
Application.Wait (Now + TimeValue("00:00:01"))
ActiveWindow.Application.SendKeys "(~)"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

jeladio Novato

jeladio

publicado
  • Autor
publicado

Gracias Sr. Antoni: hice la prueba con su codigo, pero en mi computadora lo abre en internet explorer, y yo quiero abrirlo en chrome, aparte de eso el principal problema es que como el mensaje quiero que sea el que esta escrito en los textbox, entonces en mi ejemplo si abre la ventana de web whatsapp pero solo con la primera palabra del mensaje y luego vuelve a abrir tantas ventanas como palabras tiene el texto, pareciera que tuviera un bucle que hace que en cada espacio abre una nueva ventana por cada palabra, puede hacerse algo al respecto?

José_Santos Aprendiz

José_Santos

publicado
publicado

Jeladio,

Todo lo referente a trabajar con API´s (Whatsapp, twitter, Facebook, OneDrive, Excel, etc) con VBA, igual lo puedes hacer de la manera que propones pero es mucho más rápido y eficaz, también más complicado, hacerlo como te indican en la web de referencia de la API en questión, es decir utilizando las solicitudes http de la manera que te indican. Yo suelo utilizar el objeto "MSXML2.XMLHTTP60".

Estas solicitudes se hacen a través del servidor y no hace falta estar abriendo instancias de IE, chrome u otro navegador.

El método que te propongo es el que utiliza todo el mundo ya que es más seguro, rápido y eficaz, como he comentado antes, también más complicado de poner en práctica. Estas solicitudes http se suelen programar con otros lenguajes de programación, pero con VBA también se puede hacer.

https://www.whatsapp.com/business/api

Saludos.

digitalboy Principiante

digitalboy

publicado
publicado
En 7/12/2018 at 8:00 , José_Santos dijo:

El método que te propongo es el que utiliza todo el mundo ya que es más seguro, rápido y eficaz, como he comentado antes, también más complicado de poner en práctica. Estas solicitudes http se suelen programar con otros lenguajes de programación, pero con VBA también se puede hacer.

https://www.whatsapp.com/business/api

Saludos.

Hola a todos!

@José_Santos esta api funciona para cuentas estándar o sólo empresariales?

Por que si sólo es para las segundas a muchos no les será de ayuda.

Utilizar la API siempre va a resultar más eficiente que utilizar automatización con un navegador, pero no concuerdo contigo en el aspecto en que sea complicado, sólo necesitas tu apikey y tener la documentación de la api parte hacer las peticiones. En javascript es tan fácil a mi me lo ha parecido.

Saludos!

digitalboy Principiante

digitalboy

publicado
publicado
En 6/12/2018 at 15:16 , jeladio dijo:

Gracias Sr. Antoni: hice la prueba con su codigo, pero en mi computadora lo abre en internet explorer, y yo quiero abrirlo en chrome, aparte de eso el principal problema es que como el mensaje quiero que sea el que esta escrito en los textbox, entonces en mi ejemplo si abre la ventana de web whatsapp pero solo con la primera palabra del mensaje y luego vuelve a abrir tantas ventanas como palabras tiene el texto, pareciera que tuviera un bucle que hace que en cada espacio abre una nueva ventana por cada palabra, puede hacerse algo al respecto?

@jeladio si te abre el explorar es por que sencillamente no tienes establecido Chrome como navegador por defecto. Has el cambio y prueba de nuevo.

Ah, con esto podrías adaptar el código de Antoni a tus necesidades.

Saludos.

José_Santos Aprendiz

José_Santos

publicado
publicado

@digitalboy No he programado nunca nada con la APi de Whatsapp, puse la URL para dar a conocer el mundo de las APi´s para aquellos que no sepan nada acerca de ellas y hacer saber que todas estas grandes Webs tienen su API con la que extraer información o interactuar con la aplicación en cuestión.

Una vez tienes la APiKey y demás credenciales tienes que hacer la autenticación OAuth 1.0 o OAuth 2.0 que con VBA no es nada fácil. Yo la tengo hecha para OneDrive y Twitter y no es nada sencillo, especialmente la de Twitter. Para el que no lo sepa, con la API de Microsoft Graph se puede interactuar con OneDrive, Excel, Outlook, etc...

Saludos.

  • 2 weeks later...
jeladio Novato

jeladio

publicado
  • Autor
publicado
En 14/12/2018 at 5:14 , José_Santos dijo:

@digitalboy No he programado nunca nada con la APi de Whatsapp, puse la URL para dar a conocer el mundo de las APi´s para aquellos que no sepan nada acerca de ellas y hacer saber que todas estas grandes Webs tienen su API con la que extraer información o interactuar con la aplicación en cuestión.

Una vez tienes la APiKey y demás credenciales tienes que hacer la autenticación OAuth 1.0 o OAuth 2.0 que con VBA no es nada fácil. Yo la tengo hecha para OneDrive y Twitter y no es nada sencillo, especialmente la de Twitter. Para el que no lo sepa, con la API de Microsoft Graph se puede interactuar con OneDrive, Excel, Outlook, etc...

Saludos.

Gracias por la respuesta, mis conocimientos son muy escasos en programacion e intentado ir haciendo algunas cosas con informacion obtenida de diferentes fuentes de la internet, sin embargo a diferencia de facebook por ejemplo, whatsapp no tiene una api como las de facebook con su apikey ya que han sido muy cuidadosos en cuando a el envio de spam por esta plataforma eso ha hecho que no han tenido la apertura como otras aplicaciones y los que se han atrevido a desarrollar api's no oficiales los han obligado a retirarlos asi mismo whatsapp hace cambios constantemente en su plataforma, (bueno al menos es lo que he logrado investigar) es por ello que he recurrido a hacer algo muy rudimentario, sin embargo si tu conoces algun metodo mas profesional para interactuar con whatsapp desdes una aplicacion externa sin correr el riesgo de que la cuenta sea cerrada  te agradecere que me apoyes.

 

saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.