Como arquivar rapidamente todos os e-mails expirados em seu Outlook

O Outlook permite que os usuários definam o tempo de expiração dos e-mails. Esses e-mails são mostrados em fonte tachada cinza. Se você deseja arquivar rapidamente todos os e-mails expirados, pode usar o método apresentado neste artigo.

Você pode definir qualquer tempo de expiração para qualquer e-mail no Outlook. Depois que o tempo de expiração passar, os e-mails serão marcados como expirados com um tachado cinza. Nesse cenário, é sempre recomendável arquivá-los rapidamente, pois provavelmente não são mais úteis. Arquivá-los pode reduzir o tamanho do arquivo do Outlook em algum grau. A seguir, ensinaremos como arquivar rapidamente todos os e-mails expirados em seu Outlook.

Arquive rapidamente todos os e-mails expirados

1. Para comotart, inicie seu programa Outlook.
2. Em seguida, na tela do Outlook, você pode pressionar os botões de tecla “Alt + F11” para acessar o editor VBA.
3. Em seguida, na janela “Microsoft Visual Basic for Applications”, você deve abrir um módulo não utilizado ou inserir diretamente um novo.
4. Posteriormente, você deve copiar o seguinte código VBA para este módulo.

Dim objArchiveFile As pasta Dim objArchiveFolder As pasta Sub ArchiveAllExpiredEmails() Dim objOutlookFile As Outlook.folder Dim objFolder As Outlook.folder Definir objOutlookFile = Application.Session.PickFolder 'Abrir o arquivo PST File Application.Session.AddStore "C:\Users\Test \Documents\Outlook Files\Archive.pst" Definir objArchiveFile = Application.Session.folders("Archives") Se não (objOutlookFile não é nada), então para cada objFolder em objOutlookFile.folders Se objFolder.DefaultItemType = olMailItem Chamar ProcessFolders(objFolder) End If Next 'Se quiser fechar o arquivo PST, use a seguinte linha 'Application.Session.RemoveStore objArchivePSTFile MsgBox "Complete!", vbExclamation End If End Sub Sub ProcessFolders(ByVal objCurrentFolder As Outlook.folder) Dim i As Long Dim objMail As Outlook.MailItem Dim objSubfolder As Outlook.folder For i = objCurrentFolder.Items.count To 1 Step -1 If TypeOf objCurrentFolder.Items(i) Is MailItem Then Set objMail = objCurrentFolder.Items(i) 'Move Expired Emails to Archive Arquivo Se objMail.ExpiryTime < Agora Então No Erro Continuar Próximo Definir objArchiveFolder = objArchiveFile.folders(objCurrentFolder.Name) Se objArchiveFolder Não For Nada, Definir objArchiveFolder = objArchiveFile.folders.Add(objCurrentFolder.Name) End If objMail.Move objArchiveFolder End If End If Next 'Processar todas as subpastas recursivamente Se objCurrentFolder.folders.count > 0 Então para cada objSubfolder Em objCurrentFolder.folders Chamar ProcessFolders(objSubfolder) Next End If End Sub

5. Então, você pode executar esta macro de uma só vez. Basta clicar no ícone "Executar" na barra de ferramentas ou tocar no botão da tecla "F5".
6. Depois disso, você precisará selecionar um arquivo de origem do Outlook que deve ser verificado quanto a e-mails expirados.
7. Posteriormente, após selecionar e clicar em “OK”, a macro irátart correndo.
8. Quando você receber a mensagem solicitando "Concluído", os e-mails expirados foram movidos para o arquivo PST de arquivo com sucesso.

Em caso de falhas do Outlook

Se você é um usuário regular do Outlook há décadas, seu arquivo de dados do Outlook pode ter um tamanho bastante grande. Nesse caso, o arquivo é realmente muito vulnerável a muitos fatores. Como todos sabemos, embora o Outlook seja considerado um cliente de e-mail extraordinário, ele ainda é propenso a travar e ser danificado. Assim, é melhor você preparar um avançado Reparo do Outlook ferramenta próxima, como DataNumen Outlook Repair. Ele pode resgatá-lo da corrupção de dados do Outlook como uma brisa.

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 corrupção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com