如何隐藏使用 notesdocument.send() 发送的邮件的收件人栏

[wanzhouxu]

我看到过别人实现过的，但无法看到代码，请高手指教，并给出示例代码，谢谢！

[chenyg2000]

Dim Session as new notessession
Dim MailBox As notesdatabase
Dim Mail As notesdocument

set MailBox = new notesdatabase(Session.ServerName,"mail.box")

Mail.Form = "Memo"
Mail.From = From
Mail.principal = From

Mail.PostedDate = Now
'Mail.SendTo = SendTo
Mail.Recipients = SendTo
Mail.Subject = Subject

Call Mail.Save(True,True)

[wanzhouxu]

谢谢先！我现在使用的如下：
/**************************************************/
Set Maildoc=New notesdocument(db)
Set rtitem=New notesrichtextitem(maildoc,"body")
Call rtitem.Appendtext("单击链接打开文档")
Call rtitem.appenddoclink(uidoc.document,"文件")
maildoc.form="Memo"
maildoc.subject="文件下发,请阅读：《"+uidoc.fieldgettext("F_subject")+"》"
Call maildoc.send(False,tempsendto.values)
Msgbox("阅文通知已发给 "+tempsendto.text)
/**************************************************/
如果使用这种方式发送邮件，应该怎么做？

[wanzhouxu]

更正：
我想实现的是，在邮件中根本不显示收件人、抄送人、主题等内容，而直接显卡邮件的正文，这应该怎么实现？

[wanzhouxu]

问题已解决！谢谢