Include name to a attached Report with DoCmd.SendObject

**charly.csh** · 04-11-2020, 05:51 PM

Hi everyone,

Quick question...

I have an issue with a code I have programmed, I want to add an specific name for the report attached, in my code the name is "ReportName"

Does somebody know how to add this to the DoCmd.SendObjetct?

The name include into the report is the "Report Name created originally"

Thanks for your support!!!!

***********************************

Private Sub SendReportPDFcmd_Click()

Dim ReportName As String
Dim stDocName As String

ReportName = "Report NC " & Me.Code
stDocName = "NC_Report_PDF"

DoCmd.SendObject acSendReport, stDocName, acFormatPDF, , , , "No Conformidad Folio: " & Me.Code, "Se generó la No Conformidad con Folio: " & Me.Code

End Sub

**June7** · 04-12-2020, 12:02 AM

SendObject does not allow that. Would have to first save report with that name.

Alternative is to use Outlook automation code. Use OutputTo to save report as PDF then attach pdf to email object.

**charly.csh** · 04-12-2020, 10:33 AM

Hi June7

How do you inlcude the reported created as an attachment?, I understand I have to use DoCmd.SendObject

**********************

Dim stDocName As String
Dim stReportName As String
Dim stLinkCriteria As String
Dim stFileName As String

stDocName = "Diagram"
stReportName = "Diagram AB "

stFileName = CurrentProject.Path & "" & stReportName & Me.ID & ".pdf" 'set the file name for the new PDF

DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, stFileName, True 'HOW Can I attach this to Outlook automatically?
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, , , , "NC Report: " & Me.ID, "NC Report with ID: " & Me.ID

End Sub

**June7** · 04-12-2020, 10:43 AM

No, not SendObject, Outloook automation. This means declaring and setting and manipulating variables for Outlook objects. This is a common topic.

The PDF will take name of report Caption property if it has an input. So an alternative is code opens report in Design view, sets the Caption property, saves report with this design change, then run SendObject.

**charly.csh** · 04-12-2020, 11:08 AM

Oh I see!
Do you have an example of this?

I am not a full expert coding :$

**June7** · 04-12-2020, 12:07 PM

Of what - Outoolk automation? You could Google or search this forum. However, example from my code that sends multiple emails to addresses in a recordset:

Code:

Private Sub Email()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim body As String, rs As Recordset
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
Set rs = CurrentDb.OpenRecordset("SELECT UmpID, Email FROM Umpires WHERE ID=1")
Do While Not rs.EOF
    With MailOutLook
    '    .BodyFormat = olFormatHTML
        .To = rs!Email
        ''.cc = ""
        ''.bcc = ""
    '    .Attachments.Add "filepath\filename"
        .Subject = "Test : " & rs!UmpID
        body = "<table style='text-align:right;border:1px solid black;font-family:calibri;border-collapse:collapse;padding:15px'><tr style='background:yellow;mso-highlight:yellow'>" & _
            "<th>No</th><th>Client</th><th>Date</th><th>PR</th><th>Currency</th><th>Amt</th></tr>" & _
            "<tr><td>12345</td><td>Jones</td><td>12Dec2017</td><td>ABC</td><td>US</td><td>2000</td></tr>" & _
            "<tr><td>67890</td><td>Finkbiner</td><td>12Dec2017</td><td>ABC</td><td>US</td><td>1000</td></tr></table>"
        body = "<HTML style='font-family:calibri'><Body><font face='calibri'><a href='C:\Users\Owner\June\Forums'><img SRC=C:\Users\Owner\June\DOT\Lab\Editing\LABDB.png></a><br>" & _
            "<font color='red' size='1'>&nbsp;&nbsp;&nbsp;&nbsp;READ THIS EMAIL COMPLETELY</font><br>" & _
            body & _
            "<br><b>Please confirm or I will kick you.</b><br>" & _
            "</font></Body></HTML>"
        .Display
        .body = "Test" & vbCrLf & "multi-line"
        'following allows including Outlook email signature
        '.HTMLBody = Replace(.HTMLBody, "<div class=WordSection1><p class=MsoNormal><o:p>", "<div class=WordSection1><p class=MsoNormal><o:p>" & body)
        '.HTMLBody = "Test HL: <a href='C:\Users\" & Environ("USERNAME") & "\Desktop\Shortcut to Main in Umpires.accdb.MAF'>Link description here</a>"
    '    .Send
    End With
    'MsgBox "Continue"
    rs.MoveNext
Loop
End Sub

Include name to a attached Report with DoCmd.SendObject

Thread Tools

Include name to a attached Report with DoCmd.SendObject

Similar Threads

DoCmd.SendObject Stops Macro When Report is not Created

DoCmd SendObject The SendObject action was cancelled. You can't exit Microsoft Access now.

Send report individually by email address (DoCmd.SendObject)

Send report individually by email address (DoCmd.SendObject)

send an email containing a report but not by using docmd sendobject

Posting Permissions