عمل رسالة تنبيه بشرط

[حمدى الظابط]

السلام عليكم

هناك مربع نص غير منضم بالنموذج masmailer باسم    attach    وهو خاص بوضع مرفق او صورة

عند الضغط على زر ارسال نص بحدث خطأ بسبب الارسال بدون مرفق وفى حالة وجود مرفق بيتم الارسال لذلك

اريد احد الحلين

الحل الاول / تعديل الكود بتمرير الارسال اذا لم يوضع مرفق 

والحل الثانى / رسالة تفيد عند عدم وجود مرفق فى مربع النص تخرج رسالة تعطى نعم او لا ويكون نص الرسالة  ( هل تريد الارسال بدون مرفق ) اذا كان (نعم) يتم الارسال واذا كان ( لا ) يتم الغاء ارسال الرسالة

ارجو ان يكون المطلوب واضح ولكم كل الاحترام والتقدير

ارسال.rar

تم تعديل نوفمبر 28, 2022 بواسطه حمدى الظابط

[Moosak]

وعليكم السلام ورحمة الله وبركاته أخي حمدي 🙂

تفضل هذا هو التعديل :

If MsgBox("هل تريد الارسال بدون مرفق؟", vbYesNo + vbExclamation, "تنبيه!") = vbNo Then
    If Len(Me.attach & "") = 0 Then: MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
    If Len(Dir(Me.attach, vbDirectory)) = 0 Then
        MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
    Else
        .AddAttachment Me.attach
    End If
End If

 

 

تم تعديل نوفمبر 28, 2022 بواسطه Moosak

[حمدى الظابط]

35 دقائق مضت, Moosak said:

وعليكم السلام ورحمة الله وبركاته أخي حمدي 🙂

تفضل هذا هو التعديل :

If MsgBox("هل تريد الارسال بدون مرفق؟", vbYesNo + vbExclamation, "تنبيه!") = vbNo Then
    If Len(Me.attach & "") = 0 Then: MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
    If Len(Dir(Me.attach, vbDirectory)) = 0 Then
        MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
    Else
        .AddAttachment Me.attach
    End If
End If

 

ارسال Moosak.rar 29.67 kB · 9 downloads

السلام عليكم

اسعدت بوجدوك ومشتركتك الرائعة والاكثر افادة

وافيدك بالاتى عند تجربة الكود

اولا فى حالة وضع مرفق بالنموذج بيطلب الموافقة (بنعم ) او (لا) قبل الارسال والمفروض لا تظهر هذه الرسالة الا فى حالة عدم وجود مرفق فقط

ثانيا عند الضغط على ( لا  اريد مرفق ) الموجودة بالرسالة المفروض ان يكمل ارسال الرسالة لان نتج الامر برغبة المستخدم واذا كان (نعم اريد مرفق ) ارجع الى النموذج الرئيسى لوضع المرفق ولكن للاسف فى حالة ( لا  اريد مرفق )  الكود بيرجعنى الى الوحدة النمطية وليس الى النموذج وبذلك رجعنا الى نقطة الصفر المطلوب معلجتها

اذا المطلوب عند وجود مرفق لا تظهر اى رسالة

وفى حالة عدم وجود مرفق تظهر رسالة اذا كانت ( لا  اريد مرفق ) يتم الارسال

واذا كان (نعم اريد مرفق ) ارجع الى النموذج 

نحياتى وتقديرى لجهدك ووقتك

 

 

[Moosak]

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

جرب الآن ..

            If Len(Me.attach & "") <> 0 Then
                If Len(Dir(Me.attach, vbDirectory)) = 0 Then
                    MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
                Else
                    .AddAttachment Me.attach
                    GoTo Contenue
                End If
            End If
            
            If MsgBox("هل تريد الارسال بدون مرفق؟", vbYesNo + vbExclamation, "تنبيه!") = vbYes Then
                 GoTo Contenue
            Else
                If Len(Me.attach & "") = 0 Then: MsgBox "يرجى إضافة المرفق", vbOKOnly + vbCritical: End
                
                If Len(Dir(Me.attach, vbDirectory)) = 0 Then
                    MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
                Else
                    .AddAttachment Me.attach
                End If
            End If
Contenue:
            flds("urn:schemas:mailheader:content-type") = "multipart/alternative"
            flds.Update
           .Send

ارسال Moosak.rar

تم تعديل نوفمبر 28, 2022 بواسطه Moosak

[حمدى الظابط]

54 دقائق مضت, Moosak said:

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

جرب الآن ..

            If Len(Me.attach & "") <> 0 Then
                If Len(Dir(Me.attach, vbDirectory)) = 0 Then
                    MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
                Else
                    .AddAttachment Me.attach
                    GoTo Contenue
                End If
            End If
            
            If MsgBox("هل تريد الارسال بدون مرفق؟", vbYesNo + vbExclamation, "تنبيه!") = vbYes Then
                 GoTo Contenue
            Else
                If Len(Me.attach & "") = 0 Then: MsgBox "يرجى إضافة المرفق", vbOKOnly + vbCritical: End
                
                If Len(Dir(Me.attach, vbDirectory)) = 0 Then
                    MsgBox "لايمكن العثور على المرفق", vbOKOnly + vbCritical: End
                Else
                    .AddAttachment Me.attach
                End If
            End If
Contenue:
            flds("urn:schemas:mailheader:content-type") = "multipart/alternative"
            flds.Update
           .Send

ارسال Moosak.rar 31.63 kB · 3 downloads

هذا هو المطلوب +1

كل الاحترام والتقدير لضياع وقتك تقبل تحياتى والف شكر

[Moosak]

9 ساعات مضت, حمدى الظابط said:

كل الاحترام والتقدير لضياع وقتك

بالعكس .. كان زكاة للوقت 😊

بارك الله فيك أخي حمدي 🌹