اضافىه MsgBox للسؤال عن ارسال المرفق اميل من عدمه

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الكود فى الملف يقوم بحفظ الشيت pdf ويتم ارساله ميل

ارحو المساعده فى اضافه MsgBox للكود فى الملف المرفق

يكون الغرض منة السوال هل تريد ارسال المرفق اميل ام لا

وعند الاجابه بنعمن يتم اارسال الملف اميل

وعند الاجابه بلا ... يتم الغاء ارسال الاميل 

جزاكم الله كل الخير

 

pdf& mail.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو حنين

لا أدري هل تريد تنفيذ السطر قبل تحويل الملف لـ PDF أم بعد التحويل ..

عموماً إذا كنت تريد الرسالة في بداية الكود قبل تحويل الملف لـ PDF فيمكنك ببساطة إضافة السطر التالي بعد المتغيرات

If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub

أما إذا كنت تريد أن تتم عملية التحويل إلى PDF أولاً ثم السؤال عن إرسال الملف من عدمه فيمكنك استخدام نفس السطر لكن في مكان آخر داخل الكود بهذا الشكل

Sub PDF()
    Dim MyName As String
    
    MyName = "D:\Drivers Tarek\PDF\Drivers_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf"

    Range("B5").Select
    Range("B5").Select
    Sheets(Array("حركة")).Select
    Sheets("حركة").Activate
    MyMsg = MsgBox("هل أنت متأكد من اتمام عمليه الحفظ", 4, "تنبيه")
    If MyMsg = 6 Then
        ChDir "D:\Drivers Tarek"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                        MyName, Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                        False
    If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub
    
    OutlMail_PDF MyName, "ahmed@yahoo.com", " بيان بحركة السائقين ", vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق", False

    Else
        MsgBox "لم يتم الحفظ"
    End If
    Sheets("حركة").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B5").Select
End Sub

أرجو أن يكون في هذا السطر حل لمشكلتك إن شاء المولى عزوجل

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب ياسر ابو البراء

اشهد الله انى احبك فى الله .... وجميع اعضاء المتدى 

اخى الحبيب لك كل الحق ....التوضيح سيد الاجابه 

جزاك الله كل الخير 

[ياسر خليل أبو البراء]

وجزيت بمثله أخي الغالي أبو حنين

الحمد لله أن تم المطلوب على خير

ولا تنسانا بدعوة والمغرب على وشك .. دعوة بظهر الغيب لأخوك الفقير إلى الله

[ابو القبطان]

مبدع ... كعادتك

[ياسر خليل أبو البراء]

يا سلااااااااااااام والله والله ليك وحشة كبيرة آآآآآآآآد كدا أهو

طبعاً مش شايفني وأنا بقول آآآآآآآآآد كدا أهو بس أكيد عارف إنك واحشني

ك ل  ع ا م  و أ ن ت  ب خ ي ر  ي ا  ج د و

دا لغز بسيط ويا ريت تحله بالكود .. عبارة عن جمله .. أحياناً فيه مسافتين وأحياناً مسافة واحدة

والمطلوب بالكود تحذف مسافة واحدة عشان تفضل الجملة المطلوبة

ولو معرفتش استعن بأخوك أبو سليمان