Example
This section presents an example that allows you to send simple single-part or multipart email messages that contain string content. In a production system, you would probably use streams instead of strings. Because this example uses strings, however, you can easily test it by means of the production testing page.
First, the request message class for the single-part message is as follows:
Class EEMA.SimpleMsg Extends Ens.Request
{
Property Subject As %String(MAXLEN = 100);
Property Message As %String(MAXLEN = 5000);
}
The request message class for the multipart message is next. This class can contain a three-part message.
Class EEMA.MultipartMsg Extends Ens.Request
{
Property Subject As %String(MAXLEN = 100);
Property Part1 As %String(MAXLEN = 5000);
Property Part2 As %String(MAXLEN = 5000);
Property Part3 As %String(MAXLEN = 5000);
}
The following business operation can accept either of these messages, create the appropriate email message, and send that via the configured SMTP server:
Class EEMA.EmailOperation Extends Ens.BusinessOperation
{
Parameter ADAPTER = "EnsLib.EMail.OutboundAdapter";
Parameter INVOCATION = "Queue";
Method SendSimpleMessage(pRequest As EEMA.SimpleMsg,
Output pResponse As Ens.Response) As %Status
{
Set email=##class(%Net.MailMessage).%New()
//Get info from pReq
Do email.TextData.Write(pRequest.Message)
Set email.Subject=pRequest.Subject
//simple case--do not check for failed recipients
Set tSc=..Adapter.SendMail(email)
//send an empty response message after message is sent
Set pResponse=##class(Ens.Response).%New()
;Quit tSc
}
Method SendMultipartEmailMessage(pRequest As EEMA.MultipartMsg,
Output pResponse As Ens.Response) As %Status
{
Set part1=##class(%Net.MailMessage).%New()
Do part1.TextData.Write(pRequest.Part1)
Set part2=##class(%Net.MailMessage).%New()
Do part2.TextData.Write(pRequest.Part2)
Set part3=##class(%Net.MailMessage).%New()
Do part3.TextData.Write(pRequest.Part3)
Set email=##class(%Net.MailMessage).%New()
Set email.Subject=pRequest.Subject
Set email.IsMultiPart=1
Do email.Parts.SetAt(part1,1)
Do email.Parts.SetAt(part2,2)
Do email.Parts.SetAt(part3,3)
//simple case--do not check for failed recipients
Set tSc=..Adapter.SendMail(email)
//send an empty response message after message is sent
Set pResponse=##class(Ens.Response).%New()
Quit tSc
}
XData MessageMap
{
<MapItems>
<MapItem MessageType="EEMA.SimpleMsg">
<Method>SendSimpleMessage</Method>
</MapItem>
<MapItem MessageType="EEMA.MultipartMsg">
<Method>SendMultipartEmailMessage</Method>
</MapItem>
</MapItems>
}
}
