ارسال عدة مرفقات بايميل واحد

[SABER_EDP]

السلام عليكم

اخوانى  اريد كود خلف زر امر يرسل تقرير او نموذج بصيغة xlsxواخرى بصيغة pdf

الى الاوتلوك فى ايميل واحد

شكرا

[SABER_EDP]

الهمة يا شباب الاكسس

[SABER_EDP]

    DoCmd.SendObject acForm, "ALL_PENDING", "Excel97-Excel2003Workbook(*.xls)", "sattia@.com.qa", "aahussain@.com.qa;", "", "PENDING DELIVERY RECIPTS ", "Kindly refer to the attached .xls file for the most recent list of Pending Delivery Receipts - ", False, ""

    DoCmd.SendObject acReport, "PENDING _REPORT", "PDFFormat(*.pdf)", "", "", "", "PENDING DELIVERY RECIPTS FOR ", "Kindly refer to the attached .pdf file for the most recent list of Pending Delivery Receipts - ", False, ""

كيف نرسلهم فى ايميل واحد

 

تم تعديل نوفمبر 13, 2016 بواسطه SABER_EDP

[SABER_EDP]

اين المبتكرون يا شباب؟

[رمهان]

العملية سهلة اخي الكريم

تستخدم docmd.output   ثم تستخدم الاتمتة مع الاوت لوك بتعريف كائن اوت لوك ثم كائن المسج ثم تضيف المرفق للرسالة وحسب المسار السابق من امر docmd.output

 

بالتوفيق

[SABER_EDP]

شكرا لردك الكريم

انا استخدمت docmd.output    ولكتن ما المقصورد بالاتمتة؟

يا ليت مثال لونكرمت

شكرا مرة احرى

يا ريت مثال مضغوظ بzip

[SABER_EDP]

انا اخرج كل واحد منهم باستخدام  docmd.output    وبعدين ارفقهم باميل واحد  ولكن افضل اخراجهم اليا الى مسار معين وبعدين عن طريق الكود ارفقهم برمجيا فى الايميل 

كيف يمكن ذلك ؟ جزاكم الله خيرا

[SABER_EDP]

الموضوع واضح انة مش سهل خالص زى ما الاخ رمهان كتب 

[رمهان]

في 11/26/2016 at 16:33, SABER_EDP said:

انا اخرج كل واحد منهم باستخدام  docmd.output    وبعدين ارفقهم باميل واحد  ولكن افضل اخراجهم اليا الى مسار معين وبعدين عن طريق الكود ارفقهم برمجيا فى الايميل 

كيف يمكن ذلك ؟ جزاكم الله خيرا

اخي الكريم

تمام يبدو انك فهمت المقصود : اخرجهم بال docmd.output  ثم ارفقهم بكود ارسال الايميل والمنتدى مليئ بكيفية ارسال ايميل من خلال الاكسس

ارفق مثال به التقرير للتطبيق باذن الله

بالتوفيق

[SABER_EDP]

Dim LL As String

LL = "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS -  DEPOT " & "" & Day(Now()) & " - " & Month(Now()) & " - " & Year(Now()) & ".pdf"

     DoCmd.OutputTo acOutputForm, "ALL_PENDING", "ExcelWorkbook(*.xlsx)", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS - DEPOT.xlsx", False, "", 0, acExportQualityScreen
   DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tallpending", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS -  DEPOT.xlsx", True, "Total "

 

DoCmd.OutputTo acOutputReport, "PENDING _REPORT", "PDFFormat(*.pdf)", LL, False, "", 0, acExportQualityScreen

 

الكود الخاص  بالارسال الى الايميل ليس معى

تم تعديل نوفمبر 29, 2016 بواسطه SABER_EDP

[SABER_EDP]

tst-sendemail.zip

[SABER_EDP]

الحمد لله  تم الحل

     DoCmd.OutputTo acOutputForm, "ALL_PENDING", "ExcelWorkbook(*.xlsx)", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS -  DEPOT.xlsx", False, "", 0, acExportQualityScreen
   DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tallpending", "\\PC1689\Common Folder\Pending\PENDING DELIVERY RECEIPTS -  DEPOT.xlsx", True, "Total "

  DoCmd.OutputTo acOutputReport, "PENDING _REPORT", "PDFFormat(*.pdf)", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS - .pdf ", False, "", 0, acExportQualityScreen
 

        Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
           
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = "اسم الايميل المرسل"
            .Subject = "عنوان الموضوع"
            .HTMLBody = "نص الرسالة"
           
           
                .Attachments.Add ("المرفق الاول")
               
               .Attachments.Add ("المرفق الثانى")
               
                     
           
          
           
          
            .Send
            End With
          

تم تعديل نوفمبر 30, 2016 بواسطه SABER_EDP

[رمهان]

الحمد لله اولا واخيرا