Email sends in Preview but not when published

[kleky]

Howdy folks, the code below sends an email when executed in Working Preview, but not when I publish to the web server. Can anyone suggest why? :) Many thanks,

 
dim ok as N

	ok = email_send("[email protected]","test","test","","","","","","","wilsong")
	
	if ok then
		e.javascript = "alert('Email sent.');"
	else
		e.javascript = "alert('User " + js_escape(pUser.userid) + " unable to send email.');"
	end if
'end if

[GGandhi]

Re: Email sends in Preview but not when published

difficult to diagnose and tell where it fails.
1> did you set up the email settings in the server as you did in your development machine?
2> did you send a test email from the server and did it work?

ok = email_send("[email protected]","test","test","","","","","","","wilsong") shouldn't be like this below?

ok = email_send("[email protected]","test","test","","","",.t.,"","","wilsong")
is wilsong your profile name, if so did you set it up in the server too, as such?

[kleky]

Re: Email sends in Preview but not when published

Hi Gandi, I've not come across anything that mentions setting up in two locations (development machine and the server), only the development machine. That would explain the scenario. Wilsong is the profile name and I did try it as you suggested but that also failed.

How do you set these up on the server?

Many thanks

[GGandhi]

Re: Email sends in Preview but not when published

two locations (development machine and the server),

if your server is located in the development machine then that is it. no need to setup differently.
if email is working properly on working preview but not when published, since the setting is same, it is odd.

[kleky]

Re: Email sends in Preview but not when published

The publish server is different to my development machine so could that be the cause? It works in the preview on my dev machine but not when published.

[GGandhi]

Re: Email sends in Preview but not when published

so that's what I thought in the first place, then I was confused with your second question.
so set up the email settings and publish all the files to the server then it should work.

[kleky]

Re: Email sends in Preview but not when published

I thought I did publish everything but must not have...I'll try again

[kleky]

Re: Email sends in Preview but not when published

I must be missing something...

I have the email profiles created in the app on my Dev machine.
Emails are sent when in Preview on Dev.
Once I publish all to the web server, email doesn't send, no errors, nothing.

My profiles are not being published.

[GGandhi]

Re: Email sends in Preview but not when published

Ok one little thing.
On the top there is profile button, when you click it will show all defined profiles.
Alpha comes with local profile to be used for local host that is your development machine.
Did you setup one for the server with path alias etc, and if you did are you publishing to that profile?
When you publish you can drop down to that profile to publish.

[kleky]

Re: Email sends in Preview but not when published

I'm publishing to a different profile I created for the web server. I use sql tables so path alias = undefined. Are the email profiles stored in a dbf table, so that's why I can't publish them, maybe?

[GGandhi]

Re: Email sends in Preview but not when published

I do not know why then.
But you could stop the server and restart.
When in doubt..

[kleky]

Re: Email sends in Preview but not when published

Thanks for your help anyway, Gandhi. I've resorted to using email_send() instead and retrieve the smtp details via stored procedure.

The benefit of others, this works...

dim pm as P
dim ps as P

if (email_smtp_open(ps, "smtp_server", port_number, "login", "password","SSL")) then

    pm.to = "[email protected]"
    pm.from = "[email protected]"
    pm.subject = "smtp_open test"
    pm.message = "this is the message"
    pm.attachments = <<%str%
				        C:\test.txt
				        %str%

    'pm.html_message = "This is the message in HTML"

    email_smtp_send(pm, ps)
	
	e.javascript = "alert('Email sent.');"
	
end if

email_smtp_close(ps)

[GGandhi]

Re: Email sends in Preview but not when published

I am happy it worked out for you.
just to see
I tested the way I suggested in post #2

ok = email_send("[email protected]","test","test","","","",.t.,"","","wilsong")

replacing my profile name for wilsong,
and the email was sent.
so I do not know what was the problem.
as long as it is resolved that's all it matters.
ps:
(also the way you ended up doing is the way I send email and as well as using javascript.)

[kleky]

Re: Email sends in Preview but not when published

Cheers.

Hopefully one day I won't encounter bugs or glitches with everything I try.

Good to hear that my final method is working well. It has turned out for the better as it can all be managed from the sql server, negating the need to re-publish anything :)

XBASIC FUNCTION:

function ReturnSMTP as P(UserID as C,GroupGUID as C)
	'debug(1)	
	dim cn as sql::Connection
	dim rs as sql::ResultSet
	dim args as sql::Arguments
	dim ok as l
	
	args.Add("UserID",UserID)
	args.Add("GroupGUID",GroupGUID)
	
	ok = cn.Open("::Name::OpenStaff")
	if ok then
		ok = cn.Execute("slEmailSettings :UserID,:GroupGUID",args)
		if ok then
			rs = cn.ResultSet
			ReturnSMTP.Server = rs.data(1)
			ReturnSMTP.Port = rs.data(2)
			ReturnSMTP.Login = rs.data(3)
			ReturnSMTP.Password = rs.data(4)
			ReturnSMTP.Encryption = rs.data(5)
			ReturnSMTP.Address = rs.data(6)
			ok = cn.Close()
		end if
	end if	
	
end function

NEW SERVER-SIDE SUBMIT:

dim pm as P
dim ps as P
Dim pUser as P
dim settings as P

a5ws_logged_in_user_values(pUser)

settings = ReturnSMTP(pUser.userid,session.GroupGUID)

if (email_smtp_open(ps, settings.Server,convert_type(settings.Port,"N"),settings.Login, settings.Password,settings.Encryption)) then
    pm.to = e.dataSubmitted.email_to '"[email protected]"
    pm.from = settings.Address
    pm.subject = e.dataSubmitted.subject
   ' pm.message = e.dataSubmitted.message
   ' pm.attachments = <<%str%
	'			        C:\test.txt
		'		        %str%

    pm.html_message = e.dataSubmitted.message

    email_smtp_send(pm, ps)
	
	e.javascript = "alert('Email sent.');"  + crlf() + "$('{dialog.ComponentName}.V.R1.BUTTON_CLOSE').click();" 
	
	email_smtp_close(ps)
else
	e.javascript = "alert('Failed. Email not sent.');"
end if

[GGandhi]

Re: Email sends in Preview but not when published

I am happy it worked out for you.
just to see
I tested the way I suggested in post #2

ok = email_send("[email protected]","test","test","","","",.t.,"","","wilsong")

replacing my profile name for wilsong,
and the email was sent.
so I do not know what was the problem.
as long as it is resolved that's all it matters.
ps:
(also the way you ended up doing is the way I send email and as well as using javascript.)