ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم

[Mohameddd200300]

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

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

جزاكم الله كل خير ..على هذا العمل الجميل .. ولكن ممكن لوكان زر الامر ارسال الرسالة امام كل سجل بحيث ان اقوم بارسال الرسالة لكل شخص على حدة المختار فقط دون الحاجة لارسال رسالة الى الكل حتى وان كانت مختلفة .. مع امكانية ابقاء امر ارسال للكل قائم .. ولكم جزيل الشكر .. 

 

[kanory]

تفضل :::::

وهذ هو الكود الذي تحدث عنه أخي   @ mohamedd2003

On Error Resume Next
Langauge ELanguage.Ar
Dim fOK As Boolean
Dim strTemp As String
Forms!whatsapp.SetFocus
    strTemp = Me.txtMessage
    fOK = SetClipboardData_clt(strTemp)
'=========================================================================================================
Langauge ELanguage.en

Application.FollowHyperlink "https://wa.me/" & txtNumbers
auseTime = 40
start = Timer
Do While Timer < start + auseTime
DoEvents
Loop
Call SendKeys("~", True)
Call SendKeys("{Enter}", True)
Call SendKeys("^v", True)
Call SendKeys("{Enter}", True)
'===========================================================================================================
  MsgBox "تم الارسال للرقم المطلوب"

 

[ابو فتحى]

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

كل عام و انتم بخير

ممكن نسخة 2003

 

[ناقل]

تقضل ....

 

WhatsApp2003.mdb

[Lamyaa]

أقترح أن يتم فتح الرابط https://wa.me/" & txtNumbers

داخليا في البرنامج باستخدام أداة Webbrowser

 

 

تم تعديل أبريل 26, 2021 بواسطه Lamyaa

[حامل المسك]

وفقكم الله ورعاكم،،

لم يعمل معي البرنامج بالشكل الصحيح حيث بعد الضغط على إرسال يضع الرسالة في مكان رقم الجوال في البرنامج، ويفتح برنامج الواتس ولكن لا يرسل شيئا.

فما توجيهكم أيها الكرام،،

[Eng. Nabil]

شباب ممكن نحصل على ملفات الاكسس اللي بها الكود

والتي تم معالجة كل مشاكل ارسال رسائل للولتس اب بليزز

[kanory]

في ٢٦‏/٤‏/٢٠٢١ at 13:10, Lamyaa said:

أقترح أن يتم فتح الرابط https://wa.me/" & txtNumbers

داخليا في البرنامج باستخدام أداة Webbrowser

 

 

جاري محاولة تطويرة ......

في ٢٨‏/٤‏/٢٠٢١ at 13:20, حامل المسك said:

وفقكم الله ورعاكم،،

لم يعمل معي البرنامج بالشكل الصحيح حيث بعد الضغط على إرسال يضع الرسالة في مكان رقم الجوال في البرنامج، ويفتح برنامج الواتس ولكن لا يرسل شيئا.

فما توجيهكم أيها الكرام،،

هل طبق ماهو مكتوب في بداية الموضوع ؟؟؟؟؟

43 دقائق مضت, Eng. Nabil said:

شباب ممكن نحصل على ملفات الاكسس اللي بها الكود

والتي تم معالجة كل مشاكل ارسال رسائل للولتس اب بليزز

اخي الكريم موجودة كل الملفات في بداية الموضوع .... بشرط طبق ما في الشرح !!

[salim1281]

السلام عليكم ..جربت النسخة whatsapp_kan وعند الضغط على زر الارسال تظهر الرسالة التالية

علما بأني قمت بتنزيل وتفعيل برنامج الواتس على الجهاز  

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

 

  

في ١١‏/١٠‏/٢٠٢١ at 08:26, salim1281 said:

السلام عليكم ..جربت النسخة whatsapp_kan وعند الضغط على زر الارسال تظهر الرسالة التالية

علما بأني قمت بتنزيل وتفعيل برنامج الواتس على الجهاز  

 

ضع     PtrSafe      قبل كلمة Function وسوف يحل المشكلة

تم تعديل أكتوبر 14, 2021 بواسطه مصطفى العراقي1

[Cap Mohammed Ali]

السلام عليكم .. 
اخوانى انا حملت الملف ولكن لا يرسل الى لرقم واحد فقط اللى هو اول حقل ... ويتجاهل باقي الارقام 

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

في ٢٧‏/٩‏/٢٠٢٠ at 12:32, jjafferr said:

السلام عليكم 🙂

 

اخي @kanory ، وبما اني ماعندي واتس اب ، فرجاء جرب الكود التالي ، علشان اللغة العربية :

Private Sub أمر15_Click()
On Error Resume Next
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.kan + 1
Langauge ELanguage.Ar
Dim fOK As Boolean
Dim strTemp As String
Forms!whatsapp.SetFocus
    strTemp = Me.txtMessage
    'fOK = SetClipboardData_clt(strTemp)
    
    'copy name to clipboard
    Me.txtMessage.SetFocus
    Me.txtMessage.SelStart = 0
    Me.txtMessage.SelLength = Len(Me.txtMessage)
    DoCmd.RunCommand acCmdCopy
    
'=========================================================================================================
'Langauge ELanguage.en

Application.FollowHyperlink "https://wa.me/" & txtNumbers
auseTime = 40
start = Timer
Do While Timer < start + auseTime
DoEvents
Loop
Call SendKeys("~", True)
Call SendKeys("{Enter}", True)
Call SendKeys("^v", True)
Call SendKeys("{Enter}", True)
'===========================================================================================================
DoCmd.GoToRecord , , acNext
  Next
  MsgBox "انتهت الارقام"
End Sub

 

جعفر

 

في ٧‏/١١‏/٢٠٢١ at 16:11, Cap Mohammed said:

السلام عليكم .. 
اخوانى انا حملت الملف ولكن لا يرسل الى لرقم واحد فقط اللى هو اول حقل ... ويتجاهل باقي الارقام 

Cap Mohammed     استخدم هذا الكود لاستاذ جعفر فهو يعمل بشكل صحيح .

[Cap Mohammed Ali]

في ٢٥‏/٩‏/٢٠٢٠ at 20:16, Mohameddd200300 said:

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

 

السلام عليكم .. ممكن أخى الطريقة اللى سويتها ..؟!

[ahmad_3011]

مجهود رائع هل فيه طريقة لارسال مرفقات مع الرسائل

هل الاربع Modules فى البرنامج مهمين للارسال ولا مش كلهم

[ahmad_3011]

بالاضافة ان الرسالة يتم ارسالها مرتين لاول رقم

[mrbakr]

جزاك الله كل خير

[Ahmed_J]

السلام عليكم استاتذتي الاعزاء

ارجوا تحميل الملف بصيغته النهائية بعد التعديلات والذي يدعم اللغة العربية

وفقكم الله  وجعلها في ميزان حسناتكم

تحياتي للجميع

تم تعديل فبراير 6, 2022 بواسطه Ahmed_J

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

ظهر لي خطا في Module1  الاولى  بعد End Function كما في الصورة

تحياتي للجميع

تم تعديل فبراير 7, 2022 بواسطه Ahmed_J

[Ahmed_J]

UP

[jjafferr]

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

 

المفروض ان سطر End Function يكون آخر سطر في الدالة ،

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

• بداية دالة اخرى ، ويكون السطر مثل هذا القبيل:

  Public Function ABC(....)
  
  او
  Function ABC(....)
  
  او
  Sub ABC(....)

   

• او يكون ملاحظة ، فيكون اول السطر: يا علامة ' او كلمة rem

 

 

جعفر

[Ahmed_J]

السلام عليكم  استاذ @jjafferr

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

شكرا للمعلومة الرائعة

اردت صاحب الموضوع  استاذ @kanoryا ن يقوم بالتصحيح  لان واضح انها دالة ثانية لانها منتهية End Sub

لكي نقوم بالتجربة النهائية

تحياتي للجميع

 

تم تعديل فبراير 10, 2022 بواسطه Ahmed_J

[jjafferr]

في هذه الحالة ، اضف علامة ' قبل بقية الاسطر (امام كل سطر ضع علامة ' الى آخر سطر في الدالة) ، على الاقل علشان ما تحصل على خطأ ، وجرب البرنامج مرة اخرى.

[Sabry309]

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