تحديث واتساب ويب

[MO87]

السلام عليكم 

بداية الكود كانت من الاستاذ الفاضل @ابوخليل

يشرفني ان ارسل لكم تعديل بارسال المرفقات عبر واتساب ويب اي نوع مرفق يمكن  ارساله (مستند / صورة /فديو /اكسيل -وارد - يمكنك اضافة اي امتداد بالكود  وسيقوم بارساله - يمكنك ارسال تقرير مياشرة او تحديد مرفق - يقوم بالارسال لعدد غير محدود الارقام المضافة لديكم وغير المضافة .

تغير وزيادة نوع المستند او المرفق من هنا

     AttachmentPath = reportPath
        
        ' تحديد نوع المرفق بناءً على المسار المحفوظ
        If InStr(reportPath, ".pdf") > 0 Then
            AttachmentType = 1 ' ملف PDF
        ElseIf InStr(reportPath, ".doc") > 0 Or InStr(reportPath, ".docx") > 0 Or InStr(reportPath, ".xls") > 0 Or InStr(reportPath, ".xlsx") > 0 Or InStr(reportPath, ".ppt") > 0 Or InStr(reportPath, ".pptx") > 0 Then
            AttachmentType = 1 ' ملف PDF
        ElseIf InStr(reportPath, ".jpg") > 0 Or InStr(reportPath, ".jpeg") > 0 Or InStr(reportPath, ".png") > 0 Or InStr(reportPath, ".gif") > 0 Or InStr(reportPath, ".bmp") > 0 Or InStr(reportPath, ".tif") > 0 Or InStr(reportPath, ".tiff") > 0 Or InStr(reportPath, ".webp") > 0 Or InStr(reportPath, ".svg") > 0 Then
            AttachmentType = 2 ' صورة
        ElseIf InStr(reportPath, ".mp4") > 0 Or InStr(reportPath, ".avi") > 0 Or InStr(reportPath, ".mov") > 0 Or InStr(reportPath, ".wmv") > 0 Then
            AttachmentType = 2 ' صورة
        ElseIf InStr(reportPath, ".sticker") > 0 Then
            AttachmentType = 6 ' ملصق
        Else
            ' يمكنك إضافة المزيد من الامتدادات إلى هنا إذا لزم الأمر
            AttachmentType = 0 ' غير معروف
        End If
 

ملحوظة عند اي تحديث لواتساب يجب تعديل خاصية send key (        ' إرفاق المرفق إذا كان موجودًا
        If AttachmentPath <> "" Then
' الانتقال لزر إرسال المرفقات الجديد
' الانتقال لزر إدراج المستندات الجديد
SendKeys "+{TAB}" ' الرجوع خطوة واحدة
SendKeys "+{TAB}" ' الرجوع خطوة إضافية إذا لزم الأمر
SendKeys "~" ' الضغط على الزر
Sleep 1000 ' الانتظار لفتح مربع اختيار الملف
)

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

 

cash1.rar

[kanory]

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

[abouelhassan]

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