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

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


kanory

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

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

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

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

 

رابط هذا التعليق
شارك

تفضل :::::

وهذ هو الكود الذي تحدث عنه أخي   @ 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 "تم الارسال للرقم المطلوب"

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

  • 3 months later...

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

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

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

رابط هذا التعليق
شارك

  • 2 months later...
في ٢٦‏/٤‏/٢٠٢١ at 13:10, Lamyaa said:

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

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

 


 

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • 2 months later...

 

  

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

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

image.png.4dc5dc974560fe1b6aea413183e61cb6.png

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

 


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

تم تعديل بواسطه مصطفى العراقي1
  • Like 1
رابط هذا التعليق
شارك

  • 4 weeks later...
في ٢٧‏/٩‏/٢٠٢٠ 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     استخدم هذا الكود لاستاذ جعفر فهو يعمل بشكل صحيح .

  • Thanks 1
رابط هذا التعليق
شارك

  • 4 weeks later...
في ٢٥‏/٩‏/٢٠٢٠ at 20:16, Mohameddd200300 said:

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

 

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

رابط هذا التعليق
شارك

  • 3 weeks later...
  • 1 month later...

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

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

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

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

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

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

 

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

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

  • بداية دالة اخرى ، ويكون السطر مثل هذا القبيل:
    Public Function ABC(....)
    
    او
    Function ABC(....)
    
    او
    Sub ABC(....)

     

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

 

 

جعفر

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

  • 3 weeks later...

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information