VBA: FreeFile function
12/03/2022Access: abrir fichero accdb
14/03/2022
Public Function EnvioWhatsapp(ByVal telnumber, ByVal msgtext) As String
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Fuente : https://access-global.net/vba-sencilla-forma-de-enviar-mensaje-de-whatsapp
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Título : EnvioWhatsapp
' Autor original : Luis Viadel
' Propósito : enviar un mensaje a través de WhatsApp
' Retorno : texto con información del mensaje
' Argumento/s : La sintaxis del procedimiento o función consta del siguiente argumento:
' Parte Modo Descripción
'-----------------------------------------------------------------------------------------------------------------------------------------------
' telnumber Obligatorio Número de teléfono móvil
' msgtext Obligatorio Texto del mensaje
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Referencia : https://www.whatsapp.com/business/api?lang=es
'-----------------------------------------------------------------------------------------------------------------------------------------------
'Test: : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar el bloque siguiente al
' portapapeles y pega en el editor de VBA. Descomentar la línea que nos interese y pulsar F5 para ver su funcionamiento.
'
'Sub test_sendWhatsapp()
'Dim str As String
'
'Debug.Print str = EnvioWhatsapp("NUMERO_TELEFONO", "Mensaje enviado desde Access")
'
'End Sub
'-----------------------------------------------------------------------------------------------------------------------------------------------
CreateObject("Shell.Application").Open "https://wa.me/" + telnumber + "/?text=" & msgtext
Sleep 3000
SendKeys "{ENTER}"
End Function
6 Comments
buen dias tendrias ejemplos de formularios desconectados
En este ejemplo se utilizan formularios desconectados, si es eso lo que te interesa: https://access-global.net/sencillo-sistema-de-gestion-documental/
Hola, soy nuevo en esto, si me puedes ayudar te lo agradeceria mucho con el envio de mensaje por whatsapp, todo bien pero no logro hacer funcionar los metodos Sleep y SendKeys, no se co o declararlos o que import debo usar para que se activen.
Saludos y quedo atento a tu ayuda, gracias
Hola Patricio. Debes declarar la función de la API de Windows Public Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As LongPtr) para que te funcione Sleep. Una vez declarada en un módulo estándar, simplemente la llamas con Sleep y los milisegundos que quieras que pare.
Sendkeys funciona de forma sencilla. Llamas a sendkeys y la tecla que quieres que se pulse. En la web de Microsoft encontrarás un listado de cómo se llaman cada una de las teclas (https://learn.microsoft.com/es-es/office/vba/language/reference/user-interface-help/sendkeys-statement)
buen dia tendran el ejemplo ya que no logro hacerlo funcionar
Hola José, no sé cómo te puedo ayudar. Dame alguna pista más e intentaré ayudarte.
Mira el comentario de Patricio, a lo mejor tiene que ver.