السلام عليكم
رمضان مبارك عليكم وتقبل الله اعمالكم
اخواني الاعزاء استخدام هذا الكود لارسال رسائل عن طريق اكسس الى الواتساب
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