Send Bulk WhatsApp Automatic Message Using MS Excel | Excel to WhatsApp Step-by-Step Guide || How to send bulk messages in WhatsApp using Excel?

How to send bulk messages in WhatsApp using Excel?

Through this video, I want to teach you how you can automatically send messages on WhatsApp using Microsoft Excel and we can also send photos here. To make this, you must watch this video and read this blog so that you can easily learn how this Excel sheet can be prepared.

Step 1

First of all you have to open your Microsoft Excel. After that you have to take a sheet. Inside the sheet, you have to prepare the format in the way it is shown in the image. After preparing the format, you will also have to prepare a message box. After preparing this format.

You have to type all the numbers in the mobile column inside the seat and if you want to write the name in the name field, you can write the name and prepare your message in the message box. After preparing all these things, our next step comes.

Step-2

In step 2, you have to turn on the developer option in your Microsoft Excel. For that, you have to go to the file menu and you will find a command named option in it. As soon as you click on it, you will find it.

You will find a new box inside the new box. As soon as you click on customization, you will see the developer option there. When you click on it, your developer option gets turned on.

Step-3

In Tape 3 you have to click on the Developer menu. After that you will get the Virtual Basic option in the first command itself.

After the Visual Basic software opens, you have to go to the Insert menu and click on New Model to get a new module. After getting the module, you have to paste your code in it

Copy And Paste The Code

-------------------------------------------------------------------------------------------------------------------------------

Sub WhatsAppMsg()

Dim LastRow As Long

Dim i As Long

Dim strPhoneNumber As String

Dim strMessage As String

Dim strPostData As String

Dim EdgePath As String

Dim photoPath As String

Dim calum As String

' Set the last row to read from column A

LastRow = Range("A" & Rows.Count).End(xlUp).Row

' Path to the Microsoft Edge executable

EdgePath = """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe""" ' Adjust path if necessary

' Loop through each row of the data

For i = 2 To LastRow

strPhoneNumber = Sheets("Sheet1").Cells(i, 1).Value

strMessage = Sheets("Sheet1").Cells(i, 2).Value

ActiveSheet.Shapes(1).Copy

calum = Range("H2").Value

' Custom message

strMessage = strMessage & vbCrLf & vbCrLf & calum

' URL-encode the message

strMessage = Application.WorksheetFunction.EncodeURL(strMessage)

' Construct the WhatsApp URL

strPostData = "https://web.whatsapp.com/send?phone=" & strPhoneNumber & "&text=" & strMessage

' Open the URL in Microsoft Edge

Shell EdgePath & " -url " & strPostData, vbNormalFocus

Application.Wait (Now + TimeValue("00:00:20"))

Call SendKeys("^v")

' Wait for the page to load

Application.Wait (Now + TimeValue("00:00:05")) ' Wait for 20 seconds to let the page load

' Send the message (Enter key)

SendKeys "{ENTER}"

Application.Wait (Now + TimeValue("00:0:10")) ' Wait for 5 seconds after sending the message

' Path to the photo (change this to your actual photo path)

' Close Microsoft Edge

Shell "taskkill /IM msedge.exe", vbHide

Call SendKeys("{Enter}", True)

' Optional: Wait before sending the next message

Application.Wait (Now + TimeValue("00:00:10")) ' Wait for 2 minutes before the next message

Next i

End Sub

--------------------------------------------------------------------------------------------------------------------------------

You have to save it in micro enabled format.

After that, you will find a tab named Controller in the developer, there is insert in it.

You can select any button from insert and insert that button and after inserting,

you have to link the micro created with it. WhatsApp has to link it with it and your file is ready. To send messages automatically through WhatsApp Excel.