Primeiro, exclua a pasta "Lixo Eletrônico" do fastmail, se ela 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 descompacta o instalador real. Irritante.)
No Outlook, abra o editor do Visual Basic: Alt+ F11ou Ferramentas - Macro - Editor do Visual Basic
Na janela 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 ) na 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 ThisOutlookSession.CDORenameFolder
macro. Uma janela de seleção de pasta deve aparecer. Na sua conta IMAP, escolha a pasta "Lixo eletrônico" (a criada pelo Outlook) e clique em OK.
(Se você obtiver "Tipo definido pelo usuário não definido", esqueceu de instalar e / ou ativar o CDO.)
Sim, é exatamente por isso que eu odeio o Outlook agora.