إرسال رسائل وتساب مخصصة باستخدام الإكسل VBA
5 هزار بار بازدید -
12 ماه پیش
-
كيفية إرسال رسائل مخصصة لكل
كيفية إرسال رسائل مخصصة لكل مستخدم باسمه ورسالته الخاصة باستخدام الأكواد في الإكسل
Sub Send_Text_To_Whatsapp()
Dim Whatsapp_number As String
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim r As Integer
For r = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
Whatsapp_number = sh.Range("D" & r).Value
ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%2B" & Whatsapp_number & "&text=" & sh.Range("C" & r).Value & "&app_absent=1&send=1"
Application.Wait (Now() + TimeValue("00:00:10"))
VBA.SendKeys "~", True
Application.Wait (Now() + TimeValue("00:00:01"))
Next r
MsgBox "process Completed", vbInformation
End Sub
للتواصل:
[email protected]
www.twitter.com/ExcelWithEsam
LinkedIn: esamjoudeh
Sub Send_Text_To_Whatsapp()
Dim Whatsapp_number As String
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim r As Integer
For r = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
Whatsapp_number = sh.Range("D" & r).Value
ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%2B" & Whatsapp_number & "&text=" & sh.Range("C" & r).Value & "&app_absent=1&send=1"
Application.Wait (Now() + TimeValue("00:00:10"))
VBA.SendKeys "~", True
Application.Wait (Now() + TimeValue("00:00:01"))
Next r
MsgBox "process Completed", vbInformation
End Sub
للتواصل:
[email protected]
www.twitter.com/ExcelWithEsam
LinkedIn: esamjoudeh
12 ماه پیش
در تاریخ 1402/04/28 منتشر شده
است.
5,099
بـار بازدید شده