diff --git a/PivotSubscriptions/Task.cls b/PivotSubscriptions/Task.cls
index 55231ec..61ac584 100644
--- a/PivotSubscriptions/Task.cls
+++ b/PivotSubscriptions/Task.cls
@@ -101,7 +101,8 @@ ClassMethod SendEmail(pID, pSendNow As %Boolean = 0, pPivot As %String, pEmails
Set server=##class(%Net.SMTP).%New()
Set server.smtpserver=##class(%SYS.Task.Config).GetData("MailServer")
Set msg=##class(%Net.MailMessage).%New()
- Set msg.From="PivotSubscriptions"
+ Set emaildomain=##class(PivotSubscriptions.Utils).GetSettings("EmailDomain")
+ Set msg.From="PivotSubscriptions"_$select(emaildomain'="":"@"_emaildomain,1:"")
Do msg.To.SetAt(tEmail,1)
Set validAdminEmail=##class(PivotSubscriptions.Utils).CheckConfigurationGlobal("AdminEmail")
diff --git a/PivotSubscriptions/UI/ConfigurationPage.cls b/PivotSubscriptions/UI/ConfigurationPage.cls
index 1a52e36..ef42e3b 100644
--- a/PivotSubscriptions/UI/ConfigurationPage.cls
+++ b/PivotSubscriptions/UI/ConfigurationPage.cls
@@ -15,6 +15,7 @@ XData contentPane [ XMLNamespace = "http://www.intersystems.com/zen" ]
+
@@ -88,6 +89,9 @@ Method %OnAfterCreatePage() As %Status
If $G(^PivotSubscriptions.Settings("ErrorTypes"))'="" {
Set ..%GetComponentById("ErrorTypes").value=^PivotSubscriptions.Settings("ErrorTypes")
}
+ If $G(^PivotSubscriptions.Settings("EmailDomain"))'="" {
+ Set ..%GetComponentById("EmailDomain").value=^PivotSubscriptions.Settings("EmailDomain")
+ }
Quit $$$OK
@@ -106,19 +110,20 @@ ClientMethod ButtonClick() [ Language = javascript ]
var customfootermessage=zen('CustomFooterMessage').getValue();
var changesonly=zen('ChangesOnly').getValue();
var errortypes=zen('ErrorTypes').getValue();
+ var emaildomain=zen('EmailDomain').getValue();
- var status=zenPage.SaveConfiguration(adminemail,http,server,port,nodataemail,nodatamessage,customfooter,customfootermessage,changesonly,errortypes);
+ var status=zenPage.SaveConfiguration(adminemail,http,server,port,nodataemail,nodatamessage,customfooter,customfootermessage,changesonly,errortypes,emaildomain);
}
catch(ex) {
zenExceptionHandler(ex,arguments);
}
}
-Method SaveConfiguration(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes) As %Status [ ZenMethod ]
+Method SaveConfiguration(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes, pEmailDomain) As %Status [ ZenMethod ]
{
Set tSC=$$$OK
- Set tSC = ##class(PivotSubscriptions.Utils).ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes)
+ Set tSC = ##class(PivotSubscriptions.Utils).ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes, pEmailDomain)
Quit tSC
}
diff --git a/PivotSubscriptions/Utils.cls b/PivotSubscriptions/Utils.cls
index 5fb0962..6d02190 100644
--- a/PivotSubscriptions/Utils.cls
+++ b/PivotSubscriptions/Utils.cls
@@ -7,7 +7,7 @@ ClassMethod GetVersion() As %String
}
/// Utility method for saving and updating global variables
-ClassMethod ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes)
+ClassMethod ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes, pEmailDomain)
{
Set ^PivotSubscriptions.Settings("AdminEmail")=pAdminEmail
Set ^PivotSubscriptions.Settings("Http")=pHttp
@@ -19,6 +19,7 @@ ClassMethod ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail,
Set ^PivotSubscriptions.Settings("CustomFooterMessage")=pCustomFooterMessage
Set ^PivotSubscriptions.Settings("ChangesOnly")=pChangesOnly
Set ^PivotSubscriptions.Settings("ErrorTypes")=pErrorTypes
+ Set ^PivotSubscriptions.Settings("EmailDomain")=pEmailDomain
Quit $$$OK
}