Announcement

**Steve Wood** · 02-25-2008, 11:08 PM

Re: HTML Page in email body

No one can tell without seeing the dialog, or at least the aftervalidate code. Diff type normally means something other than Character. Read up on convert_type() and when you might have to use it.

**EricN** · 02-26-2008, 03:00 AM

Re: HTML Page in email body

I have my aftervalidate code already in this thread. #10

My error comes from pm.to
---> pm.to = CurrentForm.Controls.Sendto

If I change it to a constant such as ---> pm.to = "[email protected]"

It works just fine. But I can't get the user information from the control into the pm.to

Thanks

**Steve Wood** · 02-26-2008, 04:12 AM

Re: HTML Page in email body

add .value to your control;

pm.to = CurrentForm.Controls.Sendto.value

**EricN** · 02-26-2008, 04:19 PM

Re: HTML Page in email body

Thanks Steve. That was it! One word..."value." And I knew this too just didn't think of it. Now I can also send html emails using dialog and include values from my controls AND related table.

If eval_valid("session.Postnum")
session.message = CurrentForm.Controls.Message.value
' takes values from posts table and create session variables
session.title = lookup("[pathalias.adb_path]\posts","Postnum=" +quote(session.Postnum),"Job_title")
end if

dim pm as P
dim message as c = session.message
dim jobtitle as c = session.title

pm.lrelated = .T.
pm.from = CurrentForm.Controls.From.value
pm.from_alias = "Social Service Network Job Response!"
pm.to = CurrentForm.Controls.Sendto.value
pm.bcc = "[email protected]"
pm.subject = alltrim(jobtitle) + " " + "posted on Social Service Network" + " " + CurrentForm.Controls.Subject.value
pm.qq = <<%html%
<html>
<head> </head>
<body>
{message}
{jobtitle}...this is a test
</body>
</html>
%html%
pm.html_message = evaluate_string(pm.qq)
email_send2(pm)

Note where I merge message with pm.html_message above.

**Steve Wood** · 02-29-2008, 08:01 AM

Re: HTML Page in email body

Earlier in this post, Tim suggested using evaluate_string() to replace variables with actual values inside a string. I made use of this in what was originally a more complex script.

The magic is in the two FOR EACH loops. The first loops through each line in flds, and converts the string in to executable xbasic with evaluate_string(), and then immediately executes it with evaluate_template(). So, for example, executing the first line saves tbl.DocType to the variable DocType.

The second loop takes each line and writes a string such as:

HTML Code:

<DocType>{DocType}</DocType>

It's easy to miss that I use word() to extract just the first word of my "expression" as the variable.

Then the final evaluate_string() swaps out the {DocType} for the actual value, yielding:

HTML Code:

<DocType>MyDocTypeA</DocType>

The rest of the code creates a valid XML output.

HTML Code:

xmlfile = "c:\myfile.xml"
lst = "" + crlf()
lst = lst + " " + crlf()

dim tbl as p
tbl=table.open("tr_trust")
query.filter = "Job_Id=" + s_quote(myfilter)
query.order  = "Job_Id"
query.opti

flds=<<%txt%
DocType		= alltrim(tbl.Doc_type)
trustName	= alltrim(tbl.Trust_name)
ExDate		= alltrim(tbl.Execution_mm)
NotaryName	= alltrim(tbl.Notary_name)
NotaryCounty	= alltrim(tbl.Notary_county)
ExecCity	= alltrim(tbl.Notary_city)
ExecState	= alltrim(tbl.Notary_state)
%txt%

for each j in flds
	evaluate_template(evaluate_string(j))
next

FOR each i in flds
	i = word(i,1)
	lst = lst + "  <"+i+">" + "{"+i+"}" + "</"+i+">" + crlf()
next

lst = evaluate_string(lst)

lst = lst + " </Main>" + crlf()
lst = lst + "</Records>"
tbl.close()
tbl.query_detach()

save_to_file(lst,xmlfile)

Announcement

The Alpha Software Forum Participation Guidelines

HTML Page in email body

Comment

Comment

Comment

Comment

Comment