【发布时间】:2018-12-14 19:49:27
【问题描述】:
我有一个 IMAP 帐户,想将自定义视图复制到不同 pst 文件中的其他文件夹。
这个想法是使用 VBA 来做到这一点。
目前我可以使用 VBA 将特定视图应用到 IMAP 文件夹,因为我已经创建了这些视图。但是,查看其他 pst 文件,这些相同的视图并不存在。
根据使用 Outlook.View 的提示,我创建了一个带有 2 个按钮和 2 个事件的表单,这些事件调用 2 个具有存储/应用功能的不同子组件:
Private Sub CommandButtonApplyView_Click()
Call ApplyStoredView
End Sub
Private Sub CommandButtonStoreView_Click()
Call StoreView
End Sub
我有一个模块:
Public StoredView As Outlook.View
Public Sub StoreView()
Set StoredView = Application.ActiveExplorer().CurrentView
End Sub
Public Sub ApplyStoredView()
StoredView.Apply
End Sub
我们的想法是将视图存储在全局变量 StoredView 上,并在单击时使用 CommandButtonApplyView 和使用其他按钮 CommandButtonStoreView 将其存储在任何其他文件夹中
要应用我的视图的文件夹(例如在另一个 pst 文件中)不会根据存储的视图重新格式化。
似乎我们只保留了 pst “Table view”、“Compact”、“Single”和“Preview”中存在的标准 4 个视图。不考虑新视图(已存储)。
【问题讨论】: