Whatsapp Web Automatización - VBA Excel

Sub whats()

Dim contacto, msj As String

contacto = Whatsapp.TextBox1.Text
msj = Whatsapp.TextBox2.Text

Shell "explorer http://web.whatsapp.com"

If MsgBox("Espera a que cargue para continuar" & vbNewLine & vbNewLine & "Pulsa no para cancelar", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp") = vbYes Then

Application.Wait (Now + TimeValue("0:00:05"))
SendKeys "{TAB}"

Application.Wait (Now + TimeValue("0:00:02"))
SendKeys contacto
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{ENTER}"

Application.Wait (Now + TimeValue("0:00:01"))
SendKeys msj
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{ENTER}"

MsgBox "Mensaje enviado con éxito a " + contacto + " Listo", vbInformation, "whatsapp"
' si se cancela el Script
Else
MsgBox "Mensaje no enviado", vbSystemModal, "Whatsapp"
End If
Application.Visible = True
End Sub

Youtube