التعديل على كود pdf وارسال الملف اميل

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

السلام عليكم

الاخوة الكرام

ارجو المساعده فى التعديل على الكود المرفق 

حيث ان الكود المرفق يقوم بتحويل الشيتات المعنيه الى pdf وحفظها فى مكان محدد ...  ثم السوال هل تريد ارسالها اميل واذا كانت الاجابه تعم يتم ارسالها اميل

المطلوب عكس ترتيب عمل الشيت اى

1-  ارسال الشيتات المعينه pdf اميل اولا ...... ثم السوال اذا ما ارت حفظ الشيتات المعينه pdf فى المكان المعنى للحفظ

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

()Sub PDF_SALAM

    Dim MyName As String

MyName = "D:\MANAFIST TAREK\PDF\MANAFIST TAREK TO SALAM_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf"

    Range("C45").Select

 Range("C45").Select

    Sheets(Array("زراعى", "صحراوى", "طائرة")).Select

    Sheets("طائرة").Activate

     MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه")

    If MyMsg = 6 Then

    ChDir "D:\MANAFIST 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, "Mohamed.Tawfek@khalda-eg.com;Mohamed.Amria@khalda-eg.com;mohamed.abonour@khalda-eg.com", "مانفست حقول طارق", _

                             vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق", False

    Else

MsgBox "لم يتم الحفظ"

        End If

        Sheets("طائرة").Select

    ActiveWindow.SmallScroll Down:=-12

    Range("B5").Select

End Sub

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

السلام عليكم أبو حنين

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

 

تعرف توجيهات المنتدى .. ضع الأكواد بين أقواس تنصيص الكود لتظهر بشكل منضبط

كما يرجى إرفاق ملف ليسهل على إخوانك تقديم المساعدة

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

 

السلا م عليكم

 

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

اولا وقبل اى شئ

كل عام وانت وجميع المسلمين بكل خير  تقبل الله من صيامك وقيامك

ثانيا

اخى الحبيب تم ارفاق الملف 

ثالثا  لا اعلم كيف اضع الكود بين اقواص التنصيص ... ارجو التوضيح

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

 

 

 

 

 

 

 

mail & pdf.rar

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

أخي الحبيب أبو حنين

توضع الأكواد بين أقواس الكود والتي تكون بهذا الشكل من خلال محرر الكتابة

<>

ابحث عن هذا الشكل

 

جرب الكود التالي ..لم أجرب الكود

Sub PDF_SALAM()
    Dim MyName As String
    MyName = "D:\MANAFIST TAREK\PDF\MANAFIST TAREK TO SALAM_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf"

    Range("C45").Select
    Range("C45").Select
    Sheets(Array("زراعى", "صحراوى", "طائرة")).Select
    Sheets("طائرة").Activate
    If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then GoTo 1

    OutlMail_PDF MyName, "Mohamed.Tawfek@khalda-eg.com;Mohamed.Amria@khalda-eg.com;mohamed.abonour@khalda-eg.com", "مانفست حقول طارق", _
                 vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق", False

1    MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه")
    If MyMsg = 6 Then
        ChDir "D:\MANAFIST TAREK"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                        MyName, Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                        False
    Else
        MsgBox "لم يتم الحفظ"
    End If
    
    Sheets("طائرة").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B5").Select

End Sub

Function OutlMail_PDF(FileNamePDF As String, StrTo As String, StrSubject As String, StrBody As String, Send As Boolean)
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = StrTo
        .CC = ""
        .BCC = ""
        .Subject = StrSubject
        .Body = StrBody
        .Attachments.Add FileNamePDF
        If Send = True Then
            .Send
        Else
            .Display
        End If
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Function

شوف أنا وضعت الكود بين أقواس تنصيص

عملت كليك على العلامة <> ثم لصقت الكود بداخله (ولكن يراعى عند نسخ الكود أن يكون اتجاه الكتابة باللغة العربية حتى لا تظهر اللغة العربية بحروف غريبة)

تقبل تحياتي

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

السلام عليكم

جزاك الله كل الخير والتقدير اخى الحبيب  ياسر خليل

واسال الله ان يكون سعيك فى ميزان حسناتك

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

تم التعديل في المشاركة رقم 4 .. يرجى مراجعة التعديل وموافاتنا هل أدى الغرض أم لا؟

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

السلام عليكم

جزاك الله كل الخير والتقدير اخى الحبيب ياسر خليل

تم المطلوب بصورة كامله جزاك الله كل الخير

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

السلام عليكم

اخى الغزيز ياسر

ارجو ان يتسع صدرك لى

اخى الحبيب الكود لا يقوم بارسال

 الشيتات المعينه pdf اميل اولا ......

لان المراد هو

1- ارسال الشيتات المعينه pdf اميل اولا ...... ثم السوال اذا ما ارت حفظ الشيتات المعينه pdf فى المكان المعنى للحفظ

هل الخطاء هو انه لابد من خفظها pdf  اولا ثم ارسلها اميل  ....اى لا يمكن ارسلها اميل دون حفظها PDF

 

لا اعلم اين الخطاء

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

كيف ستتم عملية الإرسال ؟؟ لأي ملف ستتم عملية الإرسال إذا لم يكن الملف قد تم تصديره من قبل ؟

أعتقد لابد من تصدير الملف أولاً ثم إرسال إيميل

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

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

هل يمكن ارسال المرفقات اميل بصيغه PDF دون حفظه 

وحفظه يكون شئ اخر