كيف يمكن ايقاف رسالة اشعار الامان في الاكسس

[ابو البشر]

كما هو واضح من السؤال كيف يمكن ايقاف هذه الرسالة ؟؟؟

بارك الله فيكم ....

 

[Moosak]

جرب استخدم هذه الدالة لفتح الملفات :

Public Sub OpenPath(strPath As String)
	Shell "explorer.exe" & " " & strPath, vbNormalFocus
End Sub

وطريقة استخدامها بالشكل التالي :

OpenPath "C:\Windows" 

 

[ابو البشر]

2 ساعات مضت, Moosak said:

جرب استخدم هذه الدالة لفتح الملفات :

Public Sub OpenPath(strPath As String)
	Shell "explorer.exe" & " " & strPath, vbNormalFocus
End Sub

وطريقة استخدامها بالشكل التالي :

OpenPath "C:\Windows" 

 

كيف يتم التطبيق على هذا الارتباط ......

 

ABO.mdb

[Moosak]

تفضل 🙂 

ABO.mdb

[ابو البشر]

اشكرك على الرد ...... بارك الله فيك 

لكن يفتح لي متصفح الاكسبلورر .... المفروض يفتح موقع الواتس 

تم تعديل أغسطس 1, 2022 بواسطه ابو البشر

[Amr Ashraf]

15 دقائق مضت, ابو البشر said:

المفروض يفتح موقع الواتس

السلام عليكم ,, المفروض يفتح موقع الواتس ام برنامج الواتس اب نفسه اذا كان مثبت على الكمبيوتر ؟

[Moosak]

جرب إضافة هذه قبل الرابط :

http:\\

 

[ابو البشر]

1 دقيقه مضت, Amr Ashraf said:

السلام عليكم ,, المفروض يفتح موقع الواتس ام برنامج الواتس اب نفسه اذا كان مثبت على الكمبيوتر ؟

نعم اخي يفتح موقع الواتس بعد تمرير الرقم والرسالة يتم فتح برنامج الواتس .... ولكن يفتح المتصفح في الخلفية دون ان تظهر امام المستخدم .... فيبدوا وكأن برنامج الاكسس يتعامل مباشرة مع برنامج الواتس .... بارك الله فيك على التفاعل ...

1 دقيقه مضت, Moosak said:

جرب إضافة هذه قبل الرابط :

http:\\

 

جاري التجربة استاذي الفاضل ......

[Amr Ashraf]

1 دقيقه مضت, ابو البشر said:

نعم اخي يفتح موقع الواتس بعد تمرير الرقم والرسالة يتم فتح برنامج الواتس .... ولكن يفتح المتصفح في الخلفية دون ان تظهر امام المستخدم .... فيبدوا وكأن برنامج الاكسس يتعامل مباشرة مع برنامج الواتس .... بارك الله فيك على التفاعل ...

تمام جزاك الله خير على التوضيح .. متابع

[ابو البشر]

7 دقائق مضت, Moosak said:

جرب إضافة هذه قبل الرابط :

http:\\

 

ظهرت هذه الرسالة .....

 

[Amr Ashraf]

مشاركة مع اخى موسى هل يمكنك تجربة التالى :

Application.FollowHyperlink "http://api.whatsapp.com/send?phone=xxxxxxxxxxxxxxxx"

وقم بتغيير الباقى كما تريد

 

[ابو البشر]

5 دقائق مضت, Amr Ashraf said:

مشاركة مع اخى موسى هل يمكنك تجربة التالى :

Application.FollowHyperlink "http://api.whatsapp.com/send?phone=xxxxxxxxxxxxxxxx"

وقم بتغيير الباقى كما تريد

 

الطريقة هذه جربتها من قبل .... ولغيت العمل بها لانها تظهر المتصفح امام المستخدم ... جزاك الله خيرا ....

وايضا هذه الطريقة تظهرها ... غير مرغوب فيها ....

Dim IEE As Object
Set IEE = CreateObject("InternetExplorer.Application") 'Create object IEE
IEE.navigate "https://wa.me/" & txtNumbers

 

[Amr Ashraf]

1 دقيقه مضت, ابو البشر said:

وايضا هذه الطريقة تظهرها ... غير مرغوب فيها ....

أها فهمت الفكرة .. يعنى الطريقة موجودة ولكن الفكرة عدم اظهار المتصفح .. للأسف لم اجرب تكامل الواتس كثيراً وسأتابع الموضوع لأستفيد معك 😊 .

ملحوظة : الاستاذ سيمو باكس اعتقد كان صمم اداة دوت نت للمساعدة فى موضوع ارسال الواتس ابحث فى المنتدى اذا لم تشاهدها من قبل . بالنوفيق

 

 

[ابو البشر]

8 دقائق مضت, Amr Ashraf said:

أها فهمت الفكرة .. يعنى الطريقة موجودة ولكن الفكرة عدم اظهار المتصفح .. للأسف لم اجرب تكامل الواتس كثيراً وسأتابع الموضوع لأستفيد معك 😊 .

ملحوظة : الاستاذ سيمو باكس اعتقد كان صمم اداة دوت نت للمساعدة فى موضوع ارسال الواتس ابحث فى المنتدى اذا لم تشاهدها من قبل . بالنوفيق

 

 

اشكرك اخي الكريم .... بارك الله فيك ...

[Moosak]

جرب الآن أخي أبو البشر 🙂 

إرسال مع مرفقات ..

ABO.mdb

[ابو البشر]

شكرا جزيلا لكما .... كتب الله اجركما ....

[fadimarrawi]

السلام  عليكم 

عند تشغيل المرفق الاخير تظهر هذه الرسالة  

أرجو المساعدة

[fadimarrawi]

لسلام  عليكم 

عند تشغيل المرفق الاخير تظهر هذه الرسالة  

أرجو المساعدة