Notificacion a Whatsapp con Excel VBA

 Hola a continuación le dejo material para que puedan implementar sus notificaciones a whatsapp desde una hoja excel habilitado macros en VBA

¿ Que necesitas para implementarlo?

         - Escanear la pagina para obtener token QR

Video Implementación

Web escanear el código

https://anlusoftware.blogspot.com/

Código VBA

Sub Botón1_Haga_clic_en()       Dim mensajes As String       On Error GoTo ErrorHandler       Worksheets("Mensaje").Range("A2").Select       Do Until IsEmpty(ActiveCell)          If Not IsEmpty(ActiveCell.Value) Then             If Not IsEmpty(Cells(ActiveCell.Row, 2).Value) Then                 mensajes = mensajes + "{" + Chr(34) + "numero" + Chr(34) + ":" + Chr(34) + CStr(ActiveCell.Value) + Chr(34) + "," + Chr(34) + "mensaje" + Chr(34) + ":" + Chr(34) + CStr(Cells(ActiveCell.Row, 2).Value) + Chr(34) + "},"             ElseIf Not IsEmpty(Cells(ActiveCell.Row, 3).Value) Then                 mensajes = mensajes + "{" + Chr(34) + "numero" + Chr(34) + ":" + Chr(34) + CStr(ActiveCell.Value) + Chr(34) + "," + Chr(34) + "imagenbase64" + Chr(34) + ":" + Chr(34) + CStr(Cells(ActiveCell.Row, 3).Value) + Chr(34) + "},"             End If          End If          ActiveCell.Offset(1, 0).Select       Loop       If mensajes = "" Then           MsgBox ("no hay mensajes a enviar")       Else         mensajes = "{" + Chr(34) + "op" + Chr(34) + ":" + Chr(34) + "registermessage" + Chr(34) + "," + Chr(34) + "token_qr" + Chr(34) + ":" + Chr(34) + Worksheets("Configuracion").Range("B1").Value + Chr(34) + "," + Chr(34) + "mensajes" + Chr(34) + ":[" + Left(mensajes, Len(mensajes) - 1) + "]}"         Set objHTTP = CreateObject("MSXML2.XMLHTTP")         objHTTP.Open "POST", "https://script.google.com/macros/s/AKfycbyoBhxuklU5D3LTguTcYAS85klwFINHxxd-FroauC4CmFVvS0ua/exec", False         objHTTP.SetRequestHeader "Content-Type", "application/json"         objHTTP.SetRequestHeader "User-Agent", "PostmanRuntime/7.26.8"         objHTTP.Send (mensajes)         MsgBox (objHTTP.Status + " : " + objHTTP.responseText)         End If Exit Sub ErrorHandler: If Err.Number = -2147024891 Then     MsgBox ("Se notifico") Else     MsgBox ("Error") End If End Sub

En caso desees descargar las fuentes del Archivo Excel VBA

https://drive.google.com/file/d/1cx1QrES7MpjhbS5XY6SaKf7eCKqFPug2/view?usp=sharing

¿ Si Deseas que se habilite 24 x 7 y que permita enviar N envios al mes con un solo token de session ?

- Pago mensual por  token de session  (internamente se emplea un servidor 24 x 7 debido a ello el costo)

         IR a PAGAR  

ASESORIA PERSONALIZADA :

En caso necesites alguna asesoría personalizada agéndame un espacio.

https://reservarasesoriaanlusoft.blogspot.com/