send whatsapp message from excel with image file

MS Designs
MS Designs
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
2 سال پیش در تاریخ 1400/12/06 منتشر شده است.
41,516 بـار بازدید شده
... بیشتر