كود ارسال رساله مرفقه بملف تلقائي للواتس اب

[hosslom]

السلام عليكم اخوتي الكرام

يوجد كود لاحد الاعضاء المميزين يقوم بارسال رساله تلقائي لرقم واتس ويقوم بارفاق ملف مساره محدد في الكود تلقائي اعتمادا علي sendkeys 

الكود يعمل بدون مشكله في حاله ملف واحد 

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

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

مرفق الملف بالكود 

شكرا جزيلا اخوتي الكرام

whatsapp.rar

تم تعديل أكتوبر 8, 2022 بواسطه hosslom

[almersat]

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

الرابط لا يعمل لدي

[hosslom]

14 دقائق مضت, almersat said:

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

الرابط لا يعمل لدي

الرابط يعمل اخي الكريم جرب مره اخري

هل من مساعد جزاكم الله خيرا ؟

[hosslom]

برجاء المساعده 

[kanory]

في 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

 

[hosslom]

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

جزاك الله كل خير اخي الكريم الكود شغال تمام جعله الله في ميزان حساناتك شكرا جزيلا

[محمد القدسي]

سلمت يداك استاذي @kanory تم التجربة بعدة مرفقات بنجاح

مرفق صورة

 

[safaa salem5]

ليه مش شغال معايا هل ممكن تعديل الكود انا عايزه نفس طلب الاستاذ 

hosslom

[safaa salem5]

؟؟