safaa salem5 قام بنشر يناير 6 مشاركة قام بنشر يناير 6 (معدل) ممكن طريقه ارسال ملفات ب د اف عن طريق الواتس الويب من خلال الاكسيس انا جربت كل البرامج الموجوده على المنتدى مفيش حاجه شغاله معايا تم تعديل يناير 6 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 6 مشاركة قام بنشر يناير 6 بما ان الامثلة كثيرة في المنتدى وجميعها لم تعمل معك لذا الشرح النظري لن يفيد وبما ان المطلوب هو واتس ويب جربي هذا المثال .. في هذه المشاركة واعرضي لنا الاخطاء التي تظهر لك رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يناير 6 مشاركة قام بنشر يناير 6 للاسف مشكلة اى تطبيقات تعمد على وسيط قد تعمل عند البعض ولا تعمل عند اخرين ويرجع ذلك الى اصدارات الوسطاء السبب ان التطبيق يقوم بارسال البيانات عبر دوال للمتصفحات او للتطبيق ومع التحديثات التى تصل الى الويندوز او جوجل كروم او باقى المتصفحات قد تحدث تتغيرات تعود بالسلب على مثل هذه التطبيقات لذلك لا احب استعمال اى وسطاء .. الوسطاء يمتنعون لا يمكن إرسال رسائل WhatsApp من خلال VBA مباشرة باستخدام WhatsApp Desktop أو WhatsApp Web يتم استخدام WhatsApp Desktop و WhatsApp Web للتفاعل مع رقم هاتف مرتبط بحساب WhatsApp على هاتفك المحمول يمكنك التفاعل مع WhatsApp عبر الحوارات النصية والوسائط والمزيد من خلال تلك الوسائل ولكن الوصول إلى واجهة برمجة التطبيقات (API) الخاصة بـ WhatsApp مباشرةً لا يزال مقيدًا ويتم حاليًا توفير واجهة برمجة تطبيقات (API) WhatsApp Business API لأغراض الأعمال إذا كنتم بحاجة إلى التفاعل مع WhatsApp من خلال VBA يمكنك استخدام تقنيات أخرى مثل استخدام السيرفرات الوسيطة والتي تتيح لك التحكم في التطبيق من خلال البرمجة (على الرغم من أن هذا قد يتطلب إعدادات متقدمة والتى لن يكون مسموحًا به أصلا ً من قبل WhatsApp) وذلك بسبب سياسات WhatsApp وشروط الاستخدام الخاصة بها رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يناير 6 مشاركة قام بنشر يناير 6 على سبيل المثال #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Public Function SendWhatsAppMsg(toNumber As String, Optional Msg As String, Optional FilePathh As String) Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = False IE.Navigate "whatsapp://send?phone=" & toNumber & "&Text=" & Nz(Msg, "") Sleep 2000 If Len(FilePathh) > 5 Then SendKeys "+{TAB}" SendKeys "~" Sleep 2000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "~" Sleep 2000 SendKeys Nz(FilePathh, "") SendKeys "~" Sleep 3000 Else 'MsgBox "No" End If SendKeys "~" SendKeys "{NUMLOCK}", True Set IE = Nothing End Function هذا الكود يستخدم VBA لفتح WhatsApp Web (WhatsApp عبر المتصفح) وإرسال رسالة نصية أو رسائل معينة تعتمد هذه الطريقة على استخدام إطار الإنترنت (InternetExplorer.Application) لفتح WhatsApp Web ومحاكاة إرسال الرسائل باستخدام SendKeys. ومع ذلك، يجب أن ألفت انتباهكم إلى أن استخدام SendKeys يعتبر طريقة غير موثوقة وقد تتعرض للمشاكل في بيئات مختلفة تعتمد هذه الطريقة على تحكم البرنامج في العناصر التفاعلية في واجهة المستخدم وهو شيء قد يتغير في التحديثات المستقبلية لتطبيقات المتصفح وبالفعل تم وقف التعامل مع هذا المتصفح نهائيا فى تحديثات ونسخ الويندوز الحديثة فأصبح غير معتمد نهائيا إذا كنتم بحاجة إلى التفاعل مع واتساب بشكل برمجي يمكن الأفضل استخدام واجهة برمجة تطبيقات WhatsApp Business API ولكن هذا يتطلب تسجيلًا كشركة واستخدامه لأغراض الأعمال رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 6 hours ago, ابوخليل said: بما ان الامثلة كثيرة في المنتدى وجميعها لم تعمل معك لذا الشرح النظري لن يفيد وبما ان المطلوب هو واتس ويب جربي هذا المثال .. في هذه المشاركة واعرضي لنا الاخطاء التي تظهر لك استاذى الجليل المعلم الفضيل ابوخليل لكم سعدت برد حضرتك على منشورى انا نزلت المرفق الخاص بحضرتك بصراحه لما بشغله بحس انى بسمع عمرو دياب انا عايش ومش عايش😇 مره يشتغل ومره لا بس هو فيه حاجه حلوه ايه هى مش عارفه😃 كمان مش بيرسل لاى حد غير اللى موجود فى قايمة المحادثه او ان شئت قل المتسجلين عندى سابقا انا محتاجاه بشده فى تصميمى لبرنامج المعمل لانى محتاجه ابعت نتايج للتحاليل للمرضى من خلال الواتس اتمنى من حضرتك بعد ما تحتسى فنجان القهوه تجربه بنفسك عشان انا حاسه انه يجى منه غير كل اللى انا جربتهم 3 minutes ago, ابو جودي said: على سبيل المثال #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Public Function SendWhatsAppMsg(toNumber As String, Optional Msg As String, Optional FilePathh As String) Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = False IE.Navigate "whatsapp://send?phone=" & toNumber & "&Text=" & Nz(Msg, "") Sleep 2000 If Len(FilePathh) > 5 Then SendKeys "+{TAB}" SendKeys "~" Sleep 2000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "~" Sleep 2000 SendKeys Nz(FilePathh, "") SendKeys "~" Sleep 3000 Else 'MsgBox "No" End If SendKeys "~" SendKeys "{NUMLOCK}", True Set IE = Nothing End Function هذا الكود يستخدم VBA لفتح WhatsApp Web (WhatsApp عبر المتصفح) وإرسال رسالة نصية أو رسائل معينة تعتمد هذه الطريقة على استخدام إطار الإنترنت (InternetExplorer.Application) لفتح WhatsApp Web ومحاكاة إرسال الرسائل باستخدام SendKeys. ومع ذلك، يجب أن ألفت انتباهكم إلى أن استخدام SendKeys يعتبر طريقة غير موثوقة وقد تتعرض للمشاكل في بيئات مختلفة تعتمد هذه الطريقة على تحكم البرنامج في العناصر التفاعلية في واجهة المستخدم وهو شيء قد يتغير في التحديثات المستقبلية لتطبيقات المتصفح وبالفعل تم وقف التعامل مع هذا المتصفح نهائيا فى تحديثات ونسخ الويندوز الحديثة فأصبح غير معتمد نهائيا إذا كنتم بحاجة إلى التفاعل مع واتساب بشكل برمجي يمكن الأفضل استخدام واجهة برمجة تطبيقات WhatsApp Business API ولكن هذا يتطلب تسجيلًا كشركة واستخدامه لأغراض الأعمال انا عندى تطبيق كنت شرياه من شركه ما خاص بالتسويق هل ممكن استدعىه من الاكسيس بشرط انه يفتحلى ببيانات المريض مثل الاسم والرقم هذه صوره له اعلم انه لا يخفى على حضرتك رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 1 hour ago, ابو جودي said: على سبيل المثال #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Public Function SendWhatsAppMsg(toNumber As String, Optional Msg As String, Optional FilePathh As String) Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = False IE.Navigate "whatsapp://send?phone=" & toNumber & "&Text=" & Nz(Msg, "") Sleep 2000 If Len(FilePathh) > 5 Then SendKeys "+{TAB}" SendKeys "~" Sleep 2000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "~" Sleep 2000 SendKeys Nz(FilePathh, "") SendKeys "~" Sleep 3000 Else 'MsgBox "No" End If SendKeys "~" SendKeys "{NUMLOCK}", True Set IE = Nothing End Function هذا الكود يستخدم VBA لفتح WhatsApp Web (WhatsApp عبر المتصفح) وإرسال رسالة نصية أو رسائل معينة تعتمد هذه الطريقة على استخدام إطار الإنترنت (InternetExplorer.Application) لفتح WhatsApp Web ومحاكاة إرسال الرسائل باستخدام SendKeys. ومع ذلك، يجب أن ألفت انتباهكم إلى أن استخدام SendKeys يعتبر طريقة غير موثوقة وقد تتعرض للمشاكل في بيئات مختلفة تعتمد هذه الطريقة على تحكم البرنامج في العناصر التفاعلية في واجهة المستخدم وهو شيء قد يتغير في التحديثات المستقبلية لتطبيقات المتصفح وبالفعل تم وقف التعامل مع هذا المتصفح نهائيا فى تحديثات ونسخ الويندوز الحديثة فأصبح غير معتمد نهائيا إذا كنتم بحاجة إلى التفاعل مع واتساب بشكل برمجي يمكن الأفضل استخدام واجهة برمجة تطبيقات WhatsApp Business API ولكن هذا يتطلب تسجيلًا كشركة واستخدامه لأغراض الأعمال هل ممكن توضيح طريقة استخدام الكود بملف مع الشكر رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 6 مشاركة قام بنشر يناير 6 كما تفضل به ابو جودي .. وأجاد كل محاولاتنا للارسال عبر الواتس هي اجتهادات للتعامل مع المتصفح ..وارسال الاوامر الخارجية .. بالضبط تماما وكأننا وضعنا شخص يعمل على لوحة المفاتيح هذه المتصفحات عرضة للتحديث بين فترة واخرى .. حسب علمي .. هناك اكثر من طريقة مضمونة لارسال المرفقات الى العملاء .. - البريد الاكتروني .. وهو المتبع لدى 98% من المؤسسات والجهات الحكومية والتجارية - بعد انتشار استخدام الواتساب __ الاشتراك التجاري في واتساب .. - من خلال تطبيق الجهه او موقعها .. يمكن للعميل تنزيل المرفقات وطباعتها ملحوظة : عندنا برامج تخدم المدارس مدفوعة .. هذه المدارس لم تقبل استبدال الرسائل النصية ( sms) برسائل الواتساب .. والسبب ان رسائل sms مضمونة الوصول ومعتمدة رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يناير 6 مشاركة قام بنشر يناير 6 للاسف بسبب تحديثات ويندوز الاخيرة الكود مش بشتغل لكن على كل حال لو ملف الاكس اللى معاكى شغال ممكن لو مفتوخ اشوف الاكواد واعدلهولك للاكسس واو مقوفل ممكن اخاول ابعت البيانات من اكسس ليه بس ده مش وعد لان مش عارف شكل الملف ايه رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 6 مشاركة قام بنشر يناير 6 1 ساعه مضت, safaa salem5 said: انا نزلت المرفق الخاص بحضرتك بصراحه لما بشغله بحس انى بسمع عمرو دياب انا عايش ومش عايش😇 مره يشتغل ومره لا بس هو فيه حاجه حلوه ايه هى مش عارفه😃 اتمنى من حضرتك بعد ما تحتسى فنجان القهوه تجربه بنفسك عشان انا حاسه انه يجى منه غير كل اللى انا جربتهم المثال يتعامل مع متصفح كروم مباشرة رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يناير 6 الكاتب مشاركة قام بنشر يناير 6 (معدل) 43 minutes ago, ابوخليل said: المثال يتعامل مع متصفح كروم مباشرة ايوه مثال حضرتك بيفتح كروم مباشرة ودا الجميل فيه لانى جربت امثله تانيه بتحولنى لصفحة تنزيل برنامج الواتس 50 minutes ago, ابو جودي said: للاسف بسبب تحديثات ويندوز الاخيرة الكود مش بشتغل لكن على كل حال لو ملف الاكس اللى معاكى شغال ممكن لو مفتوخ اشوف الاكواد واعدلهولك للاكسس واو مقوفل ممكن اخاول ابعت البيانات من اكسس ليه بس ده مش وعد لان مش عارف شكل الملف ايه مفتوح وشغال وبعمل من عليه حملات تسويقيه بس هو مش اكسيس هو امتداده .exe بس بيعتمد فى سحب الداتا على ملفات اكسيل ودى صوره من ملفات الداتا بتاع البرنامج تم تعديل يناير 6 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.