公司的邮件系统用的是反人类的 Lotus notes, 你敢信？

最近要实现一个功能，邮件提醒功能，就是通过自动发送提醒邮件

前前后后这个问题搞了2天，由于公司的诸多条件限制，无法直接调用到公司发送邮件的接口，只有通过类似 Lotus script，VBA 等其他方式来实现。

用VBA代码实现发送邮件，其实我在n年前就实现过了

代码如下，网上一搜也一大堆

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 =  To UBound(Attach)

        strAttach = Attach(i)

        If Len(strAttach) >  And Len(Dir(strAttach)) >  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 =  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

但是现实情况是这样的

我们需要邮件从公邮发送出去

何谓公邮：整个Team使用的邮箱，如***admin@email.com 之类的邮箱

使用过反人类的 Lotus notes 都知道公邮是需要先打开个人邮箱才能进去的

于是当我把以上的VBA 代码增加如下代码，设置从公邮里面发送邮件后

     Server = "C***/****r/****"

     Path = "****\C*****.nsf"

     Set db = s.GetDataBase(Server, Path)

邮件确实是从公邮发送出来，但是很遗憾，邮件发送人那显示的是我的个人邮箱，而查看我个人的已发送邮件，是完全查不到，但是在公邮已发送邮件可以看到

这就无法理解了，于是开启了漫长的2天人类大战反人类Lotus notes战役

前前后后试过各种VBA代码【表问为什么不直接调接口】

但要不就是能显示为公邮发送的，但邮件 body 不能Html格式，否则就是相反，总之一句话：二者不可兼得

期间看遍国内外关于Lotus notes VBA的网站

最后，实在是忍不了了，开始搜索Python，C#

一直犹犹豫豫没有写是因为同事告诉我，比如使用C#就需要邮箱密码，而这个东西我们没有也不会有的

最后的最后，决定赌一把，我先用C#,直接写出来，等报错提示密码没有的时候我再想办法

于是战战兢兢有了以下代码

        /// <summary>

        /// 通过notes发送邮件

        /// </summary>

        /// <param name="mailTo">实时数据库</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");//设置邮件的发件人昵称

                    NotesRichTextItem rt = doc.CreateRichTextItem("Body");

                    var richStyle = ns.CreateRichTextStyle();

                    richStyle.PassThruHTML = ;

                    rt.AppendStyle(richStyle);

                    rt.AppendText(mailBoby);

                    //发送邮件

                    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;

            }

        }

抱着必死的心态小心翼翼的点击了调试

WTF!!!!

居然收到一封有邮件！没有密码啊！不需要密码吗！密码不用也能发送！！！

再试了一次后，发现真的不需要！！！

因为我们每天开机打开notes的时候也不需要输入密码！！！这可能是和本机的ID文件有绑定！！！在毕业后的第一家公司中是需要输入密码的！

于是欣喜若狂

开始修改代码

最终版本

        /// <summary>

        /// 通过notes发送邮件

        /// </summary>

        /// <param name="mailTo">实时数据库/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);//构建HTML邮件，可以在头和尾添加公司的logo和系统提醒语

                    NotesMIMEEntity mine = doc.CreateMIMEEntity("Body");//构建邮件正文

                    mine.SetContentFromText(HtmlBody, "text/html;charset=UTF-8", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY);

                    doc.AppendItemValue("Principal", "C**********am");//设置邮件的发件人昵称

                    //发送邮件

                    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;

            }

        }

期间还遇到

由于这句代码放置的位置不对，导致显示不正确

doc.AppendItemValue("Principal", "C**********am");//设置邮件的发件人昵称

最终突破的那一刻心情真的很爽，虽然到到现在仍然不知道不要密码的原因，但总归解决了困惑两天的问题，不敢独享

有时候就是听别人说，这条路走不通，就不走了

有时候就是听别人说，已经封装好了，直接调吧，就调了而不知如何实现

有时候就是抄作业，以为自己会了，于是真真用的时候就不知道了

年前终于开始不那么忙了，欠了那么多，该慢慢补回来了

C# 使用 Lotus notes 公共邮箱发送邮件的更多相关文章

  1. Lotus Notes中编程发送邮件（二）

    在编程发送各种类似通知的邮件时,时常会需要发件人显示为某个特定的帐户,比如某个部门的名称或者管理员的名字.另一种需求是,用户收到某封邮件后,回复邮件的地址不同于发件人栏显示的地址.而正常情况下,发送邮 ...

  2. 46. Lotus Notes中编程发送邮件（一）

    邮件是Lotus Notes体系的核心和基本功能,以至于Send()是NotesDocument的一个方法,任何一个文档都可以被发送出去,Notes里的一封邮件也只是一个有一些特殊字段的文档.在程序开 ...

  3. C# Windows Service调用IBM Lotus Notes发送邮件

    近日研究了下IBM Lotus Mail,这货果然是麻烦,由于公司策略,没有开放smtp,很多系统邮件都没有办法发送,于是入手google学习Lotus Mail,想做成Windows服务,提供wcf ...

  4. 55. 略谈Lotus Notes的与众不同及系列文章至此的总结

    在二十多年的悠久历史里,Lotus Notes发展出一整套独特的概念.技术和思维.由于它早期惊人的领先时代和后续发展中同样惊人的忠于传统,这位软件领域的寿星在如今发展更新速度远超往日和技术愈趋公开互通 ...

  5. 52. 模版和设计元素——Lotus Notes的代码重用

    不论是理论上还是实用上,代码重用都是编程的一个重要议题.可以从两个角度来讨论代码重用. 一是逻辑上代码以怎样的方式被重用.既可以通过面向对象的思想普及以来耳熟能详的继承的方式.比如先建了一个车的基类, ...

  6. Lotus Notes 学习笔记

    这是一个学习关于如何使用Lotus Notes的Agent功能来实现自动化办公的学习笔记. 一. 介绍 Lotus Notes/Domino 是一个世界领先的企业级通讯.协同工作及Internet/I ...

  7. 杂项之使用qq邮箱发送邮件

    杂项之使用qq邮箱发送邮件 本节内容 特殊设置 测试代码 1. 特殊设置 之前QQ邮箱直接可以通过smtp协议发送邮件,不需要进行一些特殊的设置,但是最近使用QQ邮箱测试的时候发现以前使用的办法无法奏 ...

  8. 使用LotusScript操作Lotus Notes RTF域

    Lotus Notes RTF域的功能也非常强大,除了支持普通的文本以外,还支持图片.表格.嵌入对象.Http 链接.Notes 链接.附件等等众多的类型.本文将介绍如何使用这些类来灵活操作富文本域. ...

  9. DEDECMS会员注册如何配置邮箱发送邮件功能

    网站邮件功能是一个非常基础和有效的通信工具,配合dede会员注册邮件验证功能可以大量的拒绝垃圾注册用户.那么如何配置DEDECMS会员注册邮箱发送邮件功能?   1:配置dedecms网站发信EMAI ...

随机推荐

  1. c# for 和 foreach 的区别

    foreach 能够进行foreach的类型结构,都必须实现IEnumerable接口. IEnumerable接口,有一个GetEnumerator的方法,返回一个实现IEnumerator接口的对 ...

  2. radiobutton独特属性

    radiobutton是通过name来分组的,也就是说,使用相同的名字的radio,它们才是单选的,如果名字不同的radio,是不具备这个效果的,这个是第一要点. 第二,针对不同的radio(name ...

  3. HDU 2412 Farm Irrigation

    题目: Benny has a spacious farm land to irrigate. The farm land is a rectangle, and is divided into a ...

  4. 从零开始学习前端开发 — 7、CSS宽高自适应

    一.宽度自适应 语法:width:100%; 注: a)块状元素的默认宽度为100% b) 当给元素设置宽度为100%时,继承父元素的宽度 c) 通常使用宽度自适应实现通栏效果 二.高度自适应 语法: ...

  5. 【Jsp/Servlet】获取客户端使用的ip

    一般使用jsp的时候大多数时间都可以使用request.getRemoteAddr() 来获取ip,但是这个前提是未经过反向代理等操作的原始地址,所以,需要在反向代理等操作之后还要获取客户端的ip变得 ...

  6. LAMP LNMP 和 LNMPA

    LAMP指的是:Linux+Apache+MySQL+Perl/PHP/Python LAMP是一个缩写,它指一组通常一起使用来运行动态网站或者服务器的自由软件: Linux,操作系统:  Apach ...

  7. 织梦dede在首页调用留言本

    织梦dedecms在首页调用留言本 . {dede:loop table=dede_guestbook sort=dtime row=10 titlelen=36 typeid=40 if=ische ...

  8. Struts2 05---拦截器

    一.Struts2拦截器原理: Struts2拦截器的实现原理相对简单,使用了aop思想和责任链模式,当请求struts2的action时,Struts 2会查找配置文件,并根据其配置实例化相对的拦截 ...

  9. Harris角点检测原理分析

    看到一篇从数学意义上讲解Harris角点检测很透彻的文章,转载自:http://blog.csdn.net/newthinker_wei/article/details/45603583 主要参考了: ...

  10. jQuery --- 实现 checkbox 样式的单选框

    早就想写点博客了 一直懒着动  最近发现一些写过的东西都不记得了,下决心把自己平时遇到的问题.得到的经验记录下来,希望能大家一点帮助 这是之前写的一个模态框 要求单选 但是 要求radio的默认样式 ...