回答:
まず、fastmailの「ジャンクメール」フォルダが現在存在する場合は削除します。次に、以下の手順を使用します。
コラボレーションデータオブジェクトをインストールします。(直接インストールされないことに注意してください。ダウンロードしたファイルは、実際のインストーラーを解凍するだけです。迷惑です。)
Outlookで、Visual Basicエディターを開きます:Alt+ F11、または[ ツール] -[ マクロ] -[ Visual Basicエディター]
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(またはRun - Run Sub)、ThisOutlookSession.CDORenameFolder
マクロを実行します。フォルダ選択ウィンドウがポップアップするはずです。IMAPアカウントの下で、「迷惑メール」フォルダ(Outlookによって作成されたフォルダ)を選択し、[OK]をクリックします。
(「ユーザー定義タイプが定義されていません」と表示される場合は、CDOをインストールまたはアクティブ化するのを忘れています。)
はい、それがまさに今私がOutlookを嫌う理由です。