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" ] +