通过

更改文件夹中现有项目使用的窗体

  • 项目

在某些情况下，可能需要更改与文件夹中已有的项目关联的窗体。 通常在导入项目后，或者在已基于标准 Outlook 窗体创建了项目后又创建自定义窗体时，有必要执行此操作。

不能通过 Outlook 用户界面直接改变“邮件类”字段。但是，可以用 VBScript、Visual Basic 或 Visual Basic for Applications 改变“邮件类”字段。

下面的“自动化”代码可作为开发自己的解决方案的基础。 代码假设新窗体的名称是 MyForm。 它将改变默认联系人文件夹中的所有联系人，以便它们可以使用 MyForm。

Sub ChangeMessageClass() 
Set olNS = Application.GetNameSpace("MAPI") 
Set ContactsFolder = _ 
 olNS.GetDefaultFolder(olFolderContacts) 
Set ContactItems = ContactsFolder.Items 
 
For Each Itm in ContactItems 
 If Itm.MessageClass <> "IPM.Contact.MyForm" Then 
 Itm.MessageClass = "IPM.Contact.MyForm" 
 Itm.Save 
 End If 
Next 
End Sub

注意 如果要使用默认文件夹以外的文件夹，请使用 Folders 集合对象来引用文件夹列表中可用的任何文件夹。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。