公司的邮件系统用的是反人类的 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. Java多线程编程—锁优化

    并发环境下进行编程时,需要使用锁机制来同步多线程间的操作,保证共享资源的互斥访问.加锁会带来性能上的损坏,似乎是众所周知的事情.然而,加锁本身不会带来多少的性能消耗,性能主要是在线程的获取锁的过程.如 ...

  2. 【自制工具类】Java删除字符串中的元素

    这几天做项目需要把多个item的id存储到一个字符串中,保存进数据库.保存倒是简单,只需要判断之前是否为空,如果空就直接添加,非空则拼接个"," 所以这个字符串的数据结构是这样的 ...

  3. WPF 简单的循环GIF播放

    //MVVM要事件绑定,记得项目引用类库“Sysrem.Windows.interactivity”,然后XAML引用 xmlns:i="http://schemas.microsoft.c ...

  4. 教你搭建你自己的Git服务器

    http://lib.csdn.net/article/git/50086 导读 现在我们将要学习如何搭建 git 服务器,如何编写自定义的 Git 钩子来在特定的事件触发相应的动作(例如通知),或者 ...

  5. ASP.NET Core下发布网站

    一.windows下发布到IIS 1.前奏:IIS上的准备 (1)IIS 必须安装AspNetCoreModule 模块 下载地址:(DotNetCore.2.0.3-WindowsHosting-a ...

  6. PostgreSql问题：ERROR: column "1" does not exist

    摘录自:http://blog.csdn.net/shuaiwang/article/details/1807421 在PostgreSQL中,不论是在pgAdmin中还是在命令行控制台里面,在SQL ...

  7. 流程控制语句if、else、elif、break、continue

    1.控制流程 # if 判断语句 a = 12 if a>0: print('a大于0') if a<5: print('a大于5') else: print('哈哈哈') 2.基本形式: ...

  8. 2017-07-08( bzip2 bunzip mount)

    .bz2 压缩格式  不能压缩目录 bzip2  源文件  (不保留源文件) bzip2 -k  源文件 (保留源文件) bzip2 -d  压缩文件名  (-k保留压缩文件) bunzip  压缩文 ...

  9. 转：Python之路,Day6 - 面向对象学习

    这篇文章写的不错,转来收了 转自:http://www.cnblogs.com/alex3714/articles/5188179.html   本节内容:   面向对象编程介绍 为什么要用面向对象进 ...

  10. JVM-类加载器

    类加载器 对于虚拟机的角度来看,只存在两种类加载器: 启动类加载器(Brootstrap ClassLoader)和"其他类加载器".启动类加载器是由C++写的,属于虚拟机的一部分 ...