【Lotus】升级到Lotus 7.0.3后，本地邮箱复本的邮件显示在“所有文档”视图中

   
    最近，遇到蛮多的无聊的故障，简单但处理起来需要花很长的时间。
    问题就是：在Clustered的Domino邮件服务器，从7.0.2FP2升级到7.0.3FP1之后，使用本地邮箱复本的用户遇到一些问题：
    1）收件箱的未读标记不能显示未读文档数；
    2）刷新图标总是显示为新邮件来临；
    3）新邮件不能显示在收件箱，都到了“所有文档”视图。但主邮件服务器和集群邮件服务器上的复本没有此一现象。

    前两个问题，可以通过下列服务器控制台命令解决：

    DBCache Flush
        Drop "User Canonical Name"
        Load Fixup -F -l UserMailFile
        Load Compact -D -C UserMailFile
   
    针对第3个问题，有效的解决办法是将服务器邮箱复本中 （$Inbox）目录删除掉，然后执行一次数据库设计替换操作。但整个过程耗时费力。于是就有了下列的示例脚本。

    当然，我们可以将第一个、第二个问题的处理过程合并在脚本中的。


    

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim v As NotesView
    
    Dim strTemplate As String
    Dim strMailServer As String
    Dim strMailFile As String
    Dim strCommRefreshDesign As String
    '模板数据库名称
    strTemplate = "LxxxxxMail7LC.ntf"
    
    Set db = s.CurrentDatabase
    Set v = db.GetView("($Inbox)")
    If v.IsFolder     Then


        '更改收件箱的设计，添加一个别名


        v.Aliases = "strInbox"
        If v.IsProhibitDesignRefresh Then


          ' 去除设计保护属性 


           v.IsProhibitDesignRefresh = False
        End If
    End If
    
    strMailServer = db.Server
    strMailFile = db.FilePath
    strCommRefreshDesign = "load convert " + strMailFile + " * " + strTemplate
    Msgbox strCommRefreshDesign,,strMailServer
    '签发load convert命令替换数据库设计。
    Call s.SendConsoleCommand(strMailServer, strCommRefreshDesign)
    
End Sub