How to forward a message and document automatically to a specific recipient via Whatsapp desktop using VBA.
Watch the video below:
Here’s the complete code. Your code may be different due to different XPath:
Option Explicit
Dim driver As New WebDriver
Sub ForwardMessage()
‘Chrome Driver
‘Selenium
‘Selenium Wrapper
Dim keys As New SeleniumWrapper.keys
driver.Start “chrome”
driver.Get “https://web.whatsapp.com/”
driver.Window.Maximize
driver.Wait 5000
driver.Wait 1000
driver.FindElementByXPath(“//*[@id=’side’]/div[1]/div/label/div/div[2]”).SendKeys (“Dt”)
driver.Wait 1000
driver.FindElementByXPath(“//*[@id=’side’]/div[1]/div/label/div/div[2]”).SendKeys (keys.Enter)
driver.Wait 1000
driver.FindElementByXPath(“//*[@id=’main’]/header/div[3]/div/div[2]”).Click
driver.Wait 1000
driver.FindElementByXPath(“//*[@id=’main’]/header/div[3]/div/div[2]/span/div/ul/li[2]/div”).Click
driver.Wait 1000
driver.FindElementByXPath(“//*[@id=’main’]/div[3]/div/div/div[3]/div[7]/span/div”).Click
driver.Wait 1000
driver.FindElementByXPath(“//*[@id=’main’]/span[2]/div/button[4]/span”).Click
driver.Wait 1000
driver.FindElementByXPath(“//[@id=’app’]/div/span[2]/div/span/div/div/div/div/div/div/div[1]/div/label/div/div[2]”).SendKeys (“Poonam Mobile”) driver.Wait 1000 driver.FindElementByXPath(“//[@id=’app’]/div/span[2]/div/span/div/div/div/div/div/div/div[1]/div/label/div/div[2]”).SendKeys (keys.Enter)
driver.Wait 1000
driver.FindElementByXPath(“//*[@id=’app’]/div/span[2]/div/span/div/div/div/div/div/div/span/div/div/div/span”).Click
driver.Wait 2000
driver.FindElementByXPath(“//[@id=’main’]/footer/div[1]/div[2]/div/div[2]”).SendKeys (“File forwarded for your further action.”) driver.FindElementByXPath(“//[@id=’main’]/footer/div[1]/div[2]/div/div[2]”).SendKeys (keys.Enter)
End Sub
