Forward Message via whatsapp Desktop
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 "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 канала Dinesh Kumar Takyar
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
Видео Forward Message via whatsapp Desktop канала Dinesh Kumar Takyar
Показать
Комментарии отсутствуют
Информация о видео
Другие видео канала
Super Quick Method to UNSTACK One Column of Data into Multiple ColumnsFilter Data Based on Criteria in Selected Cell | 2021APIs in Excel. No VBA. Use Power Query.Automate Calculations with Time Using VBACustom Lists in Excel 2003, MS Excel 2007 & 2010Using Activex Controls SQL VBA to Analyze Excel DataUser Defined FunctionsCreate Folders and Files AutomaticallyPerform Additions with numerical values in text boxes on user formInsert Hyperlink Automatically || 2021Accessing worksheet in large workbooks with multiple sheetsIndex, Match and XlookupImprove Productivity During Data Entry with Excel VBADynamic Charts in Microsoft ExcelSort Worksheet Tabs By ColorClean Data Using Flash Fill in ExcelTrack Changes in Excel Worksheet Without VBAWorksheet Change Event Macro to Manipulate DataCreate Searchbox Using Filter Function AutomaticallyVlookup Microsoft ExcelAutomating Rank Worksheet Function