#dim smtp As %Net.SMTP
  #dim m As %Net.MailMessage
  
  set m=##class(%Net.MailMessage).%New()
  set m.From="from@domen.com"
  set m.Subject="Письмо с вложением и ссылкой"
  set m.Charset="utf-8"
  set m.IsHTML= 1 
  set m.ContentType="text/html"
  do m.TextData.Write("Нажмите на следующую ссылку: http://localhost:8972/csp/samples/menu.csp")
  do m.To.Insert("to@domen.com")
  do m.AttachFile("C:\InterSystems\Cache\CSP\docbook","Cache.jpg")
  
  set smtp=##class(%Net.SMTP).%New()
  set smtp.smtpserver="123.145.167.189"
  do smtp.Send(m)