Помогите прицепить к письму файл хранящийся в БД

set s=##class(%Net.SMTP).%New()
set s.smtpserver="..."
set m=##class(%Net.MailMessage).%New()
set m.From="..."
do m.To.Insert("...")
set m.Subject="Test"
set m.Charset="iso-8859-1"
set status=m.TextData.Write("This is the main body.")

s rs=##class(%ResultSet).%New()
d rs.Prepare("select * from Files.Files")
d rs.Execute()
while rs.Next() {
s attach=##class(%Net.MailMessagePart).%New()
s stream=##class(Files.Files).%OpenId(rs.Get("ID"))
d attach.BinaryData.CopyFrom(stream.FileData)
s attach.Charset=stream.FilesText.GetAttribute("CharSet")
s attach.FileName="1.rar"
d m.Parts.SetAt(attach,m.Parts.Count()+1)
s m.IsMultiPart=1
}
d s.Send(m)

Сообщение приходит с прицепом, но прикрепленные файлы пустые, 0 байт...
Можно ли вообще так делать? или сохранять файл на диск и только потом цеплять?

Действительно, set attach.IsBinary=1 не хватало. Видать глаз замылило поздно вечером когда код метода AttachFile изучал. (

Обнаружилось походу что ломаются длинные имена файлов, при разбивке заголовков (по 77 символов?). Ставится лишний $c(13,10) перед именем файла.
Такая вот маленькая неприятная фича.

w $zv
Cache for Windows (Intel) 5.2.3 (Build 710) Tue Dec 12 2006 10:09:36 EST