回答:
すべての定義済みフォルダー名をすばやくリセットするには:
[スタート]→[実行](またはコマンドプロンプト)を開きます。次のコマンドを実行します:
reg add "HKCU \ SOFTWARE \ Microsoft \ Office \ 12.0 \ Outlook \ Setup" / v ResetFolderNames / t reg_dword / d 1 / f
代わりに:
「C:\ Program Files \ Microsoft Office \ OFFICE12 \ outlook」/ resetfoldernames
さまざまなソースが両方の方法をリストしています。私はそれらのいずれも試していません。
単一のフォルダーの名前を変更するには:
Sub CDORenameFolder()
Dim outlookApp As Outlook.Application
Dim outlookSession As Outlook.NameSpace
Dim cdoSession As MAPI.Session
Dim folder As Outlook.MAPIFolder
Dim cdoFolder As MAPI.folder
Dim newName As String
Set outlookApp = New Outlook.Application
Set outlookSession = outlookApp.Session
Set cdoSession = New MAPI.Session
cdoSession.Logon ShowDialog:=False, NewSession:=False
Set folder = outlookSession.PickFolder
Set cdoFolder = cdoSession.GetFolder(folder.EntryID, folder.StoreID)
newName = InputBox(("Rename '" + cdoFolder.Name + "' to:"), "Rename folder", cdoFolder.Name)
If newName <> "" Then
cdoFolder.Name = newName
cdoFolder.Update
End If
cdoSession.Logoff
Set cdoSession = Nothing
Set outlookSession = Nothing
Set outlookApp = Nothing
End Sub