hosslom قام بنشر أكتوبر 8, 2022 مشاركة قام بنشر أكتوبر 8, 2022 (معدل) السلام عليكم اخوتي الكرام يوجد كود لاحد الاعضاء المميزين يقوم بارسال رساله تلقائي لرقم واتس ويقوم بارفاق ملف مساره محدد في الكود تلقائي اعتمادا علي sendkeys الكود يعمل بدون مشكله في حاله ملف واحد المشكله حينما اريد ارسال جميع الملفات جميعا في فولدر معين كيف اجعله يختار جميع الملفات تلقائي ويقوم بالارسال ملحوظه يجب فتح برنامج الواتساب علي الجهاز مرفق الملف بالكود شكرا جزيلا اخوتي الكرام whatsapp.rar تم تعديل أكتوبر 8, 2022 بواسطه hosslom رابط هذا التعليق شارك More sharing options...
almersat قام بنشر أكتوبر 9, 2022 مشاركة قام بنشر أكتوبر 9, 2022 السلام عليكم ورحمة الله الرابط لا يعمل لدي رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر أكتوبر 9, 2022 الكاتب مشاركة قام بنشر أكتوبر 9, 2022 14 دقائق مضت, almersat said: السلام عليكم ورحمة الله الرابط لا يعمل لدي الرابط يعمل اخي الكريم جرب مره اخري هل من مساعد جزاكم الله خيرا ؟ رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر أكتوبر 9, 2022 الكاتب مشاركة قام بنشر أكتوبر 9, 2022 برجاء المساعده رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر أكتوبر 9, 2022 أفضل إجابة مشاركة قام بنشر أكتوبر 9, 2022 في 8/10/2022 at 10:16, hosslom said: السلام عليكم اخوتي الكرام يوجد كود لاحد الاعضاء المميزين يقوم بارسال رساله تلقائي لرقم واتس ويقوم بارفاق ملف مساره محدد في الكود تلقائي اعتمادا علي sendkeys الكود يعمل بدون مشكله في حاله ملف واحد المشكله حينما اريد ارسال جميع الملفات جميعا في فولدر معين كيف اجعله يختار جميع الملفات تلقائي ويقوم بالارسال ملحوظه يجب فتح برنامج الواتساب علي الجهاز مرفق الملف بالكود شكرا جزيلا اخوتي الكرام وعليكم السلام اهلا بك .... حسب ما فهمت من سؤالك انك تريد ارسال كل محتويات المجلد عند ارسال الرسالة .... صحيح .... اذا كان ذلك هو مطلبك ... جرب هذه الشيفرة ...واعلمنا بالنتيجة بارك الله فيك ...... ملاحظة عدل فترات الانتظار حسب سرعة جهازك ... Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "mobile no" & "&text=" & "hello" Sleep 3000 Call SendKeys("~", True) Sleep 1000 SendKeys "+{TAB}" Call SendKeys("~", True) Sleep 1000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" Call SendKeys("~", True) Sleep 2000 SendKeys [CurrentProject].[Path] & "\PDF" Call SendKeys("{Enter}", True) Sleep 2000 SendKeys "+{TAB}" SendKeys "^a" Sleep 2000 Call SendKeys("{Enter}", True) Call SendKeys("{Enter}", True) Sleep 5000 Call SendKeys("{Enter}", True) Set IE = Nothing 3 1 رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر أكتوبر 9, 2022 الكاتب مشاركة قام بنشر أكتوبر 9, 2022 2 ساعات مضت, kanory said: Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "mobile no" & "&text=" & "hello" Sleep 3000 Call SendKeys("~", True) Sleep 1000 SendKeys "+{TAB}" Call SendKeys("~", True) Sleep 1000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" Call SendKeys("~", True) Sleep 2000 SendKeys [CurrentProject].[Path] & "\PDF" Call SendKeys("{Enter}", True) Sleep 2000 SendKeys "+{TAB}" SendKeys "^a" Sleep 2000 Call SendKeys("{Enter}", True) Call SendKeys("{Enter}", True) Sleep 5000 Call SendKeys("{Enter}", True) Set IE = Nothing جزاك الله كل خير اخي الكريم الكود شغال تمام جعله الله في ميزان حساناتك شكرا جزيلا 1 رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر أكتوبر 9, 2022 مشاركة قام بنشر أكتوبر 9, 2022 سلمت يداك استاذي @kanory تم التجربة بعدة مرفقات بنجاح مرفق صورة 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يناير 4 مشاركة قام بنشر يناير 4 ليه مش شغال معايا هل ممكن تعديل الكود انا عايزه نفس طلب الاستاذ hosslom رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يناير 5 مشاركة قام بنشر يناير 5 ؟؟ رابط هذا التعليق شارك 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.