s m = ##class(%Net.MailMessage).%New()
	s m.From = from
	d m.To.Insert(to)
	s m.Subject = subject
	s status = m.TextData.Write(text)	
	if $$$ISNOTNULL(attachList){
		for i=1:1:$LL(attachList) {
			s iattach = $LG(attachList,i)
			s filename = ##class(%File).GetFilename(iattach)
			s directory = ##class(%File).GetDirectory(iattach)
			s sc = m.AttachFile(directory,filename,1)
			q:'$$$ISOK(sc)
		}
	}

s m = ##class(%Net.MailMessage).%New()
s m.From = from
d m.To.Insert(to)
s m.Subject = subject
d m.TextData.Write(text)
	
	if $$$ISNOTNULL(attachList){
		for i=1:1:$LL(attachList) {
			s iattach = $LG(attachList,i)
			s filename = ##class(%File).GetFilename(iattach)
			s filenameUTF8 = $ZCVT(filename, "O", "UTF8")
			
			s currStream=##class(%FileBinaryStream).%New()
			s currStream.Filename=iattach
			s sc = m.AttachStream(currStream,filename,1)
			q:'$$$ISOK(sc)
			
                        s stream = ##class(%FileBinaryStream).%New()
			d stream.CopyFrom(currStream)
	  		s sc = m.AttachStream(stream,filenameUTF8,1)
			q:'$$$ISOK(sc)
		}
	}
	
s status=s.Send(m)
q status

        s m = ##class(%Net.MailMessage).%New()
	s m.From = from
	d m.To.Insert(to)
	s m.Subject = subject
	s status = m.TextData.Write(text)
	
	if $$$ISNOTNULL(attachList){
	 	s m.IsMultiPart = 1
		for i=1:1:$LL(attachList) {
			s iattach = $LG(attachList,i)
			s filename = ##class(%File).GetFilename(iattach)
			s directory = ##class(%File).GetDirectory(iattach)
			s attach = ##class(%Net.MailMessagePart).%New()
			s attach.IsBinary = 1
			s stream = attach.BinaryData
			s sc = stream.LinkToFile(directory_filename)
			q:'sc
			if (stream.AtEnd) {
				s sc = "CANNOT_OPEN_FILE"
				q
			}
			s count = m.Parts.Count()+1
 			s attach.Dir = directory
 			s attach.FileName = $ZCVT(filename, "I", "UTF8")
 			s sc = m.Parts.SetAt(attach, count)
			q:'$$$ISOK(sc)
		}	
	}