VBA应用示例: 自动化批量地删除OutLook日历项.

一、问题的产生

　　由于用了Windows Moblie的手机,现在一般都用手机来进行记录日志,手机记录日志可以随便在任何地点，想起来就记一两条，方便!对于经常在车上的我，比较适合，这些约会记录现在已经记录了大约有９００多条，但是机器一但重新安装就比较麻烦，手机与新电脑一同步就会产生重复的记录，成倍增长。

二、问题的解决

　　于是做了一个ＶＢＡ的程序，来对重复的记录进行自动地删除。主要就是运用Outlook
VBA的Restrict方法来遍历每一个的重复项，本来打算自己写双重内循环自已来判断的，但那个程序执行了10分钟也没有完，后来改用Restrict方法，几秒钟就搞定１８００条记录。看来ＶＢ自己的算法还是很高效率的。
　　程序如下

Function DeleteUltraAppoint() Function DeleteUltraAppoint()
Dim myolApp As Outlook.Application
Dim myCalenderFolder As