Enviar Mensajes Masivos de WhatsApp desde Excel

🔥 Este es un tema que me habían solicitado en repetidas ocasiones.

👉 WhatsApp se ha convertido en la herramienta de comunicación por excelencia y si lo integramos con Excel, podemos hacer cosas muy productivas, como enviar mensajes masivos.

Ver Video Enviar WhatsApp desde Excel

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Cómo lo hacemos

Para lograr enviar mensajes masivos desde WhatsApp es importante tener una Tabla con los datos necesarios:

• Número
• Nombre
• Mensaje

Pueden haber más campos, dependiendo qué tanto desees enviar.

Código VBA de la macro

Para que la macro funciones, es necesario tener WhatsApp de escritorio instalado y sincronizado con tu cuenta.

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Mi canal de YouTube | youtube.com/user/sergioacamposh
'Mi Sitio | exceleinfo.com
'Descarga mi add-in | addin.exceleinfo.com
'Obtén la Certificación Excel Expert | exceleinfo.com/certificacion-mos

Sub EnvíoVencimientos()
Dim Status As String
Dim Teléfono As String
Dim Texto As String
Dim Celda As Range
Dim Mensaje As String

For Each Celda In Hoja1.Range("Clientes[TELÉFONO]")
    Status = Celda.Offset(0, 4).Value
    
    If Status = "VENCIDO" Then
    
        Teléfono = Celda.Value
        Texto = Celda.Offset(0, 6).Value
        
        Mensaje = VBA.Replace("whatsapp://send?phone=" & Teléfono & "&text=" & Texto, " ", "%20")
        
        'ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=" & Teléfono & "&text=" & Texto
        
        Ejecutar = ShellExecute(hwnd, "Open", Mensaje, &O0, &O0, SW_NORMAL)
        Application.Wait Now + TimeValue("00:00:05")
        Call SendKeys("~", True)
    
    Else
    End If
    
Next Celda

End Sub

Descarga el archivo para practicar

Enviar mensajes de Whatsapp – EXCELeINFO.zip

⭐ Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.