emailed pictures in report do not show

[MikeData]

This automatic email systems works very well untill I added related pictures to the report.
The report shows the images correctly.
The test file in the C drive shows the images correctly.
The recipient of the report, gets the report correctly, but the picturs are not showing, just an empty box.
The report is inside the email, not attached. As you can see in the following script.

Is there a reason why this happens?

code:
Dim tbl2 as P
tbl2 = table.open("t_emailadd")
tbl2.fetch_first()
dim message as C
while .not.tbl2.fetch_eof()
param_to = trim(tbl2.Email)
' param_subject = "Submission Confirmation"
' param_cc = ""
' param_bcc = "[email protected]"
' param_msg = msg_text
query.filter = "customer = "+quote(tbl2.customer)
query.order = "recno()"
:Report.SaveAs("EmailGrpSubmission", "HTML", query.filter, query.order, "c:\test.htm", .F.)
wait_until(.F., 5, 5)
if file.exists("c:\test.htm") then
message = file.to_string("c:\test.htm")
end if
email_send(param_to, "Submission Report",message, "", "", "", .F., "HTML")
tbl2.fetch_next()
end while
tbl2.close()

[MoGrace]

Re: emailed pictures in report do not show

Many emails I receive with pictures in the body, do have the picture(s) as an attachment.

[MikeData]

Re: emailed pictures in report do not show

When I use the Alpha aurtoemail system, it uses part of a report that matches the email in the report. the report contains data and I added to the report a corresponding picture(jpg1024x780) that image shows in each line of the report.
The report still works well, just do not show the pictures when sended.
I do not think the report will add the jpgs as attatchments.
Any other suggestions?

[Stan Mathews]

Re: emailed pictures in report do not show

Is there a reason why this happens?

You are using the html report option. That means the jpg references are dynamic. If you look at one of the output files you willl notice it is relatively small. The pictures in the report are merely references to the location of the image placed on the report.

If you save as pdf rather than html then the images will be incorporated in the pdf file and saved with it.

[MikeData]

Re: emailed pictures in report do not show

I was about to insert some thoughs along those lines.
Stan you must be correct. I realize that the line message = file.to_string("c:\test.htm")
must likely, only accepts text. So the images are not sent, I guess.
In the present form text and images can not be sent.
What about attachig the report, instead of placing the results in the body of the email?

if file.exists("c:\test.htm") then
attachment= file.to_string("c:\test.htm")
email_send(param_to, "Submission Report","See Attached", "attachment", "", "", .F., "HTML")

I did try above, but did say "file not found" . That was my simplistic concept.
What could it be the right syntax?

[Stan Mathews]

Re: emailed pictures in report do not show

It has nothing to do with file.to_string("c:\test.htm").

As suggested, look at one of your saved htm files. It should be much smaller than the image file size unless you have a very long report. Open that htm file in a browser. Right click on one of the images and choose Properties. For the address you should see something like

file:///C:/some_directory/reportname_p0.jpg

The html option is causing the report to create a local file reference instead of embedding the picture in the report.

[MikeData]

Re: emailed pictures in report do not show

Correct That is what in the report for images properties -p0, p1, p2
So is there a way to make sure those pictures get attached or shoul we send the report as an attachment?
Which way is easier?

[Stan Mathews]

Re: emailed pictures in report do not show

You should send the report as a pdf.

[MikeData]

Re: emailed pictures in report do not show

Thanks Stan, I did change the save to PDF and it did not send the images. Here are the lines I changed.

:Report.SaveAs("EmailGrpSubmission", "HTML", query.filter, query.order, "c:\test.pdf", .F.)
if file.exists("c:\test.pdf") then
message = file.to_string("c:\test.pdf")
By changing those lines to pdf, it does send the email and it looks good at the recipient, but no images, just the empty boxes appears, but the PDF file created, is not recognized by adobe.

If the suggestion is to send it as an attachment, how do I change the assigning parameter to go in the next " ", instead of embeded in the body of the email?

something like this?
attachment= file.to_string("c:\test.pdf")
email_send(param_to, "Submission Report","See Attached", "attachment", "", "", .F., "HTML")

[GGandhi]

Re: emailed pictures in report do not show

I send email via web interface and I am sure it is the same in desktop version.
normally
dim email as c and you will assign the value
dim emailMsg as p
emailMsg.message = <<%str%
please see attached
%str%
emailMsg.attachment = "c:\your_image_file_name.image_file_extension"
then emailsend2(.. etc)
it will attach the file and send it.

[Stan Mathews]

Re: emailed pictures in report do not show

:Report.SaveAs("EmailGrpSubmission", "HTML", query.filter, query.order, "c:\test.pdf", .F.)

Really? You changed the extension for the file to be saved but didn't change the save as type!

:Report.SaveAs("EmailGrpSubmission", "PDF", query.filter, query.order, "c:\test.pdf", .F.)

[MikeData]

Re: emailed pictures in report do not show

Thanks for that correction. It did make the test.pdf recognizable by adobe, but it did not appeared in the email, when it was sent.
I got the in the body: %PDF-1.3%����1 0 obj<</Title (��

But I did changed the line:
email_send(param_to, "Submission Report","See Attached", "c:\test.pdf", "", "", .F., "HTML")

and I got the attachement in the email complete with images.
It would be great to include it the email body, but I could live with the solution of using an attachment.