Would someone be willing to provide an example

[envisionsolutions]

I have a form and when the user hits submit I would like it to send an e-mail and include values from the current form. Would anyone be willing to provide an example of how this is done?

[Keith Hubert]

Re: Would someone be willing to provide an example

Hi Josh,

The secret is to be able to do this with action script first. Convert it all to xBasic and add that to a page that just runs the code.

So you go from Page input to page for processing, which the user does not see and then onto the next page whatever that might be, "Email has been sent to confirm ....etc".

[envisionsolutions]

Re: Would someone be willing to provide an example

I dont see an actionscript on the web side that sends an e-mail?

[Keith Hubert]

Re: Would someone be willing to provide an example

Hi Josh,

Get the code from desktop first.

[Steve Wood]

Re: Would someone be willing to provide an example

Look at the form named "contact", AfterInsertRecords Event in your copy of the AlphaToGo Framework. I copied that Event code below (for DBF).

This an advanced example with lots of fields and some values looked up from a static "default" table named wt_setup. Everywhere you see "e.datasubmitted" means that is a field in the Grid's data-entry area. It doesn't matter if the Grid is pointing to a real table or a dummy table. A "dummy" table just needs one field to support the Grid, but doesn't store any of the results in the table, if that makes sense.

dta = "app_url + '|' + app_name + '|' + contact_email + '|' + contact_subject + '|' + receipt_subject"
cc = table.external_record_content_get("[PathAlias.ADB_Path]\wt_setup",dta)
vapp_url             = word(cc,1,"|")
vapp_name             = word(cc,2,"|")
vcontact_email        = word(cc,3,"|")
vcontact_subject    = word(cc,4,"|")
vreceipt_subject     = word(cc,5,"|")

'==FORM VARS = items commented out but can be put back in form if desired
dim vcontactid as n        = e.primaryKeyValue
dim vemailuser as l     = convert_type(e.DataSubmitted.emailuser,"L")
dim vcompany as c         = e.datasubmitted.company
dim vemailaddress as c     = e.datasubmitted.emailaddress
dim vfname as c            = e.datasubmitted.fname
dim vlname as c            = e.datasubmitted.lname
dim vtelephone as c        = e.datasubmitted.telephone
'dim vaddress1 as c        = e.datasubmitted.address1
'dim vaddress2 as c        = e.datasubmitted.address2
'dim vcity as c            = e.datasubmitted.city
'dim vstate as c            = e.datasubmitted.state
'dim vzipcode as c        = e.datasubmitted.zipcode
'dim vcountry as c        = e.datasubmitted.country
'dim vfax as c            = e.datasubmitted.fax
dim vcomment as c         = e.datasubmitted.comment
dim msg as c
msg = <<%txt%

Contact from...: {vapp_name} at {vapp_url}
Sent at .......: {now()}
Contact ID.....: {alltrim(str(vcontactid))}
---------------------------------------------
Company........: {vcompany}
Email..........: {vemailaddress}
Firstname......: {vfname}
Lastname.......: {vlname}
Telephone......: {vtelephone}
Timestamp......: {now() + crlf(2)}
Message........: {vcomment}
{crlf(2)}
%txt%

msg = evaluate_string(msg)
dim pm as p
pm.to         = vcontact_email
pm.subject     = vcontact_subject
pm.message     = msg

email_send2(pm,"",.t.,.f.,.f.)

IF vemailuser=.t.
    pm.subject = vreceipt_subject
    pm.to = alltrim(e.datasubmitted.emailaddress)
    email_send2(pm,"",.t.,.f.,.f.)
END IF

[Steve Wood]

Re: Would someone be willing to provide an example

Re: ActionScript. I looked and there is nothing on Desktop ActionScript that would create code suitable for the web. The only script provided is one that uses email_client() which is of no use on the web.

[envisionsolutions]

Re: Would someone be willing to provide an example

Thanks Steve,

I was able to work with that script to accomplish what I needed. I appreciate your time.