كود لارسال رسائل واتساب

[مصطفى العراقي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

[سامي الحداد]

وعليكم السلام 

جرب الان و وافينا بالنتيجة 

بالتوفيق

Database1 .accdb

[مصطفى العراقي1]

عاشت ايدك اخي هسه تمام شكراً جزيلاً 

[سامي الحداد]

 الشكر لله عزيزي ولهذا المنتدى الذي نتعلم منه.

بالتوفيق 

 

[fadimarrawi]

السلام عليكم

تظهر عندي هذه الرسالة أرجو المساعدة في تجاوزها