How to insert a signature image into an email

[Michael Humby]

Hi All

We like to include a small App within our applications so the Runtime user can send emails from within the App.

We would like to be able to show their logo as a signature at the end of the message can anyone please modify the script on the Send button of the attached application. The script at the moment sends the email and creates a log table. I have been using function Email_send2().

Grateful if someone could modify this script to show the Cards image.

Michael

[Stan Mathews]

Re: How to insert a signature image into an email

Michael,

I believe you'll have to use the html_message sub variable to include an inline image. You will need to reference the image by the path on the machine where the script is run.

Parentform.commit()
t=table.current()
dim message as P

message.message = t.message
message.from_alias=t.from
If t.attachpath<>"" then
message.attachments=rtrim(t.ATTACHPATH)
End If
message.1related = .t.
message.to = t.address
message.subject = t.subject
[COLOR="#FF0000"]message.html_message = <<%html%
This is a message with an 
<img src="C:\tempdb\Emailsender\cards.png">
inline image.
%html%[/COLOR]
'silent, store in mailbox,autowrap all set to false
result=email_send2(message, "", .F., .F., .F.)
if result=.t. then
    ui_msg_box("Note","Email sent")
    ELSE
ui_msg_box("Note","Email failed")
END
End If

[Stan Mathews]

Re: How to insert a signature image into an email

I just noticed that the code suggested displays the image in the email if it is viewed on a machine where the image exists in the location specified. If you reference a web based image such as

<img src="http://www.alphasoftware.com/images/awards.gif">

then it will display while online.

[Keith Hubert]

Re: How to insert a signature image into an email

Hi Michael,

What about saving the image in the Code tab? Then it will be available in the runtime, wont it?

[Michael Humby]

Re: How to insert a signature image into an email

Stan,

Thanks, this is now showing the image so if we store each of our users images on our own server then the links should work for us. I now need to get the value from the 't.message' memo field into the html brackets, it was using plain text before and worked OK but cannot figure how to code the value of t.message into the body of the email can you please help with this.

Thanks again

Michael

[Stan Mathews]

Re: How to insert a signature image into an email

Just bits and pieces.

Shown as constructed in the interactive.

[COLOR="#0000FF"]'dummy construction to establish a variable for experimentation
'your actual code will just use the table field value as at present[/COLOR]
t.message = "This is a message"+crlf()+"from Michael Humby"

[COLOR="#0000FF"]'see how it looks[/COLOR]
? t.message
= This is a message
from Michael Humby

[COLOR="#0000FF"]'construct the message.html_message as will be used by email_send2()[/COLOR]
message.html_message = "<<%html%" + crlf()+ t.message+crlf() + "<img src=\"C:\tempdb\Emailsender\cards.png\">"+crlf()+"%html%"

[COLOR="#0000FF"]'see how it looks[/COLOR]
? message.html_message
= <<%html%
This is a message
from Michael Humby
<img src="C:\tempdb\Emailsender\cards.png">
%html%

[Stan Mathews]

Re: How to insert a signature image into an email

Were you able to get what you wanted out of this Michael?

[Michael Humby]

Re: How to insert a signature image into an email

Stan,

Not had chance to experiment yet, been a bit hectic here. The image is now OK but over the weekend I hope to find time to try your example of interactive code to bring in the user's message together with the image.

Thanks again

Michael

[Michael Humby]

Re: How to insert a signature image into an email

Stan,

I can now send either (A) Plain text message or (B) Signature Image but still cannot get both together see A and B below. I've tried using your suggestion of
message.html_message = "<<%html%" + crlf()+ t.message+crlf() + "<img src=\"C:\tempdb\Emailsender\cards.png\">"+crlf()+"%html%"
and replaced 't.message' with a character variable holding the value of the memo field holding the message

I've also tried switching the memo field to RTF memo using the *bin_to_rtf() function

Dim tbl as p
dim rtftext as c
tbl=table.current()
tbl.fetch_first()
rtftext.VALUE= *bin_to_rtf(tbl.htmessage)
and replacing t.message with the rtftext value i.e.
{\rtf1\ansi \deff0{\colortbl;\red0\green0\blue0;}{\fonttbl{\f0\fswiss Tahoma;}}{{\f0 \cf1 \fs16 Dear Jack\par \par This is my rtf message\par \par \par OK\par From Me}}}


(A)
t=table.current()
dim message as P

message.message = t.message
message.from_alias=t.from
If t.attachpath<>"" then
message.attachments=rtrim(t.ATTACHPATH)
End If
message.1related = .t.
message.to = t.address
message.subject = t.subject
'silent, store in mailbox,autowrap all set to false
result=email_send2(message, "", .F., .F., .F.)
if result=.t. then
ui_msg_box("Note","Email sent")
ELSE
ui_msg_box("Note","Email failed")
END
End If

(B)
t=table.current()
'the value in t.message is a memo field
vv_messagetext=t.message
dim message as P

message.from_alias=t.from
If t.attachpath<>"" then
message.attachments=rtrim(t.ATTACHPATH)
End If
message.1related = .t.
message.to = t.address
message.subject = t.subject

message.html_message = <<%html%

This is a message with an image signature but how do I replace this text with the values stored in vv_messagetext variable
<br />
<br />
<img src="http://www.instantnurserymanager.co.uk/dls/cards.png">

%html%
'silent, store in mailbox and autowrap options all set to false
result=email_send2(message, "", .F., .F., .F.)
if result=.t. then
ui_msg_box("Note","Email sent")
ELSE
ui_msg_box("Note","Email failed")
END
End If

Michael

[Stan Mathews]

Re: How to insert a signature image into an email

I'm not certain you can use rtf formatting in an html message. You'll probably have to use html formatting.

If you just want the message in the table field

message.html_message = "<<%html%"+crlf()+ t.message+crlf()+"<br />"+crlf()+"<br />"+crlf()+"<img src="http://www.instantnurserymanager.co.uk/dls/cards.png">"+crlf()+"%html%"

[Michael Humby]

Re: How to insert a signature image into an email

Stand,

Which type of field do you think the message field should be, Memo or RTFMemo?

Michael

[Stan Mathews]

Re: How to insert a signature image into an email

If you intend to use the html message with the signature image I would think it would be much easier with a plain memo and adding html formatting.

[Michael Humby]

Re: How to insert a signature image into an email

Stan,

Using this line

message.html_message = "<<%html%"+crlf()+ RTRIM(vv_messagetext)+crlf()+"<br />"+crlf()+"<br />"+crlf()+"<img src=\"http://www.instantnurserymanager.co.uk/dls/cards.png\">"+crlf()+"%html%"

This is what i getWhatiget.png

The text is no longer formatted and tags show at beginning and end, any ideas?

Michael

[Allen Klimeck]

Re: How to insert a signature image into an email

Michael I think the best construct is:

message.html_message = <<%html%

 This is a message with an image signature but how do I replace this text with the values stored in vv_messagetext variable
 <br />
 <br />
 <img src="http://www.instantnurserymanager.co.uk/dls/cards.png">
%html%

to replace the static text you would use:

message.html_message = <<%html%

 aplaceholderfortxt
 <br />
 <br />
 <img src="http://www.instantnurserymanager.co.uk/dls/cards.png">
%html%
 
message.html_message = strtran(message.html_message,"aplaceholderfortxt",t.message)'no need for the variable.

aplaceholderfortxt can be any thing it just has to be the same in the text & the strtran() function. But not some thing that might be in the text because the function would replace all occurrences of it. You can use the strtran() function to replace as many place holders as you need.

[Michael Humby]

Re: How to insert a signature image into an email

Allen,

Thanks, I am nearly there now with this:

message.html_message = <<%html%

aplaceholderfortxt
<br />
<br />
<img src="http://www.instantnurserymanager.co.uk/dls/cards.png">
%html%

message.html_message = strtran(message.html_message,"aplaceholderfortxt",t.message)

This is the result but I still don't get the layout of the message with spaces and carriage returns Whatiget2.png

Thanks

Michael