Se você deseja compactar seu arquivo de dados do Outlook, em geral, você optará por usar o recurso “Compactar agora” no Outlook. Mas tem algumas desvantagens. Assim, neste artigo, vamos ensinar você a fazer uma ferramenta PST compacta mais robusta via VBA.
Como todos sabemos, o arquivo do Outlook estará suscetível a erros e corrupção à medida que o arquivo se torna cada vez maior. Portanto, você deve prestar muita atenção ao tamanho do seu arquivo do Outlook para mantê-lo em tamanho pequeno. Além de remover os itens inúteis e antigos, você também pode compactar o arquivo de dados do Outlook para reduzir seu tamanho.
Sobre o recurso “Compact Now” embutido
Talvez você tenha descoberto que o Outlook vem com um recurso nativo “Compact Now”. Depois de iniciar o programa Outlook, no painel de navegação de email, você pode clicar com o botão direito do mouse no arquivo de dados do Outlook que deseja compactar. Em seguida, no menu de contexto, selecione “Propriedades do arquivo de dados”. Em seguida, na caixa de diálogo subsequente, clique no botão "Avançado". Mais tarde você poderá encontrar o “Compact Now”. Embora esse recurso seja útil, ele ainda apresenta muitas deficiências.
A grande desvantagem é que, se o arquivo de dados do Outlook de origem for consideravelmente grande, levará muito tempo para realizar o processo de compactação. Além disso, o arquivo de dados do Outlook de origem deve ter sido utilizado por muito tempo, portanto, pode conter muitos erros ocultos. A função “Compact Now” não pode ajudá-lo a se livrar desses erros internos.
Comparado com este utilitário embutido, outra ferramenta PST compacta, que ensinaremos a fazer a seguir, não tem essas desvantagens. Ele pode funcionar muito mais rápido, mesmo se o arquivo de origem for muito grande. Agora, por favor, continue a ler. Exporemos as etapas elaboradas e os códigos VBA.
Faça uma ferramenta PST compacta gratuita para arquivo do Outlook
- Em primeiro lugar, pressione os botões de tecla “Alt + F11” na janela principal do Outlook.
- Em seguida, você pode abrir um módulo que não está em uso ou inserir um novo módulo.
- Em seguida, copie e cole os seguintes códigos VBA neste módulo.
Private Sub CompactPSTFile()
Dim objSourceFileFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
Dim objNewPSTFileFolder As Outlook.Folder
'Create a new PST file in the predefined local folder and file name
Outlook.Application.Session.AddStore "E:\NewPST.pst"
Set objNewPSTFileFolder = Session.Folders.GetLast()
'Get all the folders of the source PST file
'Change the "Personal" to the source PST file display name
Set objSourceFileFolders = Outlook.Application.Session.Folders("Personal").Folders
For Each objFolder In objSourceFileFolders
objFolder.CopyTo objNewPSTFileFolder
Next
End Sub
- Depois disso, você deve definir o nível de segurança de macro do Outlook como baixo.
- Por fim, você pode acionar a sub-rotina clicando no ícone “Executar” ou pressionando a tecla F5 na janela da macro,
- Imediatamente, um novo arquivo de dados do Outlook aparecerá no painel de navegação, que é compactado do arquivo de origem do Outlook.
Evite a miserável corrupção de dados PST
Como mencionei no início deste artigo, o arquivo PST do Outlook estará sujeito a corrupção quando for muito grande. Portanto, além de mantê-lo em tamanho pequeno, você precisa fazer backup regularmente. Desta forma, mesmo que o arquivo sofra erros ou corrupção, você ainda pode facilmente recuperá-lo PST corrompido dados de backups. Será muito conveniente.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo mdf corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com