رسائل whatsapp (وتساب) في اكسس

[Mohameddd200300]

السلام عليكم ورحمة الله وبركاتة

كيف حالكم اخواني الكرام  اليوم حبيت اشاركم موضع الرسائل في الوتساب من خلال اكسس الطريقة ممكنه ومجربه ولاكن هناك بعض المشاكل سوفا نحلها مع بعض انشالله

طبعا الفكره تم تطبيقها في اكسل من خلال  الاستاذ ( منذر ) وهذا رابط المقطع الذي سوا فيه الشرح جزاه الله خيرا (  https://youtu.be/UX-5cFp8Yo8 )  

انا قمة مع صديقي (  ابو ياسين )  بتصميم كود ونموذج للفكرة قبل فتره ولاكن بسس انشغلينا في الحياة لم يتم اكمل الفكره   ولاكن الان الحمدلله  تم اكمال الكود ولاكن هناك بعض المشاكل كما ذكرت سابقا اتمنا ان نتعاون في حلها هي مشكلة واحده  ولاكن بي البداية  سوفا اقو بشرح الفكره وطريقة عملها بي البداية .

الشرح

اول قمة بعمل جدول ونموذج فيه  الاسم و رقم الجوال المطلوب ارسل له وايضا  نص الرساله  المطلوب     طبعا راح نحتاج في هذا الموضع  ( متصفح - وبرنامج الوتساب )    

برنامج الوتساب تقم  بتثبيته من هذا الرابط   (  https://www.whatsapp.com/download/  ) 

قم  بتسجيل الدخول من خلال الوتاسب الخص بك مثل المتصفح    والطرقة مذكورة في شرح الاستاذ منذر  في الرابط السابق (هذي الطريقة لا تسبب حضر الرقم )

طيب عمل الكود هو بي اخذ  الرقم  من النموذج   ونص الرساله وفتح المتصفح  من خلال جوجل بعد ان قمنا بتكمن الخيار بفتح التطبيق  تلقائي   سوفا يقوم بفتح الوتاسب بفتح محادثه بي الرقم الذي سجلته وكتابة الرساله وبعد 3 ثواني يقوم بغط على ارسل  .    الكود  الذي فتح المتصفح ويقوم بي اخذ الرقم وا  النص الرساله   (    Application.FollowHyperlink "https://wa.me/" & txtNumbers & "?text=" & txtMessage   )

  استخدمة دالة (  DO  )   لتكرار العميلة  حتا انها  الارقام المسجله    قمت بي ادخل  الربع ارقام كا تجربة  بعد مقمة بي عمل انتر  فتح المتصفح واخذ اللارقم مع الرسالة   وفتح الوتساب  ورسل وبعدها فتح نافذه جديده  واخذ الرقم الثاني  وفتح محادثة جديده وقام بكتابة الرسله ارسالها   ولاكن هنا المشكة بي الرقم الثالث والرابع والخ   الكود شغال  فتح اربع نوافذ ولاكن بي الرقم الثاني   المشكلة طلعة في دالة DO عند الضغط على انتر يقوم باخذ القيمة الاوله  ويرسل الكود ويرجع ياخذ السجل الثاني وياخذه  بس المشكلة بعد مايفتح المتصفح  لا ينتقل الى السجل الثالث  والكود يقوم باخذ القيمة الي وقف عليها المواشر  فهمتو  هنا المشكلة   في شي ثاني الرسالة اذا كانت عربي   مايقبلها الكود ويخليها رموز ولاكن الاخ منذر حل المشكلة من خلال الحافظ لو تابعتو الشرح بتفهمو 

  طبع الملف الي فيه الشغل  رفعته مع المقال ياليت تحملهو وتسو تجارب عليه ونتشارك الخبره مع بعض وجزاكم الله خير 

ملاحظة  (انا اول مره اكتب مقال او اشارك في موضوع بخبرتي  التي اكتسبتها بفضل الله بعدها من موقعنا هذا  (افيسنا)  ادري طولت ولاكن الموضوع يهم ناس كثير وشكرا لكم   

اخوكم (محمد احمد)

 

 

 

وتساب.zip

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

برجاء زيارة هذا الموضوع الزاخر بالمناقشات وارجو من الله ان يفيدك

تحياتي

[أميرالمحبة]

ياريت تشاركنا أخي الكريم في الفكرة اللي طرحتها هنا :

https://www.officena.net/ib/topic/77450-مطلوب-ارسال-رسائل-نصية-عبر-الواتس-اب-watsapp/page/3/

18 ساعات مضت, Mohameddd200300 said:

السلام عليكم ورحمة الله وبركاتة

كيف حالكم اخواني الكرام  اليوم حبيت اشاركم موضع الرسائل في الوتساب من خلال اكسس الطريقة ممكنه ومجربه ولاكن هناك بعض المشاكل سوفا نحلها مع بعض انشالله

طبعا الفكره تم تطبيقها في اكسل من خلال  الاستاذ ( منذر ) وهذا رابط المقطع الذي سوا فيه الشرح جزاه الله خيرا (  https://youtu.be/UX-5cFp8Yo8 )  

انا قمة مع صديقي (  ابو ياسين )  بتصميم كود ونموذج للفكرة قبل فتره ولاكن بسس انشغلينا في الحياة لم يتم اكمل الفكره   ولاكن الان الحمدلله  تم اكمال الكود ولاكن هناك بعض المشاكل كما ذكرت سابقا اتمنا ان نتعاون في حلها هي مشكلة واحده  ولاكن بي البداية  سوفا اقو بشرح الفكره وطريقة عملها بي البداية .

الشرح

اول قمة بعمل جدول ونموذج فيه  الاسم و رقم الجوال المطلوب ارسل له وايضا  نص الرساله  المطلوب     طبعا راح نحتاج في هذا الموضع  ( متصفح - وبرنامج الوتساب )    

برنامج الوتساب تقم  بتثبيته من هذا الرابط   (  https://www.whatsapp.com/download/  ) 

قم  بتسجيل الدخول من خلال الوتاسب الخص بك مثل المتصفح    والطرقة مذكورة في شرح الاستاذ منذر  في الرابط السابق (هذي الطريقة لا تسبب حضر الرقم )

طيب عمل الكود هو بي اخذ  الرقم  من النموذج   ونص الرساله وفتح المتصفح  من خلال جوجل بعد ان قمنا بتكمن الخيار بفتح التطبيق  تلقائي   سوفا يقوم بفتح الوتاسب بفتح محادثه بي الرقم الذي سجلته وكتابة الرساله وبعد 3 ثواني يقوم بغط على ارسل  .    الكود  الذي فتح المتصفح ويقوم بي اخذ الرقم وا  النص الرساله   (    Application.FollowHyperlink "https://wa.me/" & txtNumbers & "?text=" & txtMessage   )

  استخدمة دالة (  DO  )   لتكرار العميلة  حتا انها  الارقام المسجله    قمت بي ادخل  الربع ارقام كا تجربة  بعد مقمة بي عمل انتر  فتح المتصفح واخذ اللارقم مع الرسالة   وفتح الوتساب  ورسل وبعدها فتح نافذه جديده  واخذ الرقم الثاني  وفتح محادثة جديده وقام بكتابة الرسله ارسالها   ولاكن هنا المشكة بي الرقم الثالث والرابع والخ   الكود شغال  فتح اربع نوافذ ولاكن بي الرقم الثاني   المشكلة طلعة في دالة DO عند الضغط على انتر يقوم باخذ القيمة الاوله  ويرسل الكود ويرجع ياخذ السجل الثاني وياخذه  بس المشكلة بعد مايفتح المتصفح  لا ينتقل الى السجل الثالث  والكود يقوم باخذ القيمة الي وقف عليها المواشر  فهمتو  هنا المشكلة   في شي ثاني الرسالة اذا كانت عربي   مايقبلها الكود ويخليها رموز ولاكن الاخ منذر حل المشكلة من خلال الحافظ لو تابعتو الشرح بتفهمو 

  طبع الملف الي فيه الشغل  رفعته مع المقال ياليت تحملهو وتسو تجارب عليه ونتشارك الخبره مع بعض وجزاكم الله خير 

ملاحظة  (انا اول مره اكتب مقال او اشارك في موضوع بخبرتي  التي اكتسبتها بفضل الله بعدها من موقعنا هذا  (افيسنا)  ادري طولت ولاكن الموضوع يهم ناس كثير وشكرا لكم   

اخوكم (محمد احمد)

 

 

 

وتساب.zip 63 kB · 10 downloads

 

تم تعديل سبتمبر 23, 2020 بواسطه أميرالمحبة

[kanory]

في ٢٣‏/٩‏/٢٠٢٠ at 05:27, Mohameddd200300 said:

السلام عليكم ورحمة الله وبركاتة

كيف حالكم اخواني الكرام  اليوم حبيت اشاركم موضع الرسائل في الوتساب من خلال اكسس الطريقة ممكنه ومجربه ولاكن هناك بعض المشاكل سوفا نحلها مع بعض انشالله

طبعا الفكره تم تطبيقها في اكسل من خلال  الاستاذ ( منذر ) وهذا رابط المقطع الذي سوا فيه الشرح جزاه الله خيرا (  https://youtu.be/UX-5cFp8Yo8 )  

انا قمة مع صديقي (  ابو ياسين )  بتصميم كود ونموذج للفكرة قبل فتره ولاكن بسس انشغلينا في الحياة لم يتم اكمل الفكره   ولاكن الان الحمدلله  تم اكمال الكود ولاكن هناك بعض المشاكل كما ذكرت سابقا اتمنا ان نتعاون في حلها هي مشكلة واحده  ولاكن بي البداية  سوفا اقو بشرح الفكره وطريقة عملها بي البداية .

الشرح

اول قمة بعمل جدول ونموذج فيه  الاسم و رقم الجوال المطلوب ارسل له وايضا  نص الرساله  المطلوب     طبعا راح نحتاج في هذا الموضع  ( متصفح - وبرنامج الوتساب )    

برنامج الوتساب تقم  بتثبيته من هذا الرابط   (  https://www.whatsapp.com/download/  ) 

قم  بتسجيل الدخول من خلال الوتاسب الخص بك مثل المتصفح    والطرقة مذكورة في شرح الاستاذ منذر  في الرابط السابق (هذي الطريقة لا تسبب حضر الرقم )

طيب عمل الكود هو بي اخذ  الرقم  من النموذج   ونص الرساله وفتح المتصفح  من خلال جوجل بعد ان قمنا بتكمن الخيار بفتح التطبيق  تلقائي   سوفا يقوم بفتح الوتاسب بفتح محادثه بي الرقم الذي سجلته وكتابة الرساله وبعد 3 ثواني يقوم بغط على ارسل  .    الكود  الذي فتح المتصفح ويقوم بي اخذ الرقم وا  النص الرساله   (    Application.FollowHyperlink "https://wa.me/" & txtNumbers & "?text=" & txtMessage   )

  استخدمة دالة (  DO  )   لتكرار العميلة  حتا انها  الارقام المسجله    قمت بي ادخل  الربع ارقام كا تجربة  بعد مقمة بي عمل انتر  فتح المتصفح واخذ اللارقم مع الرسالة   وفتح الوتساب  ورسل وبعدها فتح نافذه جديده  واخذ الرقم الثاني  وفتح محادثة جديده وقام بكتابة الرسله ارسالها   ولاكن هنا المشكة بي الرقم الثالث والرابع والخ   الكود شغال  فتح اربع نوافذ ولاكن بي الرقم الثاني   المشكلة طلعة في دالة DO عند الضغط على انتر يقوم باخذ القيمة الاوله  ويرسل الكود ويرجع ياخذ السجل الثاني وياخذه  بس المشكلة بعد مايفتح المتصفح  لا ينتقل الى السجل الثالث  والكود يقوم باخذ القيمة الي وقف عليها المواشر  فهمتو  هنا المشكلة   في شي ثاني الرسالة اذا كانت عربي   مايقبلها الكود ويخليها رموز ولاكن الاخ منذر حل المشكلة من خلال الحافظ لو تابعتو الشرح بتفهمو 

  طبع الملف الي فيه الشغل  رفعته مع المقال ياليت تحملهو وتسو تجارب عليه ونتشارك الخبره مع بعض وجزاكم الله خير 

ملاحظة  (انا اول مره اكتب مقال او اشارك في موضوع بخبرتي  التي اكتسبتها بفضل الله بعدها من موقعنا هذا  (افيسنا)  ادري طولت ولاكن الموضوع يهم ناس كثير وشكرا لكم   

اخوكم (محمد احمد)

 

 

 

وتساب.zip 63 kB · 20 downloads

اعتقد مشكلة اللغة العربية في تحويل اللغة من العربية الى الانجليزية والعكس ........ 

[kanory]

أخي الكريم تابع هذا الموضوع هنا ...

15 ساعات مضت, kanory said:

السلام عليكم ورحمة الله وبركاته 

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

اضع بين يديكم برنامج يقوم بارسال رسائل الواتس بدون حفظ الرقم في جهات الاتصال ويمكن استخدامه وتطويره لارسال رسائل للعملاء مثلا

جربوه واعطونا انطباعكم حوله لتطويره والاستفادة منه

ملاحظة هامة يجب تنصيب رنامج الواتس في جهازك ليعمل البرنامج

هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40  يمكنك تغييرها ليتناسب مع سرعة جهازك ......

 

منتظر انطباعاتكم حول البرنامج ؟؟؟؟

 

 

WhatsApp_kan.accdb 596 kB · 0 downloads

هنا تجدون الموضوع السابق ......

 

 

التكمله هنا

 

تم تعديل سبتمبر 25, 2020 بواسطه jjafferr
وضع رابط الموضوع الجديد

[ابوآمنة]

حياك الله أخ محمد

جرب هذا الكود بشرط أن يكون المتصفح الافتراضي Google Chrome  

هذه الطريقة تدعم العربي

لاحظ url : يبدأ api

https://api.whatsapp.com/

بينما الخاص بك لا يدعم العربي

https://wa.me/

وهذا الكود

Dim X As String
Dim rst As Variant


Set rst = CurrentDb.OpenRecordset("Select * From whatsapp")
rst.MoveFirst
Do Until rst.EOF
On Error Resume Next




Application.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" & rst!nampr & "&text=" & rst!msgboax

Pause (2)

Call SendKeys("~", True)


rst.MoveNext

Loop
Set rst = Nothing



MsgBox "تم الإرسال بنجاح"

 

[kanory]

في ٢٤‏/٩‏/٢٠٢٠ at 23:11, ابوآمنة said:

حياك الله أخ محمد

جرب هذا الكود بشرط أن يكون المتصفح الافتراضي Google Chrome  

هذه الطريقة تدعم العربي

لاحظ url : يبدأ api

https://api.whatsapp.com/

بينما الخاص بك لا يدعم العربي

https://wa.me/

وهذا الكود

Dim X As String
Dim rst As Variant


Set rst = CurrentDb.OpenRecordset("Select * From whatsapp")
rst.MoveFirst
Do Until rst.EOF
On Error Resume Next




Application.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" & rst!nampr & "&text=" & rst!msgboax

Pause (2)

Call SendKeys("~", True)


rst.MoveNext

Loop
Set rst = Nothing



MsgBox "تم الإرسال بنجاح"

 

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

[ابوآمنة]

العفو أخي @kanory  🙏 وبارك الله فيك و زادك الله علماً وعملاً صالحاً.

 

[Mohameddd200300]

مرحبا شباب محد عنده فكره كيف نرسل الصور ؟ باقي هذي الفكره لازم نشوف لها حل. وشكر لكم 

[ابو فتحى]

ممكن نسخة 2003

[محمود _ المصري]

هل متاح نسخة 2003