Uploaded October 2020 | Updated September 2026, 2 weeks ago

---

How to forward a message and document automatically to a specific recipient via Whatsapp desktop using VBA.
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 "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