Send different email body depending on field value

[WindForce]

Hi
I have a dialog that automatically sends a confirmation email upon submitting, working as expected.
Now the customer wants to send then email in 2 possible languages, english and hebrew, but i still cannot accomplish it successfully.
So, i added a Radio Button for the language, where the customer selects the language prior to submitting.

So far, i did the following:
1- tried to use the {ExecuteFunction:myFunc} in the html text in the send email action script, then defining a myFunc xbasic function that returns the correct html. The problem that i encountered is that although an e argument gets passed to the function, i cannot find e._currentRowDataNew for instance in order to check for the value of the field. In fact, debugging it, i found only e.tmpl has some data...

2- tried therefore to use conditions in the html text, like in:
{ConditionStart:English:{Language}="English"}...........english mail .........{ConditionEnd:English}
{ConditionStart:Hebrew:{Language}="Hebrew"}..........hebrew mail .......{ConditionEnd:Hebrew}
In both cases, i just get an empty mail ( in my opinion none of those conditions get kicked )

Thanks in advance
Jaime

[Charles Hoens]

Re: Send different email body depending on field value

You haven't given me much to go on here, but here's a start.

In the dialog you would have a logical field for the language. You will also need to create a button for sending the email. In the OnClick for that button you can trap for the language logical and then send the appropriate email.

Not sure I can help you more than that without seeing the dialog itself and how you have created this.

Charlie

[WindForce]

Re: Send different email body depending on field value

Hi Charles
Thanks for jumping in.
As stated, i send the confirmation email upon submitting. This is done by going to the afterDialogValidate server side event, then after the "Save data..." i add a new Action Scripting and choose "Send EMail" from there. Then i fill the properties for the email, one of which is the HTML body which i'm talking about here.
As for the language, i already have a radio-button field, which contains "English" or "Hebrew" depending on what the user filled.
FWIW, i did some basic tests with the {ConditionStart} clauses, and it's like no matter what i do this placeholder doesn't do it's job.

Jaime

[Adrian_]

Re: Send different email body depending on field value

I have the same problem, seems like nothing will evaluate as true in the condition..

[Al Buchholz]

Re: Send different email body depending on field value

I have the same problem, seems like nothing will evaluate as true in the condition..

Please post your code.

[Adrian_]

Re: Send different email body depending on field value

http://msgboard.alphasoftware.com/al...on-Not-working

[[email protected]]

Re: Send different email body depending on field value

I couldn't get the conditions to work also.
But you can convert the action to xbasic and make the changes then to get what you want.

[Adrian_]

Re: Send different email body depending on field value

Could you give an example if possible please?

[[email protected]]

Re: Send different email body depending on field value

This is the xbasic from an action in the afterDialogValidate server-side event in a dialog component:
You will have to figure out how to change the contents of messageBodyHTML
if e.datasubmitted.language = "A" then
messageBodyHTML = "language A"
else messageBodyHTML = "language normal"
end if

So you create your action event as normal and then instead of editing the event you choose convert to xbasic and change what you want to change.


dim pe as p
with pe
DIM useDefaultSettings as L = .T.
DIM smtp_server as C
DIM smtp_username as C
DIM smtp_password as C
DIM smtp_port as C
DIM smtp_SSLOption as C
DIM from as C = "{sent_from}"
DIM from_alias as C = "{from_alias}"
DIM messageSubject as C = "{subject}"
DIM sendTo as C = "{Sent_to}"
DIM cc as C = "{cc}"
DIM bcc as C = "{bcc}"
DIM loadMessageFromRepository as L
DIM messageNameInRepository as C
DIM messageBodyHTML as C = "html message {KONTRAKT_nummer} etc"
DIM messageBodyText as C = "plain text {KONTRAKT_nummer}"
DIM attachments as C = "{file1},{file2}"
DIM storeMessageInOutbox as L
DIM clientSideEvent as P
DIM clientSideEvent.afterMessageSent as C
DIM showConfirmationMessage as L = .T.
DIM confirmationMessageSuccess as C = "Message was sent."
DIM confirmationMessageFailure as C = "Message was not sent because of an error."
DIM useDotNetLibrary as L
DIM sendWhen as C = "Immediate"
DIM WorkQueueFormat as C = "XbasicScript"
end with

'resolve any property values that must be read from the repository
a5_resolveRepositoryProperties(pe)


dim flagError as l = .f.
dim errorText as c = ""
dim pEmailSettings as p
dim pstore as p
if pe.useDefaultSettings = .t. then
dim pwp as p
pwp = a5_getWebProjectProperties()
if eval_valid("pwp.email") = .f. then
flagError = .t.
errorText = "Email settings not found"
pStore.wasSent= "No"
pStore.errorText=errorText

else
pEmailSettings = pwp.email
end if
else
pEmailSettings.smtp_server = pe.smtp_server
pEmailSettings.smtp_username = pe.smtp_username
pEmailSettings.smtp_password = pe.smtp_password
pEmailSettings.smtp_port = pe.smtp_port
pEmailSettings.smtp_SSLOption = pe.smtp_SSLOption
end if


dim pMessageSettings as p
dim isHTML as l = .f.
if pe.loadMessageFromRepository then
dim key as c
key = pe.messageNameInRepository
message = a5w_GetFromWebAppRepository(key)
'determine if the message is HTML by looking for a closing tag
if atc("</",message) then
pMessageSettings.html_message = a5_resolve_placeHolders_in_text(message,e,.t.)
pMessageSettings.message = ""
else
pMessageSettings.html_message = ""
pMessageSettings.message = a5_resolve_placeHolders_in_text(message,e,.f.)
end if
else 'message is NOT being loaded from repository
pMessageSettings.html_message = a5_resolve_placeHolders_in_text(pe.messageBodyHTML,e,.t.)
pMessageSettings.message = a5_resolve_placeHolders_in_text(pe.messageBodyText,e,.f.)
end if

pMessageSettings.send_to = a5_resolve_placeHolders_in_text(pe.sendTo,e,.f.)

pMessageSettings.subject = *html_to_text(a5_resolve_placeHolders_in_text(pe.messageSubject,e,.t.))

pMessageSettings.attachments = a5_resolve_placeHolders_in_text(pe.attachments,e,.f.)
pMessageSettings.cc = a5_resolve_placeHolders_in_text(pe.cc,e,.f.)
pMessageSettings.bcc = a5_resolve_placeHolders_in_text(pe.bcc,e,.f.)
pMessageSettings.from = a5_resolve_placeHolders_in_text(pe.from,e,.f.)

pMessageSettings.from_alias = *html_to_text(a5_resolve_placeHolders_in_text(pe.from_alias,e,.t.))

pMessageSettings.lRelated = .f.
pMessageSettings.ReturnReceipt = .f.

'if action does not define the sender, then read from saved email settings
if pe.useDefaultSettings then
if pMessageSettings.from = "" then
pMessageSettings.from = pEmailSettings.from
end if
if pMessageSettings.from_alias = "" then
pMessageSettings.from_alias = pEmailSettings.from_alias
end if
end if


dim flagAutowrap as l = .t.
dim pFlagSent as p
dim flagUseDotNetLibrary as l
flagUseDotNetLibrary = pe.useDotNetLibrary


if flagError = .f. then
'there was no error in retrieving the email settings
'now, do the work - send the e-mail

dim SSLOption as c
SSLOption = pEmailSettings.smtp_SSLOption

If pe.sendWhen = "Immediate" then
pFlagSent = email_send_noprofile(pEmailSettings,pMessageSettings,SSLOption,flagAutowrap,flagUseDotNetLibrary)
flagError = pFlagSent.error
errorText = pFlagSent.errorText
if flagError = .f. then
pStore.wasSent= "Yes"
pStore.errorText=""
else
pStore.wasSent= "No"
pStore.errorText=errorText
end if
else
'add to WorkQueue
dim workData as c
if pe.WorkQueueFormat= "XbasicScript" then
'store xbasic script
dim pMessageSettingsText as c
pMessageSettingsText = alltrim(*variable_to_script(pMessageSettings))
pMessageSettingsText = *for_each(x,chr(9) + x, pMessageSettingsText)

dim pEmailSettingsText as c
pEmailSettingsText = alltrim(*variable_to_script(pEmailSettings))
pEmailSettingsText = *for_each(x,chr(9) + x, pEmailSettingsText)

workData = "Dim pEmailSettings as P" +crlf()+\
"with pEmailSettings" + crlf()+\
pEmailSettingsText+\
"end with" + crlf(2) +\
"dim pMessageSettings as P"+crlf()+\
"with pMessageSettings" + crlf()+\
pMessageSettingsText + \
"end with" + crlf(2)+\
"dim SSLOption as c" + crlf()+\
"ssLOption = " + s_quote(SSLOption)+crlf()+\
"dim flagAutoWrap as l" + crlf()+\
"flagAutoWrap = " + s_quote(flagAutowrap)+crlf()+\
"dim flagUseDotNetLibrary as l" + crlf()+\
"flagUseDotNetLibrary = " + s_quote(flagUseDotNetLibrary) + crlf(2)+\
"pFlagSent = email_send_noprofile(pEmailSettings,pMessageSettings,SSLOption,flagAutowrap,flagUseDotNetLibrary)"
else if pe.WorkQueueFormat = "XbasicProperties" .or. pe.WorkQueueFormat = "JSON" then
'store xbasic properties
dim pWorkProperties as p
pWorkProperties.pEmailSettings = pEmailSettings
pWorkProperties.pMessageSettings = pMessageSettings
pWorkProperties.sslOption = SSLOption
pWorkProperties.flagAutoWrap = flagAutowrap
pWorkProperties.flagUseDotNetLibrary = flagUseDotNetLibrary
if pe.WorkQueueFormat = "XbasicProperties" then
workData = property_to_string(pWorkProperties)
else if pe.WorkQueueFormat = "JSON" then
workData = vartojson(pWorkProperties)
end if
end if


dim pWork as p

pWork.id = api_uuidcreate()
pWork.workData = workData
dim flag as l
dim pResult as p
flag = a5w_SaveToWorkQueue(pWork,pResult)
pstore.wasSent = "Yes"
pstore.errorText = ""
end if
end if


'store message in outbox
if pe.storeMessageInOutbox = .t. then

pStore.dateStamp = now()
pStore.subject = pMessageSettings.subject
pStore.sent_by = pMessageSettings.from
pStore.sent_by_alias = pMessageSettings.from_alias
pStore.sendto = pMessageSettings.send_to
pStore.cc = pMessageSettings.cc
pStore.bcc = pMessageSettings.bcc
pStore.attachments = pMessageSettings.attachments
pStore.comments = ""
if pMessageSettings.html_message <> "" then
pStore.message = pMessageSettings.html_message
else
pstore.message = pMessageSettings.message
end if




dim flagMessageWasSavedInOutbox as l
dim pResult as p
'If an error occurs, pResult.errorText will contain the reason for the error.
flagMessageWasSavedInOutbox = a5_SaveToWebAppEmailOutBox(pStore,pResult)
end if

'send Javascript back to browser to invoke client side method and display confirmation alert

if pe.clientSideEvent.afterMessageSent <> "" then
'Send back a javascript command to invoke the function
dim jsInvokeEvent as c
jsInvokeEvent = <<%txt%
var obj = {};
obj.messageWasSent = __msgSent__;
obj.errorRext = '__errorText__';
if(window['__functionName__']) window['__functionName__'].call(this,obj);
%txt%
jsInvokeEvent = stritran(jsInvokeEvent,"__functionName__",pe.clientSideEvent.afterMessageSent)

jsInvokeEvent = stritran(jsInvokeEvent,"__msgSent__", iif( convert_type(pstore.wassent,"L") ,"true","false") )
jsInvokeEvent = stritran(jsInvokeEvent,"__functionName__", js_escape(pStore.errorText) )

'add the Javascript command to e.Javascript - the variable that contains all of the Javascript to be sent back to the browser.
dim e.Javascript as c = default ""
e.Javascript = e.Javascript + ";" + crlf() + jsInvokeEvent
end if

if pe.showConfirmationMessage = .t.
'Send back a javascript command to display the confirmation messge
dim jsAlert as c
dim msg as c




if convert_type(pstore.wasSent,"L") then
msg = pe.confirmationMessageSuccess
else
msg = pe.confirmationMessageFailure
end if

jsAlert = "alert('" + js_escape(msg) + "');"

'add the Javascript command to e.Javascript - the variable that contains all of the Javascript to be sent back to the browser.
dim e.Javascript as c = default ""
e.Javascript = e.Javascript + ";" + crlf() + jsAlert


end if