Idioma das pastas do outlook
Caso suas pastas do Outlook que é todo em português, de uma hora para outra mudarem de idioma para o inglês (Ex.: Inbox). Pode ficar calmo, pois a solução é bem simples.
Vá ao prompt de comando e execute: Outlook /ResetFolderNames.
Pronto, as pastas voltarão ao idioma originalmente instalado do software.
Certo, mas e se sua intenção, for mudar para um idioma diferente daquele do software? Ou até mesmo para um idioma que ainda não é suportado, ou simplesmente se eu desejar possuir nomes exclusivos para minhas pastas, personalizando meu Outlook?
Você pode alterá-las via Script (o Vinícius vai adorar este, :D), sempre partindo do inglês para o idioma que deseja.
Para isto trabalharemos com o drive M:\ (padrão do Exchange), mas se ele não estiver habilitado, basta habilitar ele via registro.
Altere a chave: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EXIFS\Parameters\DriveLetter
Digite "M" como valor da chave. Depois reinicie o Microsoft Exchange Information Store.
Agora é só executar o script abaixo.
dim fso, shell
set fso = CreateObject("Scripting.FileSystemObject") rode("M:\") set fso = nothing wscript.quit
Sub rode(xPath)
Dim S
Set f = fso.GetFolder( xPath )
For Each Folder In f.SubFolders
S = folder.name
Select Case S
Case "Inbox"
folder.name = "Minha Caixa de Entrada"
Case "Contacts"
folder.name = "Meus Contatos"
Case "Drafts"
folder.name = "Meus Rascunhos"
Case "Journal"
folder.name = "Meu Jornal"
Case "Calendar"
folder.name = "Meu Calendário"
Case "Tasks"
folder.name = "Minhas Tarefas"
Case "Sent Items"
folder.name = "Meus Itens Enviados"
Case "Deleted Items"
folder.name = "Meus Itens Excluídos"
Case "Notes"
folder.name = "Minhas Notas"
Case "Outbox"
folder.name = "Minha Caixa de Saída"
Case "Junk E-mail"
folder.name = "Minha Lixeira"
End Select
Call rode(Folder)
Next 'Pasta
End Sub
Sim, eu sei que não fui nada criativo nos nomes das pastas, mas eram apenas exemplos...