使用JavaScript自动化客户端 Lotus Mail

分享于 

4分钟阅读

Web开发

  繁體
LotusMail

介绍

以上帝的名义,我开始 this。 一些程序员在 Windows 应用程序中编写了自动化 Lotus Notes ( 通过 Lotus Notes 发送电子邮件)的文章。 但是,当我们希望通过客户端通过 Lotus Notes 发送电子邮件时,我们可以选择Java脚本。

这个JavaScript直接实现客户端Lotus客户端。 基本思想是获取客户端的Lotus数据库并将你的邮件插入邮件数据库。 在这里我不会再写了。 但是剧本会。

实现

在这里我列出了通过 Lotus Notes 发送电子邮件的脚本。 首先我们必须为 Lotus.NotesSession 创建 ActivexObject,然后我们必须使用该对象的方法来发送邮件。 我们可以在activeX对象中使用几种方法来自动实现 Lotus Notes。 我们必须创建一个邮件文档对象来创建邮件主题和内容。

JavaScript代码

function SendScriptMail(mToMail,mSub,mMsg) 
{ 
 var Maildb; 
 var UserName; 
 var MailDbName; 
 var MailDoc; 
 var AttachME; 
 var Session; 
 var EmbedObj; 
 var server; 
 try 
 { 
 // Create the Activex object for NotesSession  Session = new ActiveXObject('Notes.NotesSession'); 
 if(Session!=null) 
 { 
 // Get the user name to retrieve database  UserName = Session.UserName; 
 // Retrieve database from username  MailDbName = UserName.substring(0,1) + UerName.substring(
 UserName.indexOf( "", 1) + 1, UserName.length) + ".nsf" 
 // Get database  Maildb = Session.GetDatabase("", MailDbName); 
 // open the database if(Maildb.IsOpen!= true) 
 { 
 Maildb.OPENMAIL(); 
 } 
 // Create the mail document  MailDoc = Maildb.CREATEDOCUMENT(); 
 // From email id (Username)  MailDoc.Form = 'Memo'; 
 // To email id  MailDoc.sendto = mToMail; 
 // Subject of the mail  MailDoc.Subject = mSub; 
 // Content of the mail  MailDoc.Body = mMsg 
 // if you want to save message on send, give true here  MailDoc.SAVEMESSAGEONSEND = false; 
 // send the mail (check ensure the internet connection)  MailDoc.Send(true); 
 // save the mail in draft (no need of internet connection)  MailDoc.Save(false, true); 
 // destroy the objects  Maildb = null; 
 MailDoc = null; 
 AttachME = null; 
 EmbedObj = null; 
 Session.Close(); 
 Session = null; 
 alert('Mail sent successfully'); 
 } 
 else 
 { 
 alert('Mail not sent'); 
 } 
 } 
 catch(err) 
 { 
 if(err == '[object Error]') 
 { 
 alert('Error while sending mail,
 Please check Lotus Notes installed in your system'); 
 } 
 else 
 { 
 alert('Error while sending mail'); 
 } 
 } 
}

使用限制

注意:由于安全原因,IE 不允许脚本在客户机端创建 ActivexObject。 这样剧本就不会工作了。 如果你要更改这里设置,你必须先更改网络安全设置,然后从工具菜单中选择"互联网选项",然后转到"安全"选项卡,选择"本地内部网"或者"互联网",然后单击"启用",选择或者"提示"选项。 改变这个,你必须在互联网上失去你的安全。 所以最好在"可信站点"中更改相同的设置,并将页面添加到"可信站点"中。


JAVA  Javascript  AUTO  mail  Lotus  
相关文章