取消单个或多个Notes邮箱和iNotes的关联

大家好，才是真的好。

很多时候我们对Notes或iNotes（webmail）界面怨恨已久，但若是升级到新的界面，又往往觉得很不适应，分分钟需要返回到老界面当中。

例如Webmail功能中，Verse的想要回到iNotes界面中，不少人的iNotes界面想回到更老的Notes Web视图界面中。

明明放着清爽的iNotes界面不要，一定要回到一股浓浓的90年代的Web 1.0风格：

我们做技术的，当然给出的是肯定答案，然后帮你想到了一个实际需求：毕竟不少企业自己开发自己的Web邮箱界面，不需要iNotes关联，毕竟你一旦在浏览器中输入邮箱地址URL，就是iNotes界面：

其实我也想到了理由，毕竟我们也会自己开发或定义的WebMail界面，例如采用XPage开发的邮箱界面：

这样我们就需要为为个别或指定的用户取消iNotes关联（如果是所有用户需要取消关联，直接删除iNotes的表单数据库即可），直接浏览器中输入邮箱地址URL能跳到我们自己开发或定义的界面上呢？

是的，当我们一访问Web地址时，Domino总是把我们跳转到经典的iNotes，也就是说用户的Notes邮箱和iNotes表单之间存在关联。

为此，我进行了研究，找到了答案。

原来Notes邮箱是通过Resource资源下面的Icon设计元素和iNotes表单之间进行关联的，Icon图标设计元素其实也是一个文档，它有自己的文档编号NoteID，如下图：

Icon图标元素中有一个字段叫做$FormsTemplateFile，还有一个有关联的是$WebHybridDb字段，你在Designer客户机中的下图中可以找到这个两个字段：

现在你的邮箱只需要写点代码把两个字段删除，例如我们的Icon文档编号为00000D6E，现在可通过Set iconDoc = db.GetDocumentById(“00000D6E”)来获取到，效果如下图：

这就是全部的LotusScript代码，很少的几行：

Dim session As New NotesSession

   Dim db As NotesDatabase

   Dim iconDoc As NotesDocument



   Set db = session.CurrentDatabase

   Set iconDoc = db.GetDocumentById("00000D6E")

   

   Call iconDoc.RemoveItem("$FormsTemplateFile")

   Call iconDoc.RemoveItem("$WebHybridDb")

   Call iconDoc.Save(True, True)

写完你的代码，只需要在Notes客户机上去点击运行一下：

一切就符合你自己的掌控了，该用户的Notes邮箱就不必和iNotes WebMail界面关联了。

是不是很神奇？今天就讲到这里吧。

更多文章请关注微信公众号：协作者