近日研究了下IBM Lotus Mail,这货果然是麻烦,由于公司策略,没有开放smtp,很多系统邮件都没有办法发送,于是入手google学习Lotus Mail,想做成Windows服务,提供wcf服务给内部应用系统使用。在google上找了很多资料,由于是系统邮件,很多东西配置起来又比较麻烦。自己也入了很多坑,特此作为记录。废话不多说,下面开始...

服务器环境:Windows Server 2008R2+Lotus Notes 8.5中文版

特别注意:Lotus Notes 8.5中文版需要配置好账户密码,但是不需要打开它。

本地环境:Lotus Notes 8.5中文版+Visual Studio 2013

~~~~~~~~~~~~~~~~~~~~~~~我是优雅的分隔符~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1,打开VS,新建类库项目LotusMailHelper,添加Lotus Domino Objects引用:

添加完之后VS会自动编译成dll

2,添加类Mail.cs,添加邮件发送方法SendMail:

/// <summary>

/// 发送邮件

/// </summary>

/// <param name="sendTo"></param>

/// <param name="subject"></param>

/// <param name="messageBody"></param>

public bool SendMail(string[] sendTo, string subject, string messageBody)

3,在Mail.cs添加Using:using Domino;

4,编写SendMail的逻辑

Domino.NotesSession nSession = new Domino.NotesSession();
string pwd = System.Configuration.ConfigurationManager.AppSettings["LotusMailPassword"];//lotus邮箱密码
string server = System.Configuration.ConfigurationManager.AppSettings["LotusMailServer"];//lotus邮箱服务器地址
string serverPath = System.Configuration.ConfigurationManager.AppSettings["LotusMailServerPath"];//存储nsf文件的路径
string saveMessageOnSend = System.Configuration.ConfigurationManager.AppSettings["SaveMessageOnSend"];//发送前是否保存
nSession.Initialize(pwd);//初始化邮件
Domino.NotesDatabase nDatabase =
nSession.GetDatabase(server, serverPath, false);
Domino.NotesDocument nDocument = nDatabase.CreateDocument();
nDocument.ReplaceItemValue("SentTo", sendTo);//收件人,数据:数组
nDocument.ReplaceItemValue("Subject", subject);//主题
if (saveMessageOnSend == "")//为1时保存到lotus的发件箱
{
nDocument.SaveMessageOnSend = true;
}
else
{
nDocument.SaveMessageOnSend = false;//设置保存与否
}
NotesStream HtmlBody = nSession.CreateStream();
HtmlBody.WriteText(messageBody);//构建HTML邮件,可以在头和尾添加公司的logo和系统提醒语
NotesMIMEEntity mine = nDocument.CreateMIMEEntity("Body");//构建邮件正文
mine.SetContentFromText(HtmlBody, "text/html;charset=UTF-8", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY);
nDocument.AppendItemValue("Principal", "XXX管理员");//设置邮件的发件人昵称
nDocument.Send(false, sendTo); //发送邮件
nDocument.CloseMIMEEntities();//关闭

由于最后会封装为dll,最好是添加try...catch...,加以优化,下面为优化过后:

/// <summary>
/// 發送lotus郵件(需要在web.config或者app.config中添加以下節點
///<appSettings>
/// <!--郵箱密碼-->
///<add key="LotusMailPassword" value="" />
/// <!--郵件服務器地址-->
///<add key="LotusMailServer" value="" />
/// <!--郵件數據庫路徑-->
///<add key="LotusMailServerPath" value="" />
/// <!--是否保存到發件箱(0不保存,1保存,其他值皆為不保存)-->
///<add key="SaveMessageOnSend" value="0" />
///</appSettings>
/// </summary>
/// <param name="sendTo">數組,收件人</param>
/// <param name="subject">主題</param>
/// <param name="messageBody">正文html</param>
/// <returns></returns>
public bool SendMail(string[] sendTo, string subject, string messageBody)
{
try
{
Domino.NotesSession nSession = new Domino.NotesSession();
string pwd = System.Configuration.ConfigurationManager.AppSettings["LotusMailPassword"];//lotus邮箱密码
string server = System.Configuration.ConfigurationManager.AppSettings["LotusMailServer"];//lotus邮箱服务器地址
string serverPath = System.Configuration.ConfigurationManager.AppSettings["LotusMailServerPath"];//存储nsf文件的路径
string saveMessageOnSend = System.Configuration.ConfigurationManager.AppSettings["SaveMessageOnSend"];//发送前是否保存
nSession.Initialize(pwd);//初始化邮件
Domino.NotesDatabase nDatabase =
nSession.GetDatabase(server, serverPath, false);
Domino.NotesDocument nDocument = nDatabase.CreateDocument();
nDocument.ReplaceItemValue("SentTo", sendTo);//收件人,数据:数组
nDocument.ReplaceItemValue("Subject", subject);//主题
if (saveMessageOnSend == "")//为1时保存到lotus的发件箱
{
nDocument.SaveMessageOnSend = true;
}
else
{
nDocument.SaveMessageOnSend = false;//设置保存与否
}
NotesStream HtmlBody = nSession.CreateStream();
HtmlBody.WriteText(messageBody);//构建HTML邮件,可以在头和尾添加公司的logo和系统提醒语
NotesMIMEEntity mine = nDocument.CreateMIMEEntity("Body");//构建邮件正文
mine.SetContentFromText(HtmlBody, "text/html;charset=UTF-8", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY);
nDocument.AppendItemValue("Principal", "XXX管理员");//设置邮件的发件人昵称
nDocument.Send(false, sendTo); //发送邮件
nDocument.CloseMIMEEntities();//关闭
return true;//已经提交到lotus,返回true
}
catch
{
return false;//提交失败
}
}

5,点击项目生成,找到Bin文件夹中的dll,保存到自己喜欢的文件夹,方便后期的调用

============我是更加优美的分隔符=============

下面一起来建立Windows service

1,打开VS,新建Windows服务项目

名字随便取。。。新建完成之后会自动生成Service1.cs,打开Service1.cs代码看看,主要分为以下几个方法:

public partial class Service1 : ServiceBase
{
public Service1()
{
InitializeComponent();
} protected override void OnStart(string[] args)
{
} protected override void OnStop()
{
}
}
OnStart:主要是写入要启动的逻辑代码
OnStop:主要写的是停止服务时要执行的方法,也就是逻辑代码,我一般会将日志写在这

2,将service1.cs删除,新建一个Windows服务,并命名成公司要求的。例如我的是MailService.cs。

3,新建一个处理邮件的方法:

public void SendMail()
{
while(true)
{
//这里写邮件数据获取以及发送邮件
Thread.Sleep();
}
}

4,构建邮件model:在解决方案点击鼠标右键添加新建项目,选择类库项目,MailModel,新建MailInfo.cs

public class MailInfo
{
public string mailId { get; set; }
public string[] sendTo { get; set; }
public string subject { get; set; }
public string mailBody { get; set; }
}

5,新建类库DbHelper,添加类Mail.cs,在里面写GetMailData()方法,RemoveMailData(),GetMailCount(),InsertMailData()等方法,这里由于涉及到公司的信息,不是很方便写出来。大家可以自行添加进去

public MailModel.MailInfo GetMailData()
{
//这里写获取邮件数据
return MailInfo;//返回数据库第一封待发邮件数据
}
public void RemoveMailData(string mailId)
{
//删除数据库中指定id的邮件数据
}
public long GetMailCount()
{
//这里写获取邮件数量
return 邮件数量
}
public bool InsertMailData()
{
//这里写插入一封邮件数据
return true;
}

6,新建类库WCF项目,添加wcf,名字为SendMail

添加完成之后VS会自动生成ISendMail.cs和SendMail.cs。打开ISendMail.cs会看到如下代码

// 注意: 使用“重构”菜单上的“重命名”命令,可以同时更改代码和配置文件中的接口名“ISendMail”。
[ServiceContract]
public interface ISendMail
{
[OperationContract]
void DoWork();
}

里面只有一个DoWork方法,我们新建一个ApplySendMail();注意:在顶上要添加[OperationContract]否则不会公开该函数。最后的ISendMail.cs代码如下

[ServiceContract]
public interface ISendMail
{
[OperationContract]
string ApplySendMail(string[] sendTo, string subject, string body, string password);
}

接着打开SendMail.cs,去实现接口的ApplySendMail()方法

public class SendMail : ISendMail
{
public string ApplySendMail(string[] sendTo, string subject, string body, string password)
{
string result = string.Empty;
string mailPassword = System.Configuration.ConfigurationManager.AppSettings["password"];
if (mailPassword == password)
{
try
{
MailModel.MailInfo mail = new MailModel.MailInfo
{
sendTo = sendTo,
subject = subject,
mailBody = body
};
long count = DbHelper.Mail.GetMailCount();
if (DbHelper.Mail.InsertMailData(mail))
{
result = string.Format("提交成功.前面大約還有:{0}個任務", count);
}
return result;
}
catch
{
return "提交失敗";
}
}
else
{
return "密码错误,无法提交";
}
}
}

至此wcf基础已经可以了,下面继续完成Windows服务那一块

7,完成处理邮件的方法SendMail(),这里要添加之前写好的LoutusMailHelper.dll

public void SendMail()
{
while(true)
{
var mailData=DbHelper.Mail.GetMailData();
if(mailData!=null)
{
if(LotusMailHelper.Mail.SendMail(mailData.sendTo,mailData.subject,mailData.mailBody))
{
DbHelper.Mail.RemoveMailData(mailData.mailId);
}
Thread.Sleep();//休息0.1秒
}
else
{
Thread.Sleep();//休息10秒钟
}
}
}

8,完成OnStart()逻辑:①,先添加私有成员到MailService.cs

partial class MailService : ServiceBase
{
public MailService()
{
InitializeComponent();
}
private System.ServiceModel.ServiceHost _host; /*
此处省略部分代码
*/
}

②,编写OnStart()代码

protected override void OnStart(string[] args)
{
_host = new System.ServiceModel.ServiceHost(typeof(WCF.Mail));
_host.Open();
//启动wcf服务 //启动一个线程专门轮询发送邮件
Thread sendMail = new Thread(new ThreadStart(SendMail));
sendMail.IsBackground = true;
sendMail.Start();
}

9,编写OnStop()代码,添加日志记录代码

10,配置App.config,wcf一定要配置。先看App.config中是否存在system.serviceModel节点,存在的话只需修改部分字段即可,不存在的话添加如下:

<system.serviceModel>
<behaviors>
<serviceBehaviors>
<behavior name="">
<serviceMetadata httpGetEnabled="true" httpsGetEnabled="true" />
<serviceDebug includeExceptionDetailInFaults="false" />
</behavior>
</serviceBehaviors>
</behaviors>
<services>
<service name="WCF.Mail">
<endpoint address="" binding="basicHttpBinding" contract="WCF.IMail">
<identity>
<dns value="localhost" />
</identity>
</endpoint>
<endpoint address="mex" binding="mexHttpBinding" contract="IMetadataExchange" />
<!--wcf节点配置开始-->
<host>
<baseAddresses>
<add baseAddress="http://localhost:8733/MailService/Mail/" />
</baseAddresses>
</host>
<!--wcf节点配置结束-->
</service>
</services>
</system.serviceModel>

~~至此,基本的都已经完成,下面到Windows service部署

1,打开MailService.cs视图界面,添加安装程序。会自动出现如下界面:

选中serviceProcessInstaller1组件,查看属性,设置account为LocalSystem

选中serviceInstaller1组件,查看属性

设置ServiceName的值, 该值表示在系统服务中的名称

设置StartType, 如果为Manual则手动启动,默认停止,如果为Automatic为自动启动

设置Description,添加服务描述

2,重新生成项目

3,打开Windows的cmd,输入C:\Windows\Microsoft.NET\Framework\v4.0.30319\InstallUtil.exe exe路径

等待安装。安装完毕之后打开计算机管理,查看服务,点击启动。

***删除服务:sc delete 服务名

至此,所有步骤都完成了,可以畅快的调用wcf来发送系统邮件了

<<<<<<<<<<<<<由于本人水平有限,可能存在很多错误,请谅解与批评指正>>>>>>>>>>>>>>

百度经验 : C#创建Windows服务与安装-图解

推荐数据库使用nosql数据库,redis或者mongodb,在接下里的随笔里我会记录mongdb和redis的使用过程。。。第一次发文,紧张死宝宝了

C# Windows Service调用IBM Lotus Notes发送邮件的更多相关文章

  1. 项目笔记---Windows Service调用Windows API问题

    概要 此文来自于最近一个“诡异”的Windows API调用发现Windows Service在调用某些Windows API的过程中失效,在经过漫长的Baidu,之后终于在StackOverFlow ...

  2. Lotus Notes 学习笔记

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

  3. Lotus Notes中编程发送邮件(二)

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

  4. 46. Lotus Notes中编程发送邮件(一)

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

  5. C# 使用 Lotus notes 公共邮箱发送邮件

    公司的邮件系统用的是反人类的 Lotus notes, 你敢信? 最近要实现一个功能,邮件提醒功能,就是通过自动发送提醒邮件 前前后后这个问题搞了2天,由于公司的诸多条件限制,无法直接调用到公司发送邮 ...

  6. 在全程Linux環境部署IBM Lotus Domino/Notes 8.5

    架設藍色巨人的協同合作訊息平台 在全程Linux環境部署IBM Lotus Domino/Notes 8.5 珊迪小姐 坊間幾乎所有探討IBM Domino/Notes的中文書籍,皆是以部署在Micr ...

  7. 宿主在Windows Service中的WCF(创建,安装,调用) (host到exe,非IIS)

    1. 创建WCF服务 在vs2010中创建WCF服务应用程序,会自动生成一个接口和一个实现类:(IService1和Service1) IService1接口如下:   using System.Ru ...

  8. war包部署在tomcat下,使用windows service服务方式启动tomcat服务器,在包含调用dll的模块,报dll找不到问题的解决办法

    问题描述: 开发了一个需要调用dll的java web程序,在idea开发环境下运行调试没问题,可以正常运行,在tomcat/bin下,运行批处理startup.bat,启动tomcat服务器,也可以 ...

  9. 使用ASP.NET实现Windows Service定时执行任务

    转载http://blog.csdn.net/yanghua_kobe/article/details/6937816 我们怎样才能在服务器上使用asp.net定时执行任务而不需要安装windows ...

随机推荐

  1. Distributed locks with Redis--官方

    原文:http://redis.io/topics/distlock Distributed locks with Redis Distributed locks are a very useful ...

  2. Oracle建表实例

    建表一般来说是个挺简单的事情,但是Oracle的建表语句有很多可选的参数,有些我们可能平时不太用,用的时候又不知道怎么用,这里就写一个较完整的建表的例子: CREATE TABLE banping  ...

  3. Android 自定义View修炼-Android中常见的热门标签的流式布局的实现

    一.概述:在日常的app使用中,我们会在android 的app中看见 热门标签等自动换行的流式布局,今天,我们就来看看如何 自定义一个类似热门标签那样的流式布局吧(源码下载在下面最后给出哈) 类似的 ...

  4. CSS3 旋转的八卦图

    <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8&quo ...

  5. <item name="android:windowNoTitle">true</item> 不起作用。标题栏未被隐藏

    改变style.xml 加入 <item name="android:windowNoTitle">true</item> 按理说可以把标题栏隐藏,但是当s ...

  6. posix thread线程

    1. pthread线程通过调用你提供的某些函数开始.这个“线程函数”应该只有一个void*型参数,并返回系统的类型.2. 通过向pthread_create函数传递线程函数的地址和线程函数调用的参数 ...

  7. 【itclx面向对象一】tcl基础语法:过程、作用域、以及itcl面向编程回顾

    学习熟悉编程的最好方法就是动手,有点面向编程思维的话,直接练习就可以.直接看demo 1.过程.作用域 #全局变量:过程外定义的变量#局部变量: 过程内部定义的变量 set a 100proc tes ...

  8. Android——按钮的事件监听

    关于Button按钮的四种事件监听方法总结 首先我们在activity_main.xml里面先定义一个Button空间 <RelativeLayout xmlns:android="h ...

  9. oc语言学习之基础知识点介绍(四):方法的重写、多态以及self、super的介绍

    一.方法重写 /* 重写:当子类继承了父类的方法时,如果觉得父类的方法不适合,那么可以对这个方法进行重新实现,那么这个就重写. 注意:也就是说,一定只能发生在父类和子类关系中. 然后是子类重新实现父类 ...

  10. 我的MFC学习之路(一)

    因为项目需求,我开始应用MFC写程序.具体接触MFC的时间大概也有两个月了.现在的水平算是刚刚踏入了MFC大门的半只脚.目前能基本使用MFC Class Wizard,可以根据实例仿照完成需求,小范围 ...