ارسال رسائل واتس اب من الاكسيل
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
كتابة الرسالة المطلوبة
لتكرار الرسالة لجميع الموظفين اذا العدد يزيد عن 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
بـار بازدید شده