Como mover diferentes tipos de itens excluídos para diferentes pastas automaticamente no Outlook?
No Outlook, todos os tipos de itens excluídos (e-mails, tarefas, contatos, etc.) serão movidos para a pasta Itens Excluídos. Se você deseja mover os itens para pastas diferentes com base no tipo de item na pasta Itens Excluídos, conforme a captura de tela abaixo, como você pode fazer isso no Outlook?
Mova diferentes tipos de itens excluídos para diferentes pastas automaticamente com código VBA
O código VBA abaixo pode ajudá-lo a mover os itens excluídos para diferentes pastas automaticamente, faça o seguinte:
1. Inicie o Outlook e, em seguida, mantenha pressionado ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Em seguida, clique duas vezes Esta sessão do Outlook de Projeto-Projeto1 painel e, em seguida, copie e cole o código abaixo na janela de código em branco:
Código VBA: Mova diferentes tipos de itens excluídos para diferentes pastas automaticamente
Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
End If
Case "AppointmentItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
End If
Case "ContactItem", "DistListItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
End If
Case "TaskItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
End If
Case "JournalItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
End If
Case "NoteItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub
3. Em seguida, salve esse código e reinicie o Outlook para ativar esse código.
4. A partir de agora, quando você excluir um item, ele será movido para o tipo de pasta correspondente em Itens deletados pasta automaticamente.
5. Para ver o resultado, clique 
ícone na parte inferior do painel de pastas e clique em pastas para expandir todas as pastas no painel, veja as capturas de tela:
 |
 |
|
Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!
- Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
- Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
- Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
- Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
- Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
