Automatacally emailing after record is inerted

[pwatt01]

Hello all,

I have been trying to engineer my updatable grid to send an email after a record is inserted, but have not been able to do it.

In my AfterInsertRecord i have the following code:

addr = "[email protected]"
subject ="this is a test"
body = "a test this is"
email_send(addr,subject,body,"","","",.T.,"","","default",.F.,.T.)

with the email client set up correctly. In the 'codeeditor' i can run this code, no rpoblems and I get the email, but once I have copyied it to the AfterInsertRecord of my grid, saved and published, nothing happens.

Can anyone helpme out with this prediciment??

BTW the grid is based of a MYSQL table using a connection string to get to it.

Cheers

[Al Buchholz]

Re: Automatacally emailing after record is inerted

Welcome to the Alpha world.

Try using email_send2() for an individual email from an afterinsertrecord

[Garry Flanigan]

Re: Automatacally emailing after record is inerted

Bear in mind that the server executes the script when a user saves the record.
Do you have email set-up on the WAS with a default profile? You need the a_email.dbf, etc.. in place as an active link table to your MYSQL email table.

[pwatt01]

Re: Automatacally emailing after record is inerted

Thanks for that Garry.

I do realise that it only sends when a record is saved... i also have the same code in update as well, but no luck there either. I have set up email in Alpha 5, and can send email via the development software.I found the a_email.* tables in the A5 V10 folder. Do i need to move these to MYSQL, and then active link to A5, or is there something I have missed??

And if so, how?

Thanks

[Garry Flanigan]

Re: Automatacally emailing after record is inerted

What I mean is that when the application is deployed, when a record is saved by a user thru their browser it is the WAS that runs the script and it (the WAS) MUST have email set-up on it. You are testing on your local machine which IS NOT the same thing.
Email by default uses a_email.dbf which is in your a5 exe folder (as you discovered) and not in your app folder. You must add a copy to your app folder and configure email accordingly. I suggest you start with this and when you get it running move to the next step which is an email table in MYSQL with an active link from Alpha as there is no way to use email_send() with other than a dbf table or an active-link table.
Alternatively, if you do not save a copy of the sent email then you do not need to worry about an email table.

[Pat Bremkamp]

Re: Automatacally emailing after record is inerted

Here is a sample straight out of one of my grids. This sends an email including an optional personal comment and adds a note to the MySQL contacts table

function AfterInsertRecord as v (e as p)
dim vMsg as p
vMsg.from = "[email protected]"
vMsg.from_Alias = "XXXPortal"
vMsg.to = e.DataSubmitted.Email1
vMsg.subject = "Invitation to register for XXXXXXX documents"

'==== define the message
dim vM as c
vM = "Dear "+e.DataSubmitted.name_preference+crlf(2)
vM=vM+"XXXXXXXXXXXXXXXXXXXXXXXXXX has created a Document Library "
vM=vM+"in our new Customer Portal web site. We've created this Library so our "
vM=vM+"customers and our associates can view and download documents and reports."+crlf(2)
vM=vM+"We invite you to register to access those documents. Click on the following "
vM=vM+"link to go to our registration page:"+crlf(2)
vM=vM+"http://www.XXXXXXXX.com/doc_signup.a5w?ivl="+e.DataSubmitted.contact_link+crlf(2)
vM=vM+"If the link doesn't work by clicking, please copy and paste it into your browser."+crlf(2)
vM=vM+"We look forward to having you as a regular user of our Document Library."+crlf(2)
If alltrim(e.DataSubmitted.note)<>""
	vM=vM+alltrim(e.DataSubmitted.note)+crlf(2)
end if
vM=vM+"XXXXXXXXXXXX, President" 

vMsg.message = vM

vResult = email_send2(vMsg,"XXX",.f.,.f.,.f.)
aa = e.rtc.A_AjaxResponses
if vResult = .t.
	dim vNote as c
	vNote="Invited to register on "+date()+" at "+time()+" by "+session.__protected__fullname
	dim cnx as SQL::Connection
	cnx.open("::name::XXX")
	vUpdate="UPDATE contacts SET NOTE='"+vNote+"' WHERE contact_id = "+e.lastIdentityValue
	cnx.execute(vUpdate)
	cnx.close()	
	aa[].text = "alert('The Email was successfully sent');"
else
	aa[].text = "alert('The Email cold not be sent');"	
end if
aa[..].id = 100

end function

[pwatt01]

Re: Automatacally emailing after record is inerted

Thanks for that guys.. i got it working now, my problem was that i had not set up the email on the server... i could not find the settings untill i accidentally right clicked on the icon, and now it works great.

Thanks again