公司的邮件系统用的是反人类的 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入门篇（四）——数组

    上篇在foreach中有引入一个数组的概念,数组是最为常见的一种数据结构,是相同类型的.用一个标识符封装到一起的基本类型数据序列或对象序列. 数组是具有相同数据类型的一组数据的集合,根据维数不同可以分 ...

  2. TI-RTOS 之 事件同步(Event, 类似semaphore)

    TI-RTOS 之 事件同步(Event, 类似semaphore) Event 是类似Semaphore的存在,官方如下描述: SYS/BIOS events are a means of comm ...

  3. [学习OpenCV攻略][001][Ubuntu安装及配置]

    root登入配置 1.sudo passwd root 2.su - root 3.vim /etc/lightdm/lightdm.conf [SeatDefaults] user-session= ...

  4. 从零开始学习前端JAVASCRIPT — 3、JavaScript基础string字符串介绍

    1:字符串 JS中的任何数据类型都可以当作对象来看.所以string既是基本数据类型,又是对象. 2:声明字符串 基本数据类型:var sStr = '字符串'; 对象的方法:var oStr = n ...

  5. 字符串API

    string可以看成是多个字符组成的只读数组,也可以通过下标去访问某个字符 访问i位置的字符 :  str[i] 字符个数:  str.length 倒数第n个字符 : str[str.length- ...

  6. DEDECMS万能标签{dede:sql}使用教程详解

    http://www.dede58.com/a/dedebq/2015/0226/1737.html 1.首页在后台单页文档管理里添加一个单页文档,内容编辑框输入你要的内容生成. 2.在需要调用单页文 ...

  7. 【笔记】BFC 模型知识整理

    网上看了很多 BFC 的概念,发现都说得不是很完整和深入,刚好最近看了一些视频教程说到了 BFC 概念所以记录一下. BFC 的概念: BFC 全称:Block format context 块级格式 ...

  8. Redis进阶实践之七Redis和Lua初步整合使用

    一.引言        Redis学了一段时间了,基本的东西都没问题了.从今天开始讲写一些redis和lua脚本的相关的东西,lua这个脚本是一个好东西,可以运行在任何平台上,也可以嵌入到大多数语言当 ...

  9. 怎么查看mysql的安装目录

    如果忘记了MySQL的安装目录,怎么快速找到呢?方法或许很多,作者觉得这种最方便了 环境:windows+mysql+navicat 方法:进入mysql命令行输入:show variables li ...

  10. Log4j源码解析--Appender接口解析

    本文转自上善若水的博客,原文出处:http://www.blogjava.net/DLevin/archive/2012/07/10/382676.html.感谢作者的无私的分享. Appender负 ...