如何在excel vba中一次性快速发送批量whatsapp消息？

我正在尝试通过excel宏发送批量WhatsApp消息。但是，如果我发送1000条信息，这需要很长时间。我不能一次发送所有消息。我该怎么办？可能吗？此外，如果我点击电脑上的另一个东西，WhatsApp最有效，WhatsApp消息不会发送。如何解决这些问题：
注意：我正在使用WhatsApp桌面应用程序。
这是我正在使用for循环执行的代码的一部分：

Set IE = CreateObject("InternetExplorer.Application") 'Create object IE
IE.navigate "whatsapp://send?phone=" & phone & "&text=Dear " & Sheet1.Cells(rowcount, 1) & vbLf & " " & mesaj 'Send message "something" to this phone (Brazil)
Application.Wait Now() + TimeSerial(0, 0, 2) 'ok just one wait and sendkeys
   
If pic <> "" Then
    Call SendKeys("^v")
    Application.Wait Now() + TimeSerial(0, 0, 1)
End If
SendKeys "~"
'IE.Quit 'The navigate already kills the IE

Set IE = Nothing 'Clear the object

Set IE=CreateObject（“InternetExplorer.Application”）'创建对象IE
即“导航”whatsapp://send?phone=“&phone&”&text=daire”&Sheet1.手机（行数，1）&vbLf&“&mesaj”向此手机发送消息“某物”（巴西）
Application.Wait Now（）+TimeSerial（0，0，2）'确定只需一个Wait和sendkey
如果是pic，那么
呼叫发送键（“^v”）
Application.Wait Now（）+时间序列（0,0,1）
如果结束
发送键“~”
“IE.Quit”导航已杀死IE
设置IE=Nothing'清除对象

您一次只能向所有人发送一封带有group send to send的邮件。我也有一个示范练习，如果你愿意，你可以检查一下。Whatsapp通过桌面在3到6秒内发送消息。

---

转到搜索框，按电话号码输入联系人，不要使用URL

send？phone=“&phone&”&text=

Dim phone as long
Dim message as string
Dim i as long
Set IE = CreateObject("InternetExplorer.Application") 'Create object IE
    IE.navigate "https://web.whatsapp.com/"
Application.Wait(Now + TimeValue("0:00:15")) 
for i= 1 to 5
    phone= cells(i,"A")
    message= cells(i,"B")
    SendKeys("{TAB}", True)
    SendKeys("{TAB}", True)
    SendKeys(phone, True)
    SendKeys("~", True)
    SendKeys(message, True)
    SendKeys("~", True)
    Application.Wait(Now + TimeValue("0:00:03")) 
Next

---

请接受我的回答。

我不能接受你的回答。因为我必须发送批量和自动消息。每次发送一条消息时使用的方法。这不是Internet Explorer中meDoes whatsapp web work的答案？循环发送多条消息而不设置ie=Nothing是的，它与iehi@NoamBrand一起工作，如何使用循环发送多条消息？请改进您的答案代码