變更資料夾中的現有項目所使用的表單

在有些情況下，您可能需要變更資料夾中與項目關聯的現有表單。 通常在匯入項目之後，或是以標準 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 支援與意見反應。