公司的邮件系统用的是反人类的 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. PHP操作MySQL对表增加一列（一个字段）

    2014-03-19 16:59 1471人阅读 评论(0) 收藏 举报 分类: MySQL(12) 对于已经建立好的数据库,在一个已经有字段的表内新加字段可用以下方法: mysql_query(&q ...

  2. Linux/Unix系统SSH远程按Backspace键删除时出现^H的处理方法

    在linux/unix系统中连接SSH远程工作时,输出字符后按Backspace键删除时,会出现^H,这对习惯了按Backspace键删除的用户来说,感觉非常别扭,虽然可以通过Ctrl+Backspa ...

  3. Python3 字符串格式化

    1.字符串的格式化: 按照统一的规格去输出成为一个新的字符串 2.字符串格式化的方法: 1)format方法 fomat()有两个参数位置参数和关键字参数用中括号括起来{ } #{0}{1}为位置参数 ...

  4. 【编程技巧】ExtJs 设置GridPanel表格文本垂直居中

    详细讲解见 http://blog.csdn.net/li396864285/article/details/9310983 以下是我改修的代码: {         width:90,        ...

  5. 【开发技术】Xcode3与xcode4.2模板对比(Xcode4.2开发之一些变化)

    Xcode3中IOS下的Application的模板如下: Navigation_Based Application OpenGL ES Application Tab Bar Application ...

  6. XHR

    xhr注入 XHR 注入技术是通过XMLHttpRequest来获取javascript的.但与eval不同的是,该机制是通过创建一个script的DOM元素,然后把XMLHttpRequest的响应 ...

  7. vue学习笔记（一）——why Vue

  8. 强大的Cmder

    why 漂亮,包装并美化了各个shell 带task功能,能记忆,能执行脚本 配合win10的bash,能实现类似xshell的功能 注意点 需要注意的一点,Cmder来源于另外一个项目ConEmu, ...

  9. 懒人小技巧, Toad 常用偷懒方法

    用toad很久了, 感叹它的功能强大的同时整理了一些相关技巧,  有以前在网上看到的也有自己平时用的时候偶尔发现的, 分享一下, 它对用户体验方面做的真的很到位, 通过各种方式来方便用户的操作. 菜鸟 ...

  10. MySQL的char和varchar针对空格的处理

    MySQL的char和varchar存储和查询中包含空格的实验 MySQL版本 一.测试char包含空格的存储和查询 测试发现,存储的数据,char数据类型的右侧空格存储的时候被删除了,但是左侧空格还 ...