C#中利用Lotus notes公共郵箱發(fā)送郵件的方法
更新時間：2018年02月19日 11:44:26 作者：Lionel Andrés Messi
這篇文章主要給大家介紹了關(guān)于C#中利用Lotus notes公共郵箱發(fā)送郵件的方法，文中通過示例代碼介紹的非常詳細，對大家的學(xué)習(xí)或者工作具有一定參考學(xué)習(xí)價值，需要的朋友們下面來一起看看吧。
前言
公司的郵件系統(tǒng)用的是反人類的 Lotus notes, 你敢信？
最近要實現(xiàn)一個功能，郵件提醒功能，就是通過自動發(fā)送提醒郵件
前前后后這個問題搞了2天，由于公司的諸多條件限制，無法直接調(diào)用到公司發(fā)送郵件的接口，只有通過類似 Lotus script，VBA 等其他方式來實現(xiàn)。
用VBA代碼實現(xiàn)發(fā)送郵件，其實我在n年前就實現(xiàn)過了
代碼如下，網(wǎng)上一搜也一大堆
Function SendEmailbyNotesWithAttachement_2(Addresses, Attach, cc)
strSubject = ThisWorkbook.Sheets("EMAIL").Range("B1")
strbody = ThisWorkbook.Sheets("EMAIL").Range("A1")
'Declare Variables
Dim s As Object
Dim db As Object
Dim body As Object
Dim bodyChild As Object
Dim header As Object
Dim stream As Object
Dim host As String
Dim message As Object
' Notes variables
Set s = CreateObject("Notes.NotesSession")
Set db = s.CURRENTDATABASE
Set stream = s.CreateStream
' Turn off auto conversion to rtf
s.ConvertMIME = False
' Create message
Set message = db.CREATEDOCUMENT
message.Form = "memo"
message.Subject = strSubject
message.sendTo = Split(Addresses, ";")
message.CopyTo = cc
message.SaveMessageOnSend = True
' Create the body to hold HTML and attachment
Set body = message.CreateMIMEEntity
'Child mime entity which is going to contain the HTML which we put in the stream
Set bodyChild = body.CreateChildEntity()
Call stream.WriteText(strbody)
Call bodyChild.SetContentFromText(stream, "text/HTML;charset=UTF-8", ENC_NONE)
Call stream.Close
Call stream.Truncate
' This will run though an array of attachment paths and add them to the email
For i = 0 To UBound(Attach)
strAttach = Attach(i)
If Len(strAttach) > 0 And Len(Dir(strAttach)) > 0 Then
' Get the attachment file name
pos = InStrRev(strAttach, "\")
Filename = Right(strAttach, Len(strAttach) - pos)
'A new child mime entity to hold a file attachment
Set bodyChild = body.CreateChildEntity()
Set header = bodyChild.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Set header = bodyChild.CreateHeader("Content-Disposition")
Call header.SetHeaderVal("attachment; filename=" & Filename)
Set header = bodyChild.CreateHeader("Content-ID")
Call header.SetHeaderVal(Filename)
Set stream = s.CreateStream()
If Not stream.Open(strAttach, "binary") Then
MsgBox "Open failed"
End If
If stream.Bytes = 0 Then
MsgBox "File has no content"
End If
Call bodyChild.SetContentFromBytes(stream, "application/octet-stream", ENC_IDENTITY_BINARY) ' All my attachments are excel this would need changing depensding on your attachments.
End If
Next
'Send the email
Call message.Send(False)
s.ConvertMIME = True ' Restore conversion
End Function
VBA
但是現(xiàn)實情況是這樣的
我們需要郵件從公郵發(fā)送出去
何謂公郵：整個Team使用的郵箱，如***admin@email.com 之類的郵箱
使用過反人類的 Lotus notes 都知道公郵是需要先打開個人郵箱才能進去的
于是當我把以上的VBA 代碼增加如下代碼，設(shè)置從公郵里面發(fā)送郵件后
Server = "C***/****r/****" Path = "****\C*****.nsf" Set db = s.GetDataBase(Server, Path)
郵件確實是從公郵發(fā)送出來，但是很遺憾，郵件發(fā)送人那顯示的是我的個人郵箱，而查看我個人的已發(fā)送郵件，是完全查不到，但是在公郵已發(fā)送郵件可以看到
這就無法理解了，于是開啟了漫長的2天人類大戰(zhàn)反人類Lotus notes戰(zhàn)役
前前后后試過各種VBA代碼【表問為什么不直接調(diào)接口】
但要不就是能顯示為公郵發(fā)送的，但郵件 body 不能Html格式，否則就是相反，總之一句話：二者不可兼得
期間看遍國內(nèi)外關(guān)于Lotus notes VBA的網(wǎng)站
最后，實在是忍不了了，開始搜索Python，C#
一直猶猶豫豫沒有寫是因為同事告訴我，比如使用C#就需要郵箱密碼，而這個東西我們沒有也不會有的
最后的最后，決定賭一把，我先用C#,直接寫出來，等報錯提示密碼沒有的時候我再想辦法
于是戰(zhàn)戰(zhàn)兢兢有了以下代碼
/// <summary>
/// 通過notes發(fā)送郵件
/// </summary>
/// <param name="mailTo">實時數(shù)據(jù)庫</param>
/// <returns></returns>
public static void SendForNotes()
{
string notesPwd = "";
string notesServer = "C***3/C***/***r/***C";
string NotesDBName = @"M**l\C***to.nsf";
string mailTo = "m****o@c**.***.com";
string mailSubject = DateTime.Now.ToString();
string mailBoby = "<html><body><table border='1'><tr><th>Month</th><th>Savings</th></tr><tr><td>January</td><td>$100</td></tr></table></body></html>";
NotesSession ns;
NotesDatabase db;
NotesDocument doc;
try
{
ns = new NotesSession();
if (ns != null)
{
//您本機notes的密碼
ns.Initialize(notesPwd);
//初始化NotesDatabase
db = ns.GetDatabase(notesServer, NotesDBName, false);
doc = db.CreateDocument();
doc.ReplaceItemValue("Form", "Memo");
doc.ReplaceItemValue("SendTo", mailTo);
doc.ReplaceItemValue("Subject", mailSubject.Replace('\r', ' ').Replace('\n', ' '));
doc.AppendItemValue("Principal", "C******m");//設(shè)置郵件的發(fā)件人昵稱
NotesRichTextItem rt = doc.CreateRichTextItem("Body");
var richStyle = ns.CreateRichTextStyle();
richStyle.PassThruHTML = 1;
rt.AppendStyle(richStyle);
rt.AppendText(mailBoby);
//發(fā)送郵件
object obj = doc.GetItemValue("SendTo");
doc.Send(false, ref obj);
doc = null;
}
}
catch (Exception ex)
{
// Log.CreateLog(ex.Message);
}
finally
{
ns = null;
db = null;
doc = null;
}
}
抱著必死的心態(tài)小心翼翼的點擊了調(diào)試
WTF!!!!
居然收到一封有郵件！沒有密碼啊！不需要密碼嗎！密碼不用也能發(fā)送?。。?/p>
再試了一次后，發(fā)現(xiàn)真的不需要?。?！
因為我們每天開機打開notes的時候也不需要輸入密碼！??！這可能是和本機的ID文件有綁定?。?！在畢業(yè)后的第一家公司中是需要輸入密碼的！
于是欣喜若狂
開始修改代碼
最終版本
/// <summary>
/// 通過notes發(fā)送郵件
/// </summary>
/// <param name="mailTo">實時數(shù)據(jù)庫/lysh</param>
/// <returns></returns>
public static void SendForNotes2()
{
string notesPwd = "";
string notesServer = "C****3/**/S***/****";
string NotesDBName = @"****\******.nsf";
string mailTo = "****t**@***.com";
string mailSubject = DateTime.Now.ToString();
string mailBoby = "<html><body><table border='1'><tr><th>Month</th><th>Savings</th></tr><tr><td>January</td><td>$100</td></tr></table></body></html>";
NotesSession ns;
NotesDatabase db;
NotesDocument doc;
try
{
ns = new NotesSession();
if (ns != null)
{
//您本機notes的密碼
ns.Initialize(notesPwd);
//初始化NotesDatabase
db = ns.GetDatabase(notesServer, NotesDBName, false);
doc = db.CreateDocument();
doc.ReplaceItemValue("Form", "Memo");
doc.ReplaceItemValue("SendTo", mailTo);
doc.ReplaceItemValue("Subject", mailSubject.Replace('\r', ' ').Replace('\n', ' '));
doc.SaveMessageOnSend = true;
NotesStream HtmlBody = ns.CreateStream();
HtmlBody.WriteText(mailBoby);//構(gòu)建HTML郵件，可以在頭和尾添加公司的logo和系統(tǒng)提醒語
NotesMIMEEntity mine = doc.CreateMIMEEntity("Body");//構(gòu)建郵件正文
mine.SetContentFromText(HtmlBody, "text/html;charset=UTF-8", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY);
doc.AppendItemValue("Principal", "C**********am");//設(shè)置郵件的發(fā)件人昵稱
//發(fā)送郵件
object obj = doc.GetItemValue("SendTo");
doc.Send(false, ref obj);
doc = null;
}
}
catch (Exception ex)
{
// Log.CreateLog(ex.Message);
}
finally
{
ns = null;
db = null;
doc = null;
}
}
期間還遇到
由于這句代碼放置的位置不對，導(dǎo)致顯示不正確
doc.AppendItemValue("Principal", "C**********am");//設(shè)置郵件的發(fā)件人昵稱
最終突破的那一刻心情真的很爽，雖然到到現(xiàn)在仍然不知道不要密碼的原因，但總歸解決了困惑兩天的問題，不敢獨享
有時候就是聽別人說，這條路走不通，就不走了
有時候就是聽別人說，已經(jīng)封裝好了，直接調(diào)吧，就調(diào)了而不知如何實現(xiàn)
有時候就是抄作業(yè)，以為自己會了，于是真真用的時候就不知道了
年前終于開始不那么忙了，欠了那么多，該慢慢補回來了
總結(jié)
以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，如果有疑問大家可以留言交流，謝謝大家對腳本之家的支持。
相關(guān)文章
這篇文章主要介紹了C# 16 進制字符串轉(zhuǎn) int的方法，非常不錯，具有參考借鑒價值,需要的朋友可以參考下2018-04-04
大家好，本篇文章主要講的是c#二叉樹存儲介紹，感興趣的同學(xué)趕快來看一看吧，對你有幫助的話記得收藏一下，方便下次瀏覽2021-12-12
本篇文章主要介紹了C# 創(chuàng)建壓縮文件的實現(xiàn)代碼，小編覺得挺不錯的，現(xiàn)在分享給大家，也給大家做個參考。一起跟隨小編過來看看吧2017-05-05
這篇文章主要介紹了C#中的多線程超時處理實踐方案，非常不錯，具有參考借鑒價值,需要的朋友可以參考下2018-01-01
這篇文章主要介紹了C# Console.WriteLine()用法案例詳解,本篇文章通過簡要的案例,講解了該項技術(shù)的了解與使用,以下就是詳細內(nèi)容,需要的朋友可以參考下2021-08-08
這篇文章主要介紹了C#中遍歷Hashtable的4種方法,本文直接給出實例代碼,需要的朋友可以參考下2015-06-06
C#中JavaScriptSerializer幫助類用法實例
這篇文章主要介紹了C#中JavaScriptSerializer幫助類用法,實例分析了JavaScriptSerializer幫助類處理json字符串時的技巧,需要的朋友可以參考下2014-12-12
這篇文章主要介紹了C#簡單連接sql數(shù)據(jù)庫的方法,涉及C#基于控制臺的數(shù)據(jù)庫連接創(chuàng)建于命令執(zhí)行相關(guān)技巧,具有一定參考借鑒價值,需要的朋友可以參考下2016-06-06
c#入門之枚舉和結(jié)構(gòu)體使用詳解(控制臺接收字符串以相反的方向輸出)
這篇文章主要介紹了c#入門之枚舉和結(jié)構(gòu)體使用詳解,最后提供了編寫控制臺應(yīng)用程序接收字符串并做相應(yīng)處理的小示例,需要的朋友可以參考下2014-04-04
C#多線程學(xué)習(xí)之(四)使用線程池進行多線程的自動管理
這篇文章主要介紹了C#多線程學(xué)習(xí)之使用線程池進行多線程的自動管理,實例分析了C#中線程池的概念與相關(guān)的使用技巧,非常具有實用價值,需要的朋友可以參考下2015-04-04