Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Como ENVIAR WHATSAPP Personalizado en Forma MASIVO con Excel NUEVA Version #510

Enviar mensaje masivo personalizado whatsapp

Como ENVIAR WHATSAPP MASIVOS distintos a Cada Contacto

Este post es otro mas de la saga de ejemplos destinados a mostrar como se puede Enviar Whatsapp con Excel, en este ejemplo específicamente se mostrará como enviar Whatsapp personalizados en forma masiva, es decir que se le enviará un mensaje de Whatsapp distinto a cada uno de los contactos que tenemos listados en la hoja de Excel.

Maneja Excel como los mejores entra en el link y mira como se hace click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.

  
 

En el vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira el playlist con  vídeos relacionados donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil.

Mensajes de WHATSAPP personalizados Masivos

Una vez descargado el archivo, se podrá observar una pestaña personalizada que contiene un icono de Whatsapp, presionando el mismo se muestra un Msgbox que pregunta al usuario si desea enviar un menaje a los contactos listados en la hoja de calculo.

Si se selecciona que no se desea enviar, la macro se cancela y termina; en el caso que se presione que se desea enviar, la macro recorre todas las filas desde la fila dos hasta la última fila con datos, enviando un mensaje a cada uno de los contactos.

El mensaje que Whatsapp personalizado que se enviará es el que figura en la columna C y fila correspondiente.

 

Quizás también interese leer:

Como eliminar dato seleccionado del listbox y hoja excel con enter 
Como acelerar al maximo busqueda en listbox mientras se escribe en textbox 
Pasar datos listbox multiselect a distintas hoja excel dependiendo de condicion 

Si quieres aprender más sobre listbox de excel o ver otros ejemplos que podrías aplicar a tus proyectos te invito a ver el playlist sobre Listbox de Excel.

Explicación del Código que Envia Mensajes de Whatsapp Personalizados Masivos

En primer lugar se creará un objeto con la Hoja1 que es en la cual trabajamos, esto es a los fines de facilitar la escritura del código solamente, seguidamente se determina cual es la última fila con datos para saber hasta que fila se debe realizar el bucle o en otras palabras hasta que fila se debe recorrer, el código es el siguiente:

Set a = Sheets(«Hoja1»)
uf = a.Range(«A» & Rows.Count).End(xlUp).Row

Luego se realiza un bucle recorriendo las filas desde la 2 hasta la última fila con datos, con el siguiente código

For x = 2 To uf

… código

Next x

Por cada fila recorrida por el bucle se realiza el procedimiento de envío de Whatsapp personalizado, para ello se debe se cargar en dos variables el número de teléfono y el mensaje que se va e enviar, ello se obtiene de la columna B el número de teléfono y en la columna C el mensaje a enviar, se usa el siguiente código:

telwhatsapp = a.Cells(x, «B»)
textwhatsapp = a.Cells(x, «C»)

Luego se navega hasta la Api oficial de Whatsapp y desde ahí abre automáticamente Whatsapp Web que previamente debemos tener descargado en nuestra PC, el código que se usa es el siguiente:

mylinkwhatsapp = «https://api.whatsapp.com/send?phone=» & telwhatsapp & «&text=» & textwhatsapp
ActiveWorkbook.FollowHyperlink mylinkwhatsapp

Una vez ejecutada la aplicación de Whatsapp Web en nuestra PC, se procede a enviar impulsos de teclado con  SendKey y con ello se consigue enviar el mensaje de Whatsapp en forma personalizada y masiva.

Application.Wait (Now + TimeValue(«00:00:06»))
ActiveWindow.Application.SendKeys «{TAB}»
ActiveWindow.Application.SendKeys «(~)»
ActiveWindow.Application.SendKeys «^W»
Application.Wait (Now + TimeValue(«00:00:30»))
ActiveWindow.Application.SendKeys «(~)»
Application.Wait (Now + TimeValue(«00:00:02»))



Descarga el ejemplo como enviar mensajes de Whatsapp personalizado en forma masiva

Descarga el libro desde el final del post, allí se encuentra el link de descarga es totalmente Gratis y no tiene ningún tipo de restricción, solicito aportar a sostener la esta web si está dentro de tus posibilidades, desde ya muchas gracias.

Código que se encuentra en el modulo 1

#If VBA7 And Win64 Then
‘Si es de 64 bits
Public Declare PtrSafe Function ShellExecute Lib «shell32.dll» Alias «ShellExecuteA» (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
Public Declare PtrSafe Function FindWindow Lib «USER32» Alias «FindWindowA» (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Public Declare PtrSafe Function GetWindowLongPtr Lib «USER32» Alias «GetWindowLongPtrA» (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
Public Declare PtrSafe Function SetWindowLongPtr Lib «USER32» Alias «SetWindowLongPtrA» (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Public Declare PtrSafe Function DrawMenuBar Lib «USER32» (ByVal hwnd As Long) As LongPtr
Public Declare PtrSafe Function RegOpenKeyA Lib «advapire32.dll» (ByVal hKey As LongPtr, ByVal lpSubKey As String, phkResult As LongPtr) As LongPtr
#Else
‘Si es de 32 bits
Public Declare 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
Public Declare Function FindWindow Lib «USER32» Alias «FindWindowA» (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib «USER32» Alias «GetWindowLongA» (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib «USER32» Alias «SetWindowLongA» (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib «USER32» (ByVal hwnd As Long) As Long
Public Declare Function RegOpenKeyA Lib «advapire32.dll» (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
#End If
Public telwhatsapp, textwhatsapp

‘*********** by marcrodos **** https://programarexcel.com *** https://www.youtube.com/c/programarexcel?sub_confirmation=1 ********

Sub EnviaWhatsapp()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set a = Sheets(«Hoja1»)
uf = a.Range(«A» & Rows.Count).End(xlUp).Row

For x = 2 To uf
conta = conta + 1
telwhatsapp = a.Cells(x, «B»)
textwhatsapp = a.Cells(x, «C»)

mylinkwhatsapp = «https://api.whatsapp.com/send?phone=» & telwhatsapp & «&text=» & textwhatsapp
ActiveWorkbook.FollowHyperlink mylinkwhatsapp

Application.Wait (Now + TimeValue(«00:00:06»))
ActiveWindow.Application.SendKeys «{TAB}»
ActiveWindow.Application.SendKeys «(~)»
ActiveWindow.Application.SendKeys «^W»
Application.Wait (Now + TimeValue(«00:00:30»))
ActiveWindow.Application.SendKeys «(~)»
Application.Wait (Now + TimeValue(«00:00:02»))

Next x
MsgBox («Se enviaron » & conta & » mensajes a los contactos seleccionados»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub macro1(control As IRibbonControl)
On Error Resume Next
respuesta = MsgBox(«¿Seguro desea enviar Whatsapp a los contactos listados?», vbCritical + vbYesNo)
If respuesta = 6 Then
Call EnviaWhatsapp
End If
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407

Summary
510 ? Como ENVIAR WHATSAPP Personalizado en ❤️ Forma MASIVO con Excel NUEVA Version
Article Name
510 ? Como ENVIAR WHATSAPP Personalizado en ❤️ Forma MASIVO con Excel NUEVA Version
Description
Enviar WHATSAPP PERSONALIZADOS en forma MASIVA
macrosenexcel.com
macrosenexcel.com
Programar Excel