最佳实践：如何通过 Lotus Notes 创建调查

调查在我们的日常工作生活中，应用非常广泛。提起调查，大家可能第一感觉会想到很多在线的调查系统，例如 IBM Nitro、Adobe 在线调查、Google 在线调查等等。假如你经常发起这样或者那样的调查的话，你是不是经常为收不到调查结果而烦恼？大家从收到调查邮件时，到开始调查之前需要打开调查的链接，甚至还需要输入各种各样的用户名和密码，这势必影响调查的回复率和效果。假如你所调查的对象都是使用 Lotus Notes 客户端，那么相信你将从本篇文章中获益。本文将以一个实例来讲解如何通过 Lotus Notes 创建调查，如图 1 显示了一个调查邮件样例，被调查者接收到调查邮件之后，只需要打开邮件并完成调查，就可以点击提交或者关闭来提交调查或者关闭邮件。

回页首

预备知识

由于调查表单的设计是在 Lotus Designer 中完成的，因此读者应了解基本的 Lotus Designer 知识，例如如何设计表单、如何设计视图。表单是用户创建文档所需要的、控制结构和格式的设计元素。通常情况下，一个数据库都会有至少一个表单。在表单上，我们可以添加各种各样的域。另外，我们还需要一个视图来显示不同的文档。大家可以通过参考资料来学习和了解 Lotus Designer。

回页首

设计调查表单

打开 Lotus Designer，在你的工作邮件数据库或者单独创建一个新的邮件数据库 ( 以 mail8x.ntf 为模板，假如您不是专业管理员，我们建议您单独创建一个新的数据库，这是因为有可能会损坏数据库，影响您的工作和使用 )。在设计元素列表中的 Forms 下，点击按钮下 创建一个新的表单 ( 我们命名为 Survey)，如图 1 所示。

1. 添加一个两行一列的表格。
2. 在表格第一行中添加一个图像。
3. 在表格第二行中以文本的形式添加调查的说明以及调查的问题，可以在表单对应位置直接输入文本内容。
4. 对于每一个开放性问题，通常都需要有一个文本框或者 Rich Text 等域；对于选择性问题，通常需要复选框（checkbox）或者单选按钮（radio button）等域。示例中是为第一个问题添加了一个单选按钮域。
5. 在表单的末尾添加一个隐藏域 ( 名字叫 submitted)，用来表示表单是否已经被提交，其属性配置如图 2 所示。读者也可以通过在图 2 的 Formula 窗口中添加 Formula 语句 @True，并使能 “Hide paragraph if formula is true”。

1. 为表单添加一些动作 ( 通过拖拽表单右边的边界来打开动作属性窗口，如图 3 所示 )：提交和关闭。其中，需要为“提交”动作的 click 属性添加如代码清单 1 所示的代码，为“关闭”动作的 click 属性添加如代码清单 2 所示的代码。另外，设置动作提交的属性，如图 4 所示，当被调查者提交结果之后，提交按钮将隐藏，防止多次提交。
2. 设置表单的 Postopen 属性，代码如代码清单 3。当被调查者打开调查邮件的时候，邮件应当是编辑状态。

				
 Sub  Click(Source  As  Button) 
  Dim  w  As  NotesUIWorkspace 
  Dim  uidoc  As  NotesUIDocument 
  Set  w  =  New  NotesUIWorkspace 
  Set  uidoc  =  w.CurrentDocument 
  Dim  doc  As  NotesDocument 
  Set  doc  =  uidoc.Document 
  ‘设置标志：调查是否提交
  Call  doc.ReplaceItemValue("submitted",  "true") 
‘被调查者发给组织者邮件的主题
  Call  doc.ReplaceItemValue("Subject",  "调查结果标题") 
‘组织者邮箱
  Call  doc.ReplaceItemValue("SendTo",  "被调查者的邮箱") ‘
  
  Call  doc.Save(True,  True) 
  ‘通过邮件形式发送调查结果
  Call  doc.Send(True) 
  Call  uidoc.Save() 
  Call  uidoc.Close() 
  Messagebox("真诚地感谢您的参与！") 
 End  Sub 

				
 Sub  Click(Source  As  Button) 
  Dim  w  As  NotesUIWorkspace 
  Dim  uidoc  As  NotesUIDocument 
  Set  w  =  New  NotesUIWorkspace 
  Set  uidoc  =  w.CurrentDocument 
  Call  uidoc.Close()  
 End  Sub 

				
 Sub  Postopen(Source  As  Notesuidocument) 
  ‘设置文档为编辑状态
  Source.EditMode  =  True 
 End  Sub 

回页首

发送调查表单

在完成了调查表单的设计之后，接下来的就是如何把调查表单发送到被调查者的邮箱。创建文件夹 Survey，添加动作“发送调查”，代码如清单 4。

				
 Sub  Click(Source  As  Button) 
  Dim  doc  As  NotesDocument 
  Dim  s  As  NotesSession 
  Dim  db  As  NotesDatabase 
  
  Set  s  =  New  NotesSession 
  Set  db  =  s.CurrentDatabase 
  Set  doc  =  New  NotesDocument(  db  ) 
  ‘被调查者邮箱，也可以是一个服务器上或者本地的组
  Call  doc.ReplaceItemValue("SendTo",  "被调查者邮箱") 
  Call  doc.ReplaceItemValue("Form",  "Survey") 
  ‘假如想在被调查者的邮箱中显示成一个其他人的邮箱，可以用这行语句设置，否则可以去掉
  Call  doc.ReplaceItemValue("Principal",  "代理人邮箱") 
  Call  doc.ReplaceItemValue("submitted",  False) 
  Call  doc.ReplaceItemValue("Importance",  "1") 
  ‘调查的主题
  Call  doc.ReplaceItemValue("Subject",  "调查主题") 
  ‘注意 Save 的参数，要设置为 True，表示表单会随着文档一起发送给被调查者，否则被调查者打开邮件将看到不正确的格式
  Call  doc.Save(True,True) 
  Call  doc.Send(True) 
  Messagebox("调查成功发出！") 
 End  Sub  

在完成了上述的设计之后，您就可以发送调查给调查的对象（如图 5，点击发送调查，成功后弹出对话框 -“调查成功发出！”）并将以邮件的形式收到调查的结果。

回页首

统计调查结果

在本实例当中，组织者将收到被调查者的邮件。组织者可以通过统计邮件中的数据来统计结果。本实例准备把这部分留给读者来完成。

回页首

展望和小结

通过上面实例的介绍，大家应该能够很方便的制作出基于 Lotus Note 的调查表单以及发送指定的表单，相信大家也觉得有很多改进的地方来发起和统计调查，作者认为有以下几个地方可以改进：

1. 可以通过程序来统计调查结果，这部分前文已经提到。
2. 目前的设计是所有的调查结果都是以邮件的形式发送给发起者，读者可以通过改动清单 1 的代码让结果直接提交到某一指定的服务器上；或者在邮件数据中创建一个代理（Agent）：每当新邮件的到来的时候，自动检查该邮件是否为调查结果的邮件，并将调查结果邮件复制到指定的数据库并删除邮件服务器上的邮件，这样也达到了转移调查结果邮件的功能。
3. 可以开发一个简单的工具来设计调查的表单，使得设计表单的难度有所降低。

参考资料

学习

• Looking ahead to version 8.5 ：关于 Domino Designer 8.5 的一些基本信息。
  
  
• Lotus Domino Designer documentation：阅读白皮书、红皮书以及更多文档。
  
  
• 参考 IBM Lotus Notes and Domino wiki。
  
  
• Lotus 多媒体课堂: Lotus Domino Designer 8.5.1 新特性介绍：了解 Lotus Designer 8.5.1 在 8.5 的基础上，在可用性、性能以及编辑器等方面的增强。
  
  
• IBM Lotus Notes/Domino 8.5 专题：了解更多与 Lotus Notes/Domino 8.5 相关的文章、教程和参考资源。
  
  
• 访问 developerWorks Lotus 专区。
  
  
• 随时关注 developerWorks 技术活动和网络广播。
  
  

获得产品和技术

• 下载 Lotus Domino 8.5 和 Lotus iNotes 8.5 试用版。
  
  

讨论

• 加入 developerWorks 中文社区，developerWorks 社区是一个面向全球 IT 专业人员，可以提供博客、书签、wiki、群组、联系、共享和协作等社区功能的专业社交网络社区。
  
  
• 加入 IBM 软件下载与技术交流群组，参与在线交流。
  
  

关于作者

为本文评分

评论

回页首

内容

• 最佳实践：如何通过 Lotus Notes 创建调查
• 预备知识
• 设计调查表单
• 发送调查表单
• 统计调查结果
• 展望和小结
• 参考资料
• 关于作者
• 评论