outlook数据文件变大后会新建一个数据文件,但如果之前建立了大量规则,那么新建和修改这些文件和规则会是件让人头痛的事
经过一天的摸索,完成了文件夹的复制,规则的目标文件夹的替换,以下是代码
Sub testMacro()
Dim defaultStore As Store
Dim defaultFolder As Folder
Dim sourceStore As Store
Dim dataStores As Stores
Dim dataStore As Store
Dim loopFolder As Folder
Dim inputFolder As Folder
Dim customerFolders As Folders
Dim customerFolder As Folder
Dim customerFolder2 As Folder
Dim customerFolder3 As Folder
Dim sourceFolder As String
Dim targetFolder As Folder
Dim targetFolder2 As Folder
Dim loopCollection
sourceFolder = InputBox("请输入要拷贝的数据文件的文件夹")
Set defaultStore = Session.defaultStore '当前数据文件
Set defaultFolder = defaultStore.GetRootFolder '个人文件夹
For Eac