المساعدة في كود

[MO87]

السلام عليكم

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

الرجاء المساعدة في فتح الاوتلوك علي المرفق والتعميم سويا

وشكرا مقدما لحضرتكم

On Error Resume Next
Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem
    Dim StrTo As String
    Dim StrSubject As String
    Dim StrBody As String
    Dim StrAttachment As String
    Dim fileName As String
Dim db As DAO.Database, rs As DAO.Recordset
fileName = Application.CurrentProject.Path & "\reportNotice.pdf"
    DoCmd.OutputTo acReport, "reportNotice", acFormatPDF, fileName, False

    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(olMailItem)
    StrTo = ""
    StrSubject = "reportNotice"
    StrBody = "Please find the attached report."
    StrAttachment = Me.Imagepath.Value

    With OutlookMail
        .To = StrTo
        .subject = StrSubject
        .Body = StrBody
        .Attachments.Add StrAttachment
        .Display
        .oMail.Send

    End With

    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
         end sub

 

تم تعديل يناير 30, 2023 بواسطه jjafferr
لتنسيق الكود: استعمل <> القائمة ، ووضع الكود في نافذته

[MO87]

تم تعديل الكود والان يجلب المرفق والتقرير معا في الاوت لوك الان احتاج ان يرسل تقرير نفس الحقل اللي بيساوي id

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strto As String
Dim strsubject As String
Dim strattachments As String
strto = ""
strsubject = ""
strbody = ""
strattachments = Me.Imagepath.Value

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    
With OutMail
    .To = strto
    .subject = strsubject
    .Body = strbody
    .Attachments.Add CurrentProject.Path & "\reportnotice.pdf"
    .Attachments.Add strattachments
    .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

 

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

ارفق ملف للعمل عليه ويتيح للاخوه الافضل خبراء المنتدى المساعدة 

وهل التقرير مضدر السجلات جدول ولا استعلام

[MO87]

السلام عليكم اخر ما توصلت اليه اني اقوم بطباعة التقرير اولا في نفس مسار قاعدة البيانات وبعدها اقوم بارسال الاوتلوك وبعدها القود يعمل ياخذ التقرير + المرفقات

احتاج ان العملية تتم مباشرة من نفس زر ارسال اوتلوك بحيث يطبع التقرير يساوي id نفس السجل + المرفق

الرجاء من السادة الخبراء المساعدة

test1.rar