We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Report as email attachement does not render report pictures
Posted on 2013-10-23
Hello, when I print preview a report if the report contains pictures they display. However, if I use DoCmd.SendObject acReport, stDocName to attach the report to an email the pictures do not render on the report. The pictures are linked and not in the database. On the report I populate the images with the following code.
Why do the images appear when I print the report but not when the report is an attachment to an email?
Why do the images appear when I print the report but not when the report is an attachment to an email?
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
DefaultFilePath = GetDefaultFilePath
If Me!txt_Picture1 > "" Then
Me!Picture1.Picture = DefaultFilePath & Me!txt_Picture1
End If
If Me!txt_Picture2 > "" Then
Me!Picture2.Picture = DefaultFilePath & Me!txt_Picture2
End If
If Me!txt_Picture3 > "" Then
Me!Picture3.Picture = DefaultFilePath & Me!txt_Picture3
End If
End Sub
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3-
3
6 Comments
...and what is your entire SendObject code?
Perhaps the format you are using does not support images...?
Perhaps the format you are using does not support images...?
Here is my code:
Private Sub btn_Supplier_Click()
On Error GoTo ErrorHandler
Dim emailList As String
Dim qdf As QueryDef
Dim rst As Recordset
Dim myPrice As Currency
Set qdf = CurrentDb.QueryDefs("Get_EmailDistributionListBySupplier")
qdf.Parameters(0) = Me.txt_Supplier.Value
Set rst = qdf.OpenRecordset
If rst.RecordCount > 0 Then
Do Until rst.EOF
emailList = emailList & rst![email Address] & "; "
rst.MoveNext
Loop
emailList = Left(emailList, Len(emailList) - 1)
Dim stDocName As String
stDocName = "DMR_Single View"
DoCmd.SendObject acReport, stDocName, , emailList
Else
MsgBox "There are no email addresses in the database for this supplier."
DoCmd.Hourglass False
Resume ExitHandler
End If
ExitHandler:
Set rs = Nothing
Set db = Nothing
Forms("DMR Tracking").Visible = True
Exit Sub
ErrorHandler:
Select Case Err
Case 2501
Resume ExitHandler
Case Else
Resume ExitHandler
End Select
End Sub
Again, what output format are you specifying?
Because you left this argument blank in your code, it should popup and ask you for the format...
...In any even, when I select "PDF" as the output format, the images display fine in the resulting, attached PDF file...
Because you left this argument blank in your code, it should popup and ask you for the format...
...In any even, when I select "PDF" as the output format, the images display fine in the resulting, attached PDF file...
You talking about the output format for the attachment?
Yes, a popup does ask a format type; however; pdf is not in the list (access 2003).
This
DoCmd.SendObject acReport, stDocName, pdf, emailList
still gives a popup for the type.
Am I lost here?
Yes, a popup does ask a format type; however; pdf is not in the list (access 2003).
This
DoCmd.SendObject acReport, stDocName, pdf, emailList
still gives a popup for the type.
Am I lost here?
Thank you boag2000 for the newb time! Since 2003 does not do PDF natively. We are going to force snapshot as the format.
This works perfectly:
DoCmd.SendObject acReport, stDocName, acFormatSNP, emailList
This works perfectly:
DoCmd.SendObject acReport, stDocName, acFormatSNP, emailList
Featured Post
Blockchain expert Alex Tapscott talks to Acronis VP Frank Jablonski about this revolutionary technology and how it's making inroads into other industries and facets of everyday life.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works
The attack works by targeti…
- The Email Laundry
- Email Servers
- Cybersecurity
- Email Protocols
- Network Security
- Security, *Phishing
Microsoft Access is a place to store data within tables and represent this stored data using multiple database objects such as in form of macros, forms, reports, etc. After a MS Access database is created there is need to improve the performance and…
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another.
Base the dependent combo on a query for its row source:
Add a reference to the first combo on the form as criteria i…
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks.
Specify a start-up form through options:
Specify an Autoexec macro:
Us…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month4 days, 21 hours left to enroll
636 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.