Primeiro, a pasta "Junk Mail" do delete fastmail, se existir atualmente. Em seguida, use as instruções abaixo:
Instale Objetos de dados de colaboração . (Observe que ele não será instalado diretamente - o arquivo que você baixou apenas descompacta o instalador real. Irritante.)
No Outlook, abra o editor do Visual Basic: Alt + F11 , ou Ferramentas - Macro - Editor do Visual Basic
Na janela do VB, vá para Ferramentas - Referências e ative CDO 1.2.1
na lista.
Na árvore do lado esquerdo, abra Projeto1 - Microsoft Office Outlook - ThisOutlookSession , e cole este script ( fonte original ) para a janela que é aberta:
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
Pressione F5 (ou Executar - Executar Sub ), e execute a macro ThisOutlookSession.CDORenameFolder
. Uma janela de seleção de pasta deve aparecer. Em sua conta IMAP, escolha a pasta "Lixo Eletrônico" (aquela criada pelo Outlook) e clique em OK.
(Se você receber "Tipo definido pelo usuário não definido", você se esqueceu de instalar e / ou ativar o CDO.)
Sim, é exatamente por isso que eu odeio o Outlook agora.