请问用代理发邮件，附件怎么发？

aix操作系统上。怎么用代理发带附件的邮件，附件在document里，最好不要把附件解压到文件系统上。 --------------------编程问答-------------------- 把带附件的文档，直接doc.send这样发送出去，自然就带上附件一起发送了 --------------------编程问答-------------------- Dim mailDoc As NotesDocument
set mailDoc = New NotesDocument(db)
Dim filePath As String
filePath = getFilePath()  '你的附件在aix操作系统上，物理硬盘存放路径
......
......
Dim rtitem As NotesRichTextItem
Set rtitem = mailDoc.CreateRichTextItem("body")
Call rtitem.embedobject(EMBED_ATTACHMENT,"",filePath) '帮附件到文档
Call mailDoc.send(False) 


'好久没有写代码了,最好看看帮助 NotesRichTextItem  --------------------编程问答-------------------- filePath  '附件的存放路径 --------------------编程问答-------------------- 在doc里面可以把域拷贝过来，试试看。不经过服务器中转？为啥，简单明了，不懂~

补充：企业软件 ,  Lotus