ارسال رسائل واتس اب من الاكسيل

Excel Tube- Ramy Ramadan
Excel Tube- Ramy Ramadan
1.7 هزار بار بازدید - 2 سال پیش - تسمية الشيت WhatsAppكتابة الرسالة المطلوبةلتكرار
تسمية الشيت WhatsApp
كتابة الرسالة المطلوبة
لتكرار الرسالة لجميع الموظفين اذا العدد يزيد عن 200 او اكثر من ذلك نقوم بتحديد الخلية التي بها الرسالة وجميع الخلايا التالية لها ثم من data tools  ثم flash fill
نقوم بوضع الكود البرمجي من قائمة devoleper واختيار module
ربط الواتس مع الكمبيوتر عن طريق الويب
التاكد من لغة الجهاز الي اللغة العربية

كود الارسال
Sub send()
Dim contact As String
Dim text As String
u = Application.WorksheetFunction.CountA(Sheets("whatsapp").Range("a:a")) - 2
ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
Application.Wait (Now + TimeValue("00:00:12"))
For I = 0 To u
contact = Sheets("whatsapp").Range("a2").Offset(I, 0).Value
text = Sheets("whatsapp").Range("i2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(contact, True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(text, True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{TAB}", True)
Next I
End Sub
‪@aymansafwat‬ ‫@المتوحد‬ ‪@museumofthefuture‬ ‪@-motivated5722‬
2 سال پیش در تاریخ 1401/07/27 منتشر شده است.
1,705 بـار بازدید شده
... بیشتر