.net调用lotus notes发邮件，没有已发送邮件

悬赏园豆：20 [已解决问题] 解决于 2012-09-03 14:16

相关代码如下，只是不知道已发送邮件怎么添加？

 NotesDocument doc = ndb.CreateDocument();
                    
                    doc.AppendItemValue("SendTo", txtReceiver4.Text.Trim());
                    WriteLog.Log("添加收件人，成功！");
                    if (txtCC4.Text.Trim() != "")
                    {
                        doc.AppendItemValue("CopyTo", txtCC4.Text.Trim());
                        WriteLog.Log("添加抄送人，成功！");
                    }
                    doc.AppendItemValue("Subject", txtSubject4.Text);
                    WriteLog.Log("添加邮件主题，成功！");

                    doc.AppendItemValue("Form", "Memo");

                    //发件人信息
                    doc.AppendItemValue("From", "jack zhang");

                    string psenddate = System.DateTime.Now.ToString("yyyy/MM/dd");
                    doc.ReplaceItemValue("SendDate", psenddate);
                    ns.ConvertMime = false;
                    Domino.NotesMIMEEntity bodyHtml = doc.CreateMIMEEntity("Body");
                    Domino.NotesStream notesStream = ns.CreateStream();
                    notesStream.WriteText(txtContent4.Text, Domino.EOL_TYPE.EOL_NONE);
                    bodyHtml.SetContentFromText(notesStream, "text/html, charset=UIF-8", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY);
                    notesStream.Truncate();
                    notesStream.Close();
                    doc.CloseMIMEEntities(true, "Body");
                    ns.ConvertMime = true;
                    doc.ComputeWithForm(false, false);
                    object MailTo = txtReceiver4.Text.Trim();
                    doc.Send(false, ref MailTo);
                    
                    doc = null;
                    MessageBox.Show("发送成功！");