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
