内网用程序(最好java)直接向 Lotus Notes 发邮件的思路
如题,如何才能在公司内部(使用lotus notes 邮件系统)用程序向其他员工发邮件.且lotus邮件服务器不在公司(内部不能上外网).求方法思路.
[解决办法]
楼主可以参照我的代码：我测试是通过的，但是没有Lotus SMTP的验证。顺便JF. :)
<%@page contentType= "text/html;charset=gb2312 "%>
<%@ page import= "java.util.*, javax.mail.*, javax.mail.internet.* " %>
<html>
<head>
<title> JavaMail sending test </title>
</head>
<body>
<%
String smtphost = "vinson "; //Domino smtphost,you should make sure the smtp service is opened in domino Server
String user = " ";
String password = " ";
String from = "admin ";
String to = "admin ";
String subject = "Java Mail Subject! ";
String body = "Java Mail Body! ";
// the following is mail sending program,user needn 't to revise it
try {
Properties props = new Properties();
props.put( "mail.smtp.host ", smtphost);
props.put( "mail.smtp.auth ", "true ");
Session ssn = Session.getInstance(props, null);
MimeMessage message = new MimeMessage(ssn);
InternetAddress fromAddress = new InternetAddress(from);
message.setFrom(fromAddress);
InternetAddress toAddress = new InternetAddress(to);
message.addRecipient(Message.RecipientType.TO, toAddress);
message.setSubject(subject);
message.setText(body);
Transport transport = ssn.getTransport( "smtp ");
transport.connect(smtphost, user, password);
transport.sendMessage(message, message.getRecipients(Message.RecipientType.TO));
//transport.send(message);
transport.close();
%> <p> your Mail has been sent,please return**C </p> <%
} catch(Exception m) {
out.println(m.toString());
}%>
</BODY>
</HTML>
[解决办法]
String smtphost => 你要发送的domino服务器名称
String from => 发件人，domino服务器上的邮箱用户
String to => 收件人，domino服务器上的邮箱用户
在这里测试用是设置发件人和收件人为同一个人
下面两个应该是smtp验证用的，记不清了。
String user = " ";
String password = " ";
[解决办法]
www.baidu.com
www.google.com
key: lotus com组件
(下面的为搜索的参考,来源:http://doc.greatso.com/20070411/443/)
用.NET完成Lotus与异质系统的数据交互
分类 : .NET 发布时间 : 2007-04-16 04:20:33 来源 : 技术文档大全
用.NET完成Lotus与异质系统的数据交互
用.NET完成Lotus与异质系统的数据交互
我们用的开发平台：
服务器：windows2000＋web服务器：IIS5.0＋Lotus Notes/Domino 5.0.3版；
XML Web Service服务开发工具：Visual Studio.NET Beta2；
客户端：ASP web页面或者VB windows application。
开发步骤：
1) Lotus Notes/Domino 的Notes数据库
新建一个Notes数据库或者利用原有的数据库。在这个数据库里面至少有一个表单，在表单里有一些域，用来存放一些条目的信息。再建立几个视图，视图主要是用来按照一定规则显示文档的。比如按照时间的顺序或按照文档的点击率。
2) 建立XML web service服务
打开Visual studio .NET Beta2版，新建项目－> Visual c#的ASP.NET web服务，删掉默认的ASMX文件，新建一个Web服务页面NewsPublish.asmx，打开NewsPublish.asmx.cs文件，这里将是我们编写源代码的地方。右键点击解决方案，添加引用，选择COM组件中的Lotus Domino Object组件，确定后就引用了COM组件，在我们的程序里面就可以访问Notes数据库了。好了，就可以开始编写代码提供方法调用服务了。在这里，笔者给出其中一个方法，GetNewByPostTime提供获取指定数目的新闻条目的服务，每个新闻条目只是有提交时间、作者、标题、分类、文档标识号码等基本的信息，没有具体的内容。以下是为部分源代码。
GetNewsByPostTime方法：
//返回新闻条目，存储在一个数组里面
//PageSize参数为新闻条目的数目
public NewsItem[] GetNewsByPostTime(int PageSize)
{
Domino.IViewNavigator vn;
Domino.IViewEntry h;
Domino.IDocument doc;
int index=0;
NewsItem[] Result=new NewsItem [PageSize];
//连接Notes数据库
vn=ConnectToNotesDb( " ", "bbs.nsf ", "bufy_2001 ", "All Documents ",out h);
//获取每个新闻文档的信息
do
{
doc = h.Document;
Result[index]=new NewsItem ();
Result[index].Subject =doc.GetFirstItem ( "Subject ").Text;
Result[index].Category =doc.GetFirstItem ( "categories ").Text ;
Result[index].PostTime =doc.Created.ToString ();
Result[index].Author =doc.GetFirstItem( "From ").Text ;
Result[index].NewsID =doc.NoteID .ToString ();
index++;
h = vn.GetNextDocument(h);
}
while(h!=null&&index <PageSize);
return Result;
}
连接Louts数据库的方法：
//这个方法建立Notes的数据库连接并获取视图的句柄
public Domino.IViewNavigator ConnectToNotesDb(string pServer,string pDbFileName,string pPassword,string pNotesView,out Domino.IViewEntry h)
{
NotesSession s=new NotesSession ();
Domino.IDatabase db;
Domino.IView v;
Domino.IViewNavigator vn;
s.Initialize (pPassword);
db=s.GetDatabase (pServer,pDbFileName,false);
v=db.GetView (pNotesView);
vn=v.CreateViewNav(0);
：h=vn.GetFirstDocument ();
return vn;
}
至此完成了web service服务的定义，在想发布的web service服务上标上[WebMethod]，这样服务就可以被客户端访问了。
3) 客户端的构建
客户端可以有很多种方法可以构建，在这里只讲述用ASP web站点的连接方式。客户端想获取XML web service服务，除了要支持http的连接外，还要能够解析XML文档。ASP通过调用XMLHTTP组件接受XML消息，在应DOM来解析XML文档获取我们需要的信息。
在这里，笔者只列出ASP请求、接受XML服务和解析XML文档的源代码：
Dim oXMLHTTP
Dim oDOM
Set oXMLHTTP=Server.CreateObject ( "Microsoft.XMLHTTP ")
Set oDOM = Server.CreateObject( "Microsoft.XMLDOM ")
'利用post方法完成xml web service服务的请求 oXMLHTTP.open_ "POST ", "http://192.168.3.11/DominoXmlWebService/NewsPublish.asmx/GetNewsDetails ",f_alse
'利用Get方法完成xml web service服务的请求
'oXMLHTTP.open_ "GET ", "http://192.168.3.11/DominoXmlWebService/NewsPublish.asmx/GetNewsByCount?_
NewsID= "&newsID& " ",false
'设置post方法参数
oXMLHTTP.SetRequestHeader_ "Content-Type ", "application/x-www-form-urlencoded "
'发送post数据
oXMLHTTP.send "NewsID= "&newsID& " "
'如果用get方法，则发送方法如下
'oXMLHTTP.send
Set oDOM=oXMLHTTP.responseXML
Set theNode=oDOM.documentElement.childNodes(0)
NewsID=theNode.ChildNodes(0).text
Subject=theNode.ChildNodes(1).text
Category=theNode.ChildNodes(2).text
Count=theNode.ChildNodes(3).text
PostTime=theNode.ChildNodes(4).text
Author=theNode.ChildNodes(5).text
Body=theNode.ChildNodes(6).text
至此，我们完成了所有的任务。
[解决办法]
有四种办法：1.smtp 2.vbs 3.java调用本地notes连接远端服务器 4.java直接连接远端服务器发送邮件。
你要是内网不能连接远端服务器，只能试一下2.3，我已经实现了这4种方式，要代码的话可以和我联系，email:gengyansheng@hb.icbc.com.cn
