NET利用Lotus Notes發送郵件代码,Asp.Net代码库,德仔网

代码语言

代码分类

【Asp.Net】 NET利用Lotus Notes發送郵件

作者:dezai / 发布于2014/6/4/ 430


	///1.本地需要安裝客戶端。

	///2.程序中加入COM引用(Lotus Domino Objects)。

	///3.代碼中加入using Domino;

	///4.具體實現：

	 ns.Initialize("***");//密碼
	 NotesDatabase ndb = ns.GetDatabase("Server", "names.nsf", false);

	 NotesDocument doc = ndb.CreateDocument();
	 doc.ReplaceItemValue("Form", "Memo");
	 doc.ReplaceItemValue("SendTo", "群組/用戶");
	 doc.ReplaceItemValue("Subject", "測試郵件");
	 NotesRichTextItem rt = doc.CreateRichTextItem("Body");
	 rt.AppendText("測試郵件");
	 object obj = doc.GetItemValue("SendTo");
	 doc.Send(false, ref obj);
	 doc = null;

	============================

	ps:如果希望發送html文件中的內容。則如下：

	 ns.Initialize("jayz");
	 NotesDatabase ndb = ns.GetDatabase("Server", "names.nsf", false);

	 NotesDocument doc = ndb.CreateDocument();
	 doc.ReplaceItemValue("Form", "Memo");
	 doc.ReplaceItemValue("SendTo", "群組/用戶");
	 doc.ReplaceItemValue("Subject", "測試郵件");
	

	 //測試html
	 NotesStream stream = ns.CreateStream();
	 NotesMIMEEntity htmlbody = doc.CreateMIMEEntity("body");
	 stream.Open("*:/*.htm", "UTF-8");
	 NotesMIMEEntity htmlchild = htmlbody.CreateChildEntity(null);
	 htmlchild.SetContentFromText(stream, "text/html;charset=UTF-8", MIME_ENCODING.ENC_IDENTITY_8BIT);
	 stream.Close();

	 object obj = doc.GetItemValue("SendTo");
	 doc.Send(false, ref obj);
	 doc = null;
	 Response.Write("<script language='javascript'>alert('發送成功')</script>");

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　發送郵件　

同语言下

可能有用的

dezai贡献的其它代码(1065)