email client config

[jmsilva]

Hi all,

Trying to setup my email client and have not had any luck, I am testing it using the password reset of the security system, attached images of my project profile and the security settings. I had A5 create the A5_email_outbox and had it assign the fields automatically, for SMTP I am using mandrill, my mandrill account was verified and the TXT records have been validated.

Do notice that the security ask for an email profile which I left blank since the field help says that if not found it would use the default for the application, suppose it would use the project settings for email.

The security after entering the email address for the user who I want the password reset comes back telling me that the email was sent, but never get an entry on the outbox table, neither do I ever receive the email.

Capture.JPGCapture1.JPG

[jmsilva]

Re: email client config

Ok guys, this is an UX security component that I wrote, here is the code. No matter what I do the email does not get created.

function afterDialogValidate as v (e as p)
'debug(1)
dim Result as P
dim e.javascript as C
dim session.HomeURL as C

select
	case convert_type(e.datasubmitted.lost_login_credentials,"L")
		goto reset_password
	case else
 		 Result = a5ws_Login_User(e.dataSubmitted.username,e.dataSubmitted.password)
		 if Result.error = .t.
			e.javascript = "alert('Invalid Login');"
		 else
			if session.HomeURL != ""
				e.javascript = "window.location.assign('" + session.HomeURL + "');"
			else
				e.javascript = "alert('Welcome back " + js_escape(e.dataSubmitted.username) + "');"
			end if
		 end if
	end
end select

'------------------------------------------------------------------------------------------------------------	
'   User has requested a password retrieval, we are going to access the SQL database to 
'	find if he has a record with the given email address on the system, reset his password 
'	and email him the new password for his use, if the user does not have a security record
'	within the database we will invihim to join us by registering.
'------------------------------------------------------------------------------------------------------------	
reset_password:
'------------------------------------------------------------------------------------------------------------	
'   First check we do not ha ve an invalid email address
'------------------------------------------------------------------------------------------------------------	
	if e.datasubmitted.email = ""
		e.javascript = "alert('You must enter a valid email address to reset your password.');"
     	e.javascript = e.javascript + "{dialog.object}.resetForm(false);"
		end 
	end if
	
	if len(e.datasubmitted.email) < 7
		e.javascript = "alert('You must enter a valid email address to reset your password.');"
     	e.javascript = e.javascript + "{dialog.object}.resetForm(false);"
		end 
	end if
	
	dim r							as n
	r = occurs("@",e.datasubmitted.email)
	if r != 1
		e.javascript = "alert('You must enter a valid email address to reset your password.');"
     	e.javascript = e.javascript + "{dialog.object}.resetForm(false);"
		end 
	end if
'------------------------------------------------------------------------------------------------------------	
'   Open database return error if not found
'------------------------------------------------------------------------------------------------------------	
  	dim e							as P
 	dim e.conn		 				as SQL::Connection
 	dim e.args 						as sql::Arguments
 	dim rs        			  		as SQL::ResultSet
 	dim SQL							as C
	if .not. e.conn.open("::name::MySmallbizz")
 		e.javascript = "alert('Error: "+ e.conn.CallResult.text +"');"
 		end
 	end if
'------------------------------------------------------------------------------------------------------------	
'   Access the user table to retrieve the username if one exist for the given email
'------------------------------------------------------------------------------------------------------------	
	e.args.Add("email",e.datasubmitted.email)
 	SQL	= 		"SELECT Guid, username FROM websecurity_users INNER JOIN user ON (UserID = username) "
 	SQL	= SQL + "where user.email = :email;"
 
  	if .not. e.conn.execute(SQL,e.args)
 		e.javascript = "alert('Error: "+ e.conn.CallResult.text +"');"
     	e.javascript = e.javascript + "{dialog.object}.resetForm(false);"
 		e.conn.close()
 		end
 	end if

 	rs = e.conn.ResultSet
 	if .not. rs.NextRow()
		e.javascript = "alert('The email address entered is not registered on this system, to register please click on the \"New User\" menu link at the top right of your page');"
     	e.javascript = e.javascript + "{dialog.object}.resetForm(false);"
		e.conn.close()
		end 
	end if

	dim uservalue 					as p
	dim uservalue.userid 			as c
	dim uservalue.guid 				as c
	dim uservalue.password 			as c
	dim output 						as p
	dim output.controls 			as p
	dim output.controls.guid.value 	as c
	dim result 						as p
	uservalue.guid 					= rs.data("Guid")
	uservalue.userid				= rs.data("UserName")
	uservalue.password				= a5ws_randompassword()
	e.datasubmitted.password		= uservalue.password
	e.datasubmitted.username		= uservalue.userid
	debug(1)
	result = a5ws_Save_WebUser_Values(output,uservalue)
	if  result.errors = .T. then
	    e.javascript = "alert('" + js_escape(result.error_text) + "');"
	else
		ExecuteServerSideAction("Send E-mail Message::Send_an_e_mail_message")
	    e.javascript = "alert('Your password was succesfully reset, an email message was sent with your credentials.');"
	end if

    e.javascript = e.javascript + "{dialog.object}.resetForm(false);"
	e.conn.close()
end function

[GGandhi]

Re: email client config

the email profile they are asking, is this the one in
control panel, view, settings, email. and then you can give a name to the profile
is this the one they are referring?
I do not have version 12 , so I am wondering..

[jmsilva]

Re: email client config

Thank you Gandhi, learned a lot on this process and decided on writing my own xbasic code to handle my smtp messages using the send_email_noprofile command and creating my own profiles on my database as my application is a SaaS and many customers need to be supported.

[Steve Wood]

Re: email client config

Jaun, you hit on why I tend not to use Alpha's "built-in run time properties". They are self limiting in that they assume one instance of each (e.g., SMTP info) is needed.