Enviar Mensajes Masivos de WhatsApp desde Excel, incluyendo imágenes (a cualquier número)

En el mundo actual, la comunicación eficiente es clave, especialmente cuando se trata de interactuar con una gran cantidad de personas. WhatsApp se ha convertido en una herramienta fundamental para muchas empresas y emprendedores que buscan llegar a su audiencia de manera rápida y efectiva. En este post, aprenderás cómo enviar mensajes masivos desde WhatsApp, incluyendo texto e imágenes, incluso a números que no están en tu lista de contactos.

Enviar mensajes masivos de WhatsApp desde Excel

Enviar Mensajes Masivos de WhatsApp desde Excel, incluyendo texto e imágenes (a cualquier número)

Enviando mensajes masivos con texto e imágenes desde WhatsApp:

En posts anteriores, hemos explorado cómo enviar mensajes masivos a través de WhatsApp. Inicialmente, nos centramos en el envío de mensajes simples. Sin embargo, surgió la pregunta de cómo enviar mensajes que incluyeran tanto texto como imágenes, así como cómo llegar a números que no están en nuestra lista de contactos.

Aquí es donde entra en juego una modificación clave, cortesía de Mauricio Cano de Colombia. Esta modificación nos permite enviar mensajes masivos, incluso a aquellos números que no están registrados en nuestra lista de contactos de WhatsApp.

Preparación para el envío:

Para que esta Macro funcione correctamente, es importante tener instalada la aplicación de WhatsApp en tu computadora desde la Microsoft Store. Una vez instalada, abre la aplicación y dirígete a la pestaña de programador, donde podrás acceder al código de la Macro.

El código de la Macro:

La Macro funciona recorriendo una tabla donde se encuentran los números de teléfono, el texto que deseamos enviar, y las imágenes correspondientes. Con la modificación de Mauricio, ahora podemos enviar mensajes masivos incluso a números que no están en nuestra lista de contactos.

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

Sub EnvíoMensajesW2()
Dim Teléfono As String
Dim Imagen As String
Dim Texto As String

For Each Celda In Envío.Range("Clientes[TELÉFONO]")
    
    Status = Celda.Offset(0, 4).Value
    
    If Status = "VENCIDO" Then
        
        With Envío
            Teléfono = Celda.Value
            Texto = Celda.Offset(0, 6).Value
            Imagen = Celda.Offset(0, 7).Value
            .Pictures.Insert(Imagen).Name = "ImagenW"
            .Shapes("ImagenW").Copy
            
            AppActivate "WhatsApp"
            
            'Se ubica en el cuadro de busqueda y luego Control n para crear nuevo chat
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "^f", True
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "^n", True
            
            'Se desplaza dos veces hacia abajo y preciona enter en "Número de teléfono"
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "{Tab}", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "{Tab}", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "~", True
            
            'Borra el indicativo en el caso que se quiera enviar a varios paises
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "{BACKSPACE}", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "{BACKSPACE}", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "{BACKSPACE}", True
            
            'Escribe el número de teléfono
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys Teléfono, True
            
            'Se desplaza hacia abajo y da enter en "Chatear"
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "{Tab}", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "~", True
            
            'Se ubica nuevamente en el cuadro de busqueda y luego se desplaza hacia atras hasta ubicarse en "Escribir mensaje"
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "^f", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "+{Tab}", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "+{Tab}", True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "+{Tab}", True
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "+{Tab}", True
            
            'Escribe el mensaje y lo envía con Enter.  Tambien envía las imagenes
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys Texto, True
            Application.Wait (Now + TimeValue("00:00:01"))
            SendKeys "~", True
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "^v", True
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "~", True
            .Shapes("ImagenW").Delete
            
            'Pone un mensaje de enviado en la tabla
            Celda.Offset(0, 8).Value = "ENVIADO"
            
        End With
        
    End If
    
Next Celda

'Activa nuevamente el teclado numérico
SendKeys "{NUMLOCK}", True

End Sub

Ejecutando la Macro:

Una vez que todo está configurado, es hora de probar la Macro. Al hacer clic en el botón de enviar, la Macro comenzará a abrir la aplicación de WhatsApp, introducirá los números de teléfono, enviará el texto y adjuntará las imágenes correspondientes.

Consideraciones finales:

Es importante recordar que el envío masivo de mensajes puede ser considerado spam, por lo que se recomienda utilizar esta herramienta de manera responsable. Evita enviar un gran número de mensajes, especialmente a personas que no han dado su consentimiento previo, ya que esto puede resultar en la prohibición de tu número de teléfono.

Conclusión: Con esta modificación en la Macro, ahora puedes enviar mensajes masivos desde WhatsApp de manera más efectiva y eficiente, incluso a números que no están en tu lista de contactos. Recuerda siempre utilizar esta herramienta de manera ética y responsable para evitar cualquier inconveniente.

Suscríbete para más tutoriales

Descarga el archivo para practicar

Escribe tu correo electrónico para recibir gratis el archivo para practicar.

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top