把NOTES 部署到GAC中.

前段時間簡單的研究了一下.NET操作Lotus Notes郵件的實(shí)現(xiàn)，具體的操作包括郵件的讀取和發(fā)送，而且都要包含附件，其間參考了《在 Microsoft .NET 應(yīng)用程序中使用 IBM Lotus Domino》一文，現(xiàn)在把成果和大家分享一下。
本文將分為獲取用戶列表、發(fā)送郵件、收取郵件三個部分，并會在文末提供范例程序（Visual Studio 2008）的下載。

引用

如果想使用.NET操作Lotus，我們可以使用 Lotus Domino Objects 通過 COM 來訪問 Domino 對象，在 Domino 服務(wù)器或者任何一個 Notes 客戶機(jī)（IBM Lotus Domino Designer、Lotus Domino Administrator 或者 Lotus Notes）的安裝中都包括 Lotus Domino Objects。如果你的開發(fā)環(huán)境復(fù)合上述的要求，就可以添加一個COM引用：Lotus Domino Objects，然后：

using Domino;

如果找不到這個COM組件，可以先注冊以下組件，然后就可以找到了：

regsvr32 "C:\Program Files\lotus\notes\nlsxbe.dll"

獲取Notes郵箱用戶列表

本段代碼將遍歷用戶視圖（People View）中的所有用戶，將其全名添加到ComboBox控件中。新建兩個全局變量（全局的目的是供本例中的其它方法使用）。

NotesSession ns;
NotesDatabase ndb;

發(fā)送郵件

本段代碼降為從ComboBox中選中的用戶發(fā)送一封郵件，我們可以輸入郵件的標(biāo)題和內(nèi)容，并可以添加附件。

try
{
    if(ns!=null)
    {
        NotesDocument doc = ndb.CreateDocument();

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

        //收件人信息
        doc.ReplaceItemValue("SendTo", cb_People.Text);

        //郵件主題
        doc.ReplaceItemValue("Subject", tb_Subject.Text);

        //郵件正文
        NotesRichTextItem rt = doc.CreateRichTextItem("Body");
        rt.AppendText(tb_Body.Text);

        //附件
        if (!string.IsNullOrEmpty(tb_Attachment.Text))
        {
            NotesRichTextItem attachment = doc.CreateRichTextItem("attachment");
            attachment.EmbedObject(EMBED_TYPE.EMBED_ATTACHMENT, "", tb_Attachment.Text, "attachment");
        }

        //發(fā)送郵件
        object obj = doc.GetItemValue("SendTo"); 
        doc.Send(false,ref obj);

        doc = null;
        MessageBox.Show("Successfully!");
    }

}
catch(Exception ex)
{
    MessageBox.Show("Error:" + ex.Message);
}

如果想要添加多個收件人，可以將代碼：

doc.ReplaceItemValue("SendTo", cb_People.Text); 

更改為代碼：

string[] receivers = { cb_People.SelectedItem.ToString(), "windie chai/TEST" };
doc.ReplaceItemValue("SendTo", receivers);

如果想要添加多個附件，可以繼續(xù)調(diào)用這個對象的EmbedObject方法:

attachment.EmbedObject(EMBED_TYPE.EMBED_ATTACHMENT, "", "FilePath", "attachment"); 

獲取收件箱內(nèi)全部郵件

為了存儲郵件內(nèi)容，我編寫了一個簡單的類：

簡單的郵件類

接著添加一個全局變量來存儲郵件集合：

public List<Mail> mails = new List<Mail>();

然后將所有郵件的信息添加的mails集合中，并將它們的標(biāo)題添加到一個ListBox中。

//清空郵件列表
lb_Mail.Items.Clear();
mails.Clear();

//獲取郵箱視圖
NotesDbDirectory dir = ns.GetDbDirectory("DominoT/TEST");
NotesDatabase maildb = dir.OpenMailDatabase();
NotesView nv = maildb.GetView("$inbox");

//遍歷所有郵件
NotesDocument doc = nv.GetFirstDocument();
while (doc != null)
{
    Mail mail = new Mail();
    mail.Subject = ((object[])doc.GetItemValue("Subject"))[0].ToString();
    mail.From = ((object[])doc.GetItemValue("From"))[0].ToString();
    mail.Body = ((object[])doc.GetItemValue("Body"))[0].ToString();
    mail.Time = ((object[])doc.GetItemValue("PostedDate"))[0].ToString();
    object[] items = (object[])doc.Items;
    foreach (NotesItem item in items)
    {
        if (item.Name == "$FILE")
        {
            string fileName = ((object[])item.Values)[0].ToString();
            NotesEmbeddedObject file = (NotesEmbeddedObject)doc.GetAttachment(fileName);
            if (file != null)
                mail.Files.Add(file);
        }
    }

    mails.Add(mail);
    lb_Mail.Items.Add(mail.Subject);

    //查找下一封郵件
    doc = nv.GetNextDocument(doc);
}

顯示郵件內(nèi)容并打開附件

由于前面的代碼中我已經(jīng)把郵件信息添加到自己定義的郵件集合中了，所以下面的操作就不需要和Domino服務(wù)器交互了。
本段代碼實(shí)現(xiàn)了在ListBox中點(diǎn)擊郵件標(biāo)題后在一個TextBox中顯示郵件內(nèi)容（包括標(biāo)題，時間，正文和附件文件名）。 

Mail m = mails[lb_Mail.SelectedIndex];
StringBuilder sbMail = new StringBuilder();
sbMail.AppendLine(m.Subject);
sbMail.AppendLine("----------");
sbMail.AppendLine(m.Time);
sbMail.AppendLine("----------");
sbMail.AppendLine(m.Body);
sbMail.AppendLine("----------");
sbMail.AppendLine("Attachments:");
foreach (NotesEmbeddedObject file in m.Files)
{
    sbMail.AppendLine(file.Name);
}
tb_Mail.Text = sbMail.ToString();

//根據(jù)附件數(shù)量決定打開附件按鈕是否可用
if(m.Files.Count>0)
{
    btn_OpenAttachment.Enabled = true;
}
else
    btn_OpenAttachment.Enabled = false;

本段代碼實(shí)現(xiàn)了當(dāng)點(diǎn)擊“打開附件”按鈕后從內(nèi)從中釋放附件文件到硬盤并執(zhí)行它。

Mail m = mails[lb_Mail.SelectedIndex];

//獲取第一個附件
NotesEmbeddedObject file = m.Files[0];

//組合一個臨時路徑
string filename = Path.Combine(Application.StartupPath,file.Name);

//將附件釋放到臨時路徑
file.ExtractFile(filename);

//執(zhí)行附件
System.Diagnostics.Process.Start(filename);

主要的代碼就這么多了，第一次使用IBM的軟件，感覺……很不順手，連對象模型都相當(dāng)別扭，嗯，廢話不說了 ，如果上面的代碼有何不恰當(dāng)?shù)牡胤竭€請各位朋友多多指教。
點(diǎn)擊這里下載本文的范例程序（Visual Studio 2008），范例程序的UI如下：

點(diǎn)擊“Sender”之后回到Notes中，刷新發(fā)現(xiàn)郵件已經(jīng)收到，包含附件，并且可以正常打開：