18-03-22, 10:28 PM
عمل برنامج او فورم. بلغة فجول بيسك. يقوم ب ارسال رسايل من ملف اكسل عبر الوتس ويب او تطبيق الوتس دسكتوب المتصل بنفس الجهاز الملف الاكسل فيه صفوف متعدد يحتوي عمود رسايل وعمود ارقام الهاتف
هذا كود في اكسل
=============================
إرسال رسائل عبر الواتس أب باستخدام الإكسل
Send messages via Whatsapp by Excel
--------------------------------------------------------------------------------------------------------------------
كود العمل
Sub send()
Dim contact As String
Dim Message 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:20"))
For I = 0 To U
contact = Sheets("whatsapp").Range("b2").Offset(I, 0).Value
Message = Sheets("whatsapp").Range("c2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(contact, True)
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(Message, True)
Call SendKeys("~", True)
Call SendKeys("{TAB}", True)
Next I
End Sub
هذا كود في اكسل
=============================
إرسال رسائل عبر الواتس أب باستخدام الإكسل
Send messages via Whatsapp by Excel
--------------------------------------------------------------------------------------------------------------------
كود العمل
Sub send()
Dim contact As String
Dim Message 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:20"))
For I = 0 To U
contact = Sheets("whatsapp").Range("b2").Offset(I, 0).Value
Message = Sheets("whatsapp").Range("c2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(contact, True)
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(Message, True)
Call SendKeys("~", True)
Call SendKeys("{TAB}", True)
Next I
End Sub