我運行以下腳本來隱藏 Outlook 中的檔案夾，但我錯誤地隱藏了我的日歷
Option Explicit
Public Sub HideFolders()
Dim oFolder As Outlook.Folder
Dim oPA As Outlook.PropertyAccessor
Dim PropName, Value, FolderType As String
PropName = "http://schemas.microsoft.com/mapi/proptag/0x10F4000B"
Value = True
Set oFolder = Application.ActiveExplorer.CurrentFolder
Set oPA = oFolder.PropertyAccessor
oPA.SetProperty PropName, Value
Set oFolder = Nothing
Set oPA = Nothing
End Sub
然后我嘗試了以下腳本來恢復我的 Outlook 日歷，但它不起作用
Option Explicit
Public Sub FindFolders()
Dim oFolder As Outlook.Folder
Dim oPA As Outlook.PropertyAccessor
Dim PropName, Value, FolderType As String
PropName = "http://schemas.microsoft.com/mapi/proptag/0x10F4000B"
Value = False
Set oFolder = Session.GetDefaultFolder(olFolderCalendar)
Set oPA = oFolder.PropertyAccessor
oPA.SetProperty PropName, Value
Set oFolder = Nothing
Set oPA = Nothing
End Sub
任何幫助將不勝感激
uj5u.com熱心網友回復：
您可以在沒有腳本的情況下使用OutlookSpy解決此類問題- 單擊 IMsgStore 按鈕，單擊“打開檔案夾”，選擇要打開的檔案夾，雙擊PR_ATTR_HIDDEN要編輯的屬性。
uj5u.com熱心網友回復：
我的新腳本確實有效，我只需要在運行后重新啟動 Outlook
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/448400.html
上一篇：將重復名稱編輯為每行一個