El envío masivo de mensajes a través de WhatsApp es una herramienta útil para diversos fines, como campañas de marketing, atención al cliente, recordatorios, entre otros. Si bien WhatsApp Web proporciona una opción rápida para enviar mensajes desde el navegador, hacerlo manualmente puede ser tedioso. En este artículo, te enseñaremos cómo automatizar el proceso de envío de mensajes en WhatsApp utilizando un macro VBA en Excel, que abre Google Chrome, personaliza el mensaje e interactúa con la página de WhatsApp Web para enviar los mensajes de manera automática.
Tabla de contenidos
¿Cómo Funciona el Macro VBA para WhatsApp?
Este macro de VBA aprovecha la interacción con Google Chrome para abrir WhatsApp Web y enviar mensajes personalizados a varios contactos. Los mensajes se extraen de una hoja de Excel que contiene tres columnas: Nombre, Teléfono y Mensaje. El macro genera una URL personalizada para cada contacto y luego usa la función SendKeys para simular el envío del mensaje.
Requisitos Previos
Para utilizar este macro, necesitas cumplir con algunos requisitos previos:
- Google Chrome: Este macro está diseñado para usar Google Chrome, por lo que necesitas tenerlo instalado en tu computadora.
- Microsoft Excel: Necesitarás acceso a Microsoft Excel para crear la hoja de cálculo que utilizarás para enviar los mensajes.
- Conexión a Internet: El macro requiere una conexión a Internet activa para acceder a WhatsApp Web y enviar los mensajes.
Paso 1: Crear el Archivo de Excel con los Datos
El primer paso consiste en crear una hoja de Excel que contenga la siguiente estructura:
| Nombre | Teléfono | Mensaje |
|---|---|---|
| Juan | 1234567890 | Hola {nombre}, ¿cómo estás? |
| María | 0987654321 | ¡Hola {nombre}! Te envío un saludo. |
- Nombre: El nombre del contacto al que se enviará el mensaje.
- Teléfono: El número de teléfono del contacto, que debe ser precedido por el código de país (por ejemplo, +57 para Colombia).
- Mensaje: El mensaje que deseas enviar. Puedes personalizar el mensaje usando el marcador
{nombre}, que será reemplazado por el nombre del contacto en el momento del envío.
Paso 2: Preparar el Macro en VBA
El siguiente paso es crear un macro VBA en Excel que se encargue de abrir la URL de WhatsApp Web en Google Chrome, personalizar el mensaje con el nombre del contacto y enviar el mensaje automáticamente. Para ello, sigue estos pasos:
- Abrir el Editor de VBA:
- En Excel, presiona
Alt + F11para abrir el Editor de VBA.
- En Excel, presiona
- Crear el Macro:
- En el editor, haz clic en Insertar > Módulo para crear un nuevo módulo.
- Copia y pega el siguiente código VBA:
vba
Copiar código
Sub EnviarWhatsAppConChrome()
Dim nombre As String
Dim telefono As String
Dim mensaje As String
Dim url As String
Dim i As Long' Comienza en la segunda fila (asumiendo encabezados en la primera fila) i = 2 While ThisWorkbook.Sheets("Hoja1").Cells(i, 1).Value <> "" ' Leer los datos de cada fila nombre = ThisWorkbook.Sheets("Hoja1").Cells(i, 1).Value telefono = ThisWorkbook.Sheets("Hoja1").Cells(i, 2).Value mensaje = ThisWorkbook.Sheets("Hoja1").Cells(i, 3).Value ' Personalizar el mensaje mensaje = Replace(mensaje, "{nombre}", nombre) ' Crear la URL de WhatsApp Web url = "https://wa.me/" & telefono & "?text=" & Application.WorksheetFunction.EncodeURL(mensaje) ' Abrir la URL en Google Chrome Dim chromePath As String chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " --new-window " & url), vbNormalFocus ' Esperar para que la página cargue completamente Application.Wait Now + TimeValue("00:00:10") ' 10 segundos de espera (ajustar si es necesario) ' Simular escribir el mensaje (esto es opcional si el mensaje no aparece automáticamente) SendKeys mensaje Application.Wait Now + TimeValue("00:00:01") ' Espera 1 segundo ' Simular pulsar "Enter" para enviar el mensaje SendKeys "~" Application.Wait Now + TimeValue("00:00:03") ' Espera 3 segundos ' Pasar al siguiente contacto i = i + 1 Wend MsgBox "Todos los mensajes han sido enviados.", vbInformationEnd Sub
Paso 3: Ejecutar el Macro
Una vez que hayas pegado el código en el editor VBA, realiza los siguientes pasos:
- Ejecutar el Macro:
- Cierra el editor de VBA y regresa a la hoja de Excel.
- Presiona
Alt + F8para abrir la ventana de macros, seleccionaEnviarWhatsAppConChromey haz clic en Ejecutar.
- Escanear el Código QR:
- El macro abrirá Google Chrome con WhatsApp Web. Si es la primera vez que usas WhatsApp Web en el navegador, necesitarás escanear el código QR con la aplicación de WhatsApp en tu teléfono.
- Una vez que hayas escaneado el código QR, el macro comenzará a enviar los mensajes a los números de teléfono de la hoja de cálculo.
Paso 4: Verificar el Envío de los Mensajes
El macro recorrerá la lista de contactos, abrirá WhatsApp Web en Chrome, personalizará el mensaje con el nombre de cada contacto y lo enviará automáticamente. Al finalizar, se mostrará un mensaje de confirmación que indica que todos los mensajes han sido enviados.
Consejos y Recomendaciones
- Tiempo de Espera: Si notas que WhatsApp Web tarda más en cargar, puedes aumentar el tiempo de espera en el macro ajustando los valores de
Application.Wait. - Personalización del Mensaje: Utiliza el marcador
{nombre}en el campo de mensaje para personalizarlo con el nombre del contacto. - Validación de Números: Asegúrate de que los números de teléfono estén escritos correctamente, incluyendo el código de país (por ejemplo, +57 para Colombia).
- Requisitos de WhatsApp Web: El macro funciona solo cuando WhatsApp Web está correctamente configurado y no presenta solicitudes de verificación adicionales.
Conclusión
Este macro VBA te permite automatizar el envío de mensajes de WhatsApp desde Excel, abriendo Google Chrome y utilizando WhatsApp Web. Es una solución eficiente para enviar mensajes masivos a tus contactos, personalizando cada mensaje con el nombre del destinatario. Siguiendo estos pasos, podrás ahorrar tiempo y hacer más eficiente la gestión de mensajes.
