Limpar Temporário Outlook

Quem recebe diariamente arquivos anexos no Outlook pode encontrar a situação descrita abaixo:

Por exemplo, todos os dias você recebe a planilha Levantamento.xlsx. Você a abre e trabalha com ela fazendo as devidas análises e alterações.

Dia após dia esse processo se repete. Mas chega um dia em que, do nada, não consegue mais abrir essa planilha. Você então entra em contato com quem lhe encaminha esse levantamento pra ver se houve alterações na planilha ou no seu modo de envio. Mas o processo continua o mesmo.

Então por que não consegue abrir o arquivo?

A resposta é que, cada vez que você recebe e abre esse arquivo, o Outlook salva um arquivo temporário e cada vez que salva, ele coloca uma numeração incremental automática. Ex. Levantamento(1).xlsx, Levantamento(2).xlsx, Levantamento(3).xlsx e assim por diante.  

Porém, o limite para esses arquivos é até o 99  Levantamento(99).xlsx. Quando ele atinge esse número, o Outlook não consegue mais salvar o arquivo temporário e dessa forma não abre o arquivo anexo ao email.

Para resolver esse problema, basta ir até a pasta C:\Documents and Settings\UsuárioLogado\Configurações locais\Temporary Internet Files\Content.Outlook e apagar todos os arquivos e pastas existentes.

Pode apagar sem medo, pois são somente arquivos temporários.

Lembrando que onde está UsuárioLogado você tem que substituir pelo nome do usuário que efetuou o Login na Máquina.

Uma maneira de fazer isso rápido e também poder deixar disponível a todos os colaboradores de sua empresa é criar um arquivo de texto com extensão VBE conforme passo a passo abaixo.

 

          1)       Clicar na tecla Windows + R

          2)       Na caixa executar, digitar Notepad

          3)       Colar o Código abaixo

on error resume next

Set WshShell = Wscript.CreateObject("Wscript.Shell")

set fso = CreateObject("Scripting.FileSystemObject")

aUser=inputbox("Informe o nome do usuário Logado")

if len(aUser)<>7 then

      msgbox aUser & " - Usuário incorreto!"

else

set Folder=  fso.GetFolder("C:\Documents and Settings\" & aUser & "\Configurações locais\Temporary Internet Files\Content.Outlook")

' delete all subfolders and files

For Each f In folder.SubFolders

   On Error Resume Next

   name = f.name

   f.Delete True

      if err then

            msgbox a & " - Verificar o usuário informado!"

      end if

      On Error GoTo 0

Next

      msgbox ("Pasta limpa com sucesso!!!")

end if

          4)        Clicar em Salvar Como

          5)       Em Nome do arquivo: informar um nome com extensão ( Ex. LimpaOutlook.vbe )

          6)       Em Salvar como tipo: selecionar Todos os Arquivo

          7)       Em Codificação: Deixar como ANSI

  

O      

          Arquivo será salvo conforme abaixo:

Esse é um tipo de arquivo executável. Ao clicar 2 vezes, informar o Nome do usuário logado.

Se o usuário for informado corretamente, será exibida a mensagem abaixo

Caso Contrário