一个关于删除日历简要表的样例

问题描述:
有的时候，用户使用个人邮箱库的邮件规则会出现不正常的现象，例如，启用的规则不生效，或是已经删除的规则还在生效。解决这类的问题，通常需要为这个邮箱库重新创建日历简要表。下面的方法是一个样例，可以实现删除日历简要表。

解答:
具体的步骤如下：

1.打开这个有问题的邮箱库，创建一个新的邮件。

 

2。在正文里，创建一个按钮, 然后，输入如下代码：
Sub Click(source as button)
Dim session as New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set profile=db.GetProfileDocument("Archive Profile")
Call profile.remove(True)
Set profile=db.GetProfileDocument("Calendarprofile")
Call profile.remove(True)
End Sub

 

 

如下图：

 

2.保存此邮件为草稿。

 

3.在草稿中打开它，并按那个按钮。

 

4.关闭邮箱库，然后再重新打开它，并重新设置用户惯用选项。

 

如果问题是出现在其他的用户邮箱库里，那么需要把此邮件发送给其他的用户，让那个用户打开此邮件，按此按钮，之后，再重新打开邮箱库设置用户惯用选项。

转载于:https://blog.51cto.com/freemanluo/253652