ارسال Report به عنوان Attach در Outlook

[bita_ziba77]

چگونه مي توان كليدي را به فرم اصلي اضافه نمود كه در بتواند نتايج جستجو را كه در يك Report مي باشد را به صورت Attach به Outlook اضافه نمايد.

[مهدی قربانی]

سلام
در رخداد On Click کامند باتون مورد نظر مطابق زیر عمل کنید :


On Error GoTo Err_CommandName_Click

Dim strAddress, strCC, strSubject As String

strAddress = InputBox("آدرس ايميل گيرنده را وارد نمائيد", "آدرس ايميل")
strCC = InputBox("آدرس ايميل گيرندگان رونوشت را وارد نمائيد" & vbCrLf & vbCrLf & _
"person1@test.org;person2@test.org : مثال", "گيرندگان رونوشت")
strSubject = InputBox("موضوع ايميل را وارد نمائيد", "موضوع")

DoCmd.SendObject acReport, "ReportName", , strAddress, strCC, , strSubject
Exit Sub
Exit_CommandName_Click:
Exit Sub

Err_CommandName_Click:

MsgBox Err.Description
Resume Exit_CommandName_Click
بجای CommandName نام کامند باتون و بجای ReportName هم نام گزارش مورد نظرتون رو جایگزین کنید

[bita_ziba77]

با تشكر از شما آقاي قرباني:تشویق:

ولي هنگامي كه من كد را وارد كرده و ميلي را مخواهم ارسال نمايم ، error زير به نمايش در
مي آيد:
The command or action 'send object' isn't available now

لطفا راهنمايي بفرماييد
با تشكر

[مهدی قربانی]

سلام
نمونه فايلتون رو آپلود كنيد ببينم مشكلش چيه .