Idioma das pastas do outlook - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



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...

Read the complete post at http://msmvps.com/blogs/paleo/archive/2007/12/01/idioma-das-pastas-do-outlook.aspx

Published sábado, 1 de dezembro de 2007 4:16 by Carlos Fernando Paleo da Rocha<br />SBS MVP in Brazil