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