send whatsapp message from excel with image file
41.5 هزار بار بازدید -
2 سال پیش
-
Join us and get VBA
Join us and get VBA Codes.. contact us @ms_designs53 on instagram
get new updated codes here in link below
How to send PDF from excel to whatsap...
send whatsapp message through excel
send whatsapp message from excel sheet through vba
whatsapp automatic msg send
whatsapp automated messages
whatsapp automation
for vba codes join my channel
click on join button
Sub Excel_to_WhatsApp()
Dim WhatsAppNumber As String
Dim lastRecepientNumber As Long
Dim x As Integer
Dim Message As String
Dim DispatchMsg As String
Dim WhatsAppWeb As Object
lastRecepientNumber = Range("B" & Rows.Count).End(xlUp).row
For x = 2 To lastRecepientNumber
WhatsAppNumber = Sheets("Sheet1").Range("b" & x).Value
Message = Sheets("Sheet1").Range("c" & x).Value
ActiveSheet.Shapes(1).Copy
DispatchMsg = "whatsapp://send?phone=" & WhatsAppNumber & "&text=" & Message
Set WhatsAppWeb = CreateObject("InternetExplorer.Application")
WhatsAppWeb.navigate DispatchMsg
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("{ENTER}", True)
Next x
End Sub
ms_designs53
#MSDesigns
#msdesigns53
#funwithfood
#TheBChannel
get new updated codes here in link below
How to send PDF from excel to whatsap...
send whatsapp message through excel
send whatsapp message from excel sheet through vba
whatsapp automatic msg send
whatsapp automated messages
whatsapp automation
for vba codes join my channel
click on join button
Sub Excel_to_WhatsApp()
Dim WhatsAppNumber As String
Dim lastRecepientNumber As Long
Dim x As Integer
Dim Message As String
Dim DispatchMsg As String
Dim WhatsAppWeb As Object
lastRecepientNumber = Range("B" & Rows.Count).End(xlUp).row
For x = 2 To lastRecepientNumber
WhatsAppNumber = Sheets("Sheet1").Range("b" & x).Value
Message = Sheets("Sheet1").Range("c" & x).Value
ActiveSheet.Shapes(1).Copy
DispatchMsg = "whatsapp://send?phone=" & WhatsAppNumber & "&text=" & Message
Set WhatsAppWeb = CreateObject("InternetExplorer.Application")
WhatsAppWeb.navigate DispatchMsg
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("{ENTER}", True)
Next x
End Sub
ms_designs53
#MSDesigns
#msdesigns53
#funwithfood
#TheBChannel
2 سال پیش
در تاریخ 1400/12/06 منتشر شده
است.
41,516
بـار بازدید شده