Add attachments from database to email

[Vol71]

I am trying to find the VBA code that adds attachments currently stored in the database to an email. Currently, I have a button that will email the report refernced on my input form. My attachments are stored in a table, but I have built a query for my attachments that wil filter based off the referenced report on the input form. Below is my VBA code to email a report. Thanks

Private Sub Command587_Click()
Dim stReport As String
Dim stWhere As String
Dim stSubject As String
Dim NCRNum As String
NCRNum = Forms![NCR Input Form]![NCR #]
stSubject = "Supplier Chargebacks NCR " & NCRNum
stReport = "Supplier Chargebacks"
stWhere = "[NCR #] = " & "'" & NCRNum & "'"

Dim rpt
Dim sRpt As String

sRpt = "Supplier Chargebacks"
DoCmd.OpenReport sRpt, acViewDesign
Set rpt = Reports(sRpt)
rpt.Caption = "Supplier Chargebacks NCR " & NCRNum
'rpt.RecordSource = pvQry
'rpt.OrderByOn = True
'rpt.OrderBy = sFld
DoCmd.Close acReport, rpt.Name, acSaveYes
DoCmd.SendObject acSendReport, stReport, "PDFFormat(*.pdf)", , , , stSubject, , True, ""
DoCmd.Close acReport, stReport


End Sub

[ranman256]

All you need it the 1 statement:
DoCmd.SendObject acSendReport, stReport, "PDFFormat(*.pdf)", , , , stSubject, , True, ""

None of the rest of the code is needed.... It can all be gathered from a form. The report uses its query to read the form and gets all the info.
Zero coding. But code way works too.

[Vol71]

I am trying to get 2 attachments (1 photo & 1 word document) that are stored in a query to be added to my email. When I click the email supplier chargeback report button, an email with my pdf. report is created for the referenced record, but the 1 photo and 1 word document are not attached to my email. I can go into design view in the query that I built my report off of, click run and see the 2 attachments for the reference report that I am emailing out.

Is the DoCmd. SendObject statement supposed to add the 2 attachments to my email? If so, it is not working for me.


Thanks

[ItsMe]

The way I understand it is that you will need to use code to export the attachment. Then you can use VBA to automate Outlook and attach the exported file.

This DB has some example code to Import and Export attachment type fields. It was created to offer assistance to other members of the forum. It evolved around their needs so the code would need to be refactored to suit your needs.

[June7]

Cannot use SendObject to include files as attachments to an email. Must use email object automation, usually Outlook.

Files embedded in table must first be exported to be used as attachment, the external file can then be deleted.

These are common topics.

Also review https://www.accessforums.net/access/...ect-17713.html