filmov
tv
How to send Whatsapp Messages from Excel - Malayalam Tutorial
Показать описание
എക്സലിൽ ഉപയോഗിച്ച് ഒറ്റ ക്ലിക്കിൽ നൂറു കണക്കിന് ആളുകൾക്ക് വാട്സാപ്പ് മെസ്സേജ് അയക്കുന്ന ടെക്നിക്ക്.
How to send WhatsApp messages from Excel, explained in Malayalam.
മൈക്രോസോഫ്റ്റ് എക്സൽ കോഴ്സിൽ എൻറോൾ ചെയ്യുന്നതിന് വേണ്ടിയുള്ള ലിങ്ക് ചുവടെ...
Subscribe to the channel @AjayAnandXLnCAD for more.
Check this video for sending WhatsApp messages from Excel using WhatsApp for the Web.
VBA Code to send Whatsapp messages from Excel
Sub XLToWhatsApp()
Dim LastRow As Long
Dim i As Integer, strip As String
Dim strPhoneNumber As String, strMsg As String, strPostData As String
Dim IE As Object
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
strPhoneNumber = Sheets("Payment").Cells(i, 3).Value
strMsg = Sheets("Payment").Cells(i, 4).Value
strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strMsg
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate strPostData
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{Enter}", True)
Next i
End Sub
Microsoft Word Beginner to Professional കോഴ്സിൽ എൻറോൾ ചെയ്യുന്നതിന് വേണ്ടിയുള്ള ലിങ്ക് ചുവടെ...
#exceltowhatsapp #whatspptricks #excelmalayalam
How to send WhatsApp messages from Excel, explained in Malayalam.
മൈക്രോസോഫ്റ്റ് എക്സൽ കോഴ്സിൽ എൻറോൾ ചെയ്യുന്നതിന് വേണ്ടിയുള്ള ലിങ്ക് ചുവടെ...
Subscribe to the channel @AjayAnandXLnCAD for more.
Check this video for sending WhatsApp messages from Excel using WhatsApp for the Web.
VBA Code to send Whatsapp messages from Excel
Sub XLToWhatsApp()
Dim LastRow As Long
Dim i As Integer, strip As String
Dim strPhoneNumber As String, strMsg As String, strPostData As String
Dim IE As Object
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
strPhoneNumber = Sheets("Payment").Cells(i, 3).Value
strMsg = Sheets("Payment").Cells(i, 4).Value
strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strMsg
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate strPostData
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{Enter}", True)
Next i
End Sub
Microsoft Word Beginner to Professional കോഴ്സിൽ എൻറോൾ ചെയ്യുന്നതിന് വേണ്ടിയുള്ള ലിങ്ക് ചുവടെ...
#exceltowhatsapp #whatspptricks #excelmalayalam
Комментарии