البحث في الموقع
Showing results for tags 'واتساب اكسس'.
تم العثور علي 1 نتيجه
-
السلام عليكم رمضان مبارك عليكم وتقبل الله اعمالكم اخواني الاعزاء استخدام هذا الكود لارسال رسائل عن طريق اكسس الى الواتساب Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & txtNumber & "&text=" & txtMsg Sleep 2000 SendKeys "~" SendKeys "{NUMLOCK}", True Set IE = Nothing الكود يقوم بفتح الواتساب بشكل مباشر دون الرجوع الى متصفح الكروم ولكن يواجهني مشكلة اثناء فتج تطبيق الواتساب وهو انه بعد تنفيذ الكود يقوم بفتح برنامج الواتساب ولكن يبقى برنامج الواتساب معلق في شريط المهام ، وعندما اقوم بتصغير الواتساب يقوم بتطبيق الكود بشكل طبيعي واداناه فيديو يوضح المشكلة مرفق ملف الاكسس اذا امكن حل لهذا المشكلة مع جزيل الشكر لكم . Database1.accdb
