Cache中实现自动发送邮件

//其中Addr为目标对象的email地址，MessageText为邮件内容

ClassMethodSendEmail(AddrAs%Library.String, MessageTextAs%Library.String) As%Library.String
{
NewMailer,Msg
// Create an SMTP object and connect to a server
SetMailer= ##class(%Net.SMTP).%New()

// Fill in the name of your mail server
SetMailer.smtpserver= "SMTP.qq.com"//设置smtpserver,本例使用Tencent的qq邮箱，注意qq邮箱需要开通smtp
SetMailer.port="25"
setAuthor= ##class(%Net.Authenticator).%New()设置授权
setAuthor.UserName="发件人的email地址"
setAuthor.Password="发件人的email密码"
setMailer.authenticator= Author
// Create a Message object and fill in From, To, Subject
SetMsg= ##class(%Net.MailMessage).%New()
// Fill in an email address
SetMsg.From="发件人的email地址"
DoMsg.Cc.Insert("添加抄送对象的email地址，可实现发送给多人")
DoMsg.To.Insert(Addr)
SetMsg.Subject= "邮件标题"//设置邮件标题
// Add message content

DoMsg.TextData.Write("hi,this is a email")
// Send the message and close objects
DoMailer.Send(Msg)
Quit"Email confirmation has been sent to "_ Addr
}