답변:
먼저 fastmail의 "정크 메일"폴더가 있으면 삭제하십시오 . 그런 다음 아래 지침을 사용하십시오.
협업 데이터 오브젝트 설치 . (직접 설치되지는 않습니다. 다운로드 한 파일은 실제 설치 프로그램의 압축을 풉니 다. 성가신.)
Outlook에서 비주얼 베이직 편집기를 엽니 중 Alt+ F11, 또는 도구 - 매크로 - VBA 편집기
VB 창에서 도구 - 참조 로 이동 CDO 1.2.1
하여 목록에서 사용으로 설정 하십시오.
왼쪽의 트리에서 Project1 - Microsoft Office Outlook - ThisOutlookSession을 열고이 스크립트 ( 원본 소스 )를 열린 창에 붙여 넣습니다 .
Sub CDORenameFolder()
Dim outlookApp As Outlook.Application
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 cdoSession = New MAPI.Session
cdoSession.Logon ShowDialog:=False, NewSession:=False
Set folder = outlookApp.Session.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 outlookApp = Nothing
End Sub
를 눌러 F5(또는 실행 - 실행 하위 ), 그리고 실행 ThisOutlookSession.CDORenameFolder
매크로를. 폴더 선택 창이 나타납니다. IMAP 계정에서 "정크 이메일"폴더 (Outlook에서 생성 한 폴더)를 선택하고 확인을 클릭하십시오.
"사용자 정의 유형이 정의되지 않았습니다"가 표시되면 CDO 설치 및 / 또는 활성화를 잊어 버렸습니다.
예, 이것이 바로 Outlook을 싫어하는 이유입니다.