اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

الشرح

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

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

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

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

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

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

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

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

 

 

 

وتساب.zip

  • Like 2
قام بنشر (معدل)

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

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

 

تم تعديل بواسطه أميرالمحبة
قام بنشر
في ٢٣‏/٩‏/٢٠٢٠ 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

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

  • Like 3
قام بنشر (معدل)

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

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

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

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

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

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

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

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

 

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

 

 

WhatsApp_kan.accdb 596 kB · 0 downloads

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

 

 

التكمله هنا

 

تم تعديل بواسطه jjafferr
وضع رابط الموضوع الجديد
  • Like 1
  • Thanks 2
قام بنشر

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

جرب هذا الكود بشرط أن يكون المتصفح الافتراضي 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 "تم الإرسال بنجاح"

 

  • Like 1
قام بنشر
في ٢٤‏/٩‏/٢٠٢٠ 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 "تم الإرسال بنجاح"

 

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

  • Like 4

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information