답변:
미리 정의 된 모든 폴더 이름을 빠르게 재설정하려면
시작 → 실행 (또는 명령 프롬프트)을 엽니 다. 이 명령을 실행하십시오 :
reg 추가 "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