Uploaded July 2019 | Updated September 2026, 1 week ago
How to get and install Calendar Control for All Office versions. You can view the web post here: exceltrainingvideos.com/calendar-control-for-all-office-versions
How to get and install Calendar Control for All Office versions. You can view the web post here: exceltrainingvideos.com/calendar-control-for-all-office-versions






![Forward Message via whatsapp Desktop
How to forward a message and document automatically to a specific recipient via Whatsapp desktop using VBA.
Heres 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 Forward Message via whatsapp Desktop](https://i.ytimg.com/vi/d9_0JmF8TAQ/mqdefault.jpg)



