¿Cómo mover diferentes tipos de elementos eliminados a diferentes carpetas automáticamente en Outlook?
En Outlook, todos los tipos de elementos eliminados (correos, tareas, contactos, etc.) se moverán a la carpeta Elementos eliminados. Si desea mover los elementos a diferentes carpetas según el tipo de elemento bajo la carpeta Elementos eliminados, como se muestra en la captura de pantalla a continuación, ¿cómo puede hacerlo en Outlook?
Mover diferentes tipos de elementos eliminados a diferentes carpetas automáticamente con código VBA
El siguiente código VBA puede ayudarle a mover los elementos eliminados a diferentes carpetas automáticamente, por favor haga lo siguiente:
1. Abra Outlook, y luego mantenga presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Luego, haga doble clic en ThisOutlookSession desde el panel Proyecto-Proyecto1, y luego copie y pegue el siguiente código en la ventana de código en blanco:
Código VBA: Mover diferentes tipos de elementos eliminados a diferentes carpetas automáticamente
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. Luego, guarde este código y reinicie Outlook para activar este código.
4. A partir de ahora, cuando elimine un elemento, este se moverá automáticamente a la carpeta correspondiente al tipo bajo la carpeta Elementos eliminados.
5Para ver el resultado, por favor haga clic 
en el icono en la parte inferior del panel de carpetas, y luego haga clic Carpetas para expandir todas las carpetas en el panel, vea las capturas de pantalla:
 |  | |
Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS
Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.
Esta función admite:
- Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
- Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
- Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
- Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
- Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
- Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.
Esta función admite:
- Respuestas inteligentes de correo electrónico
- Contenido optimizado
- Borradores basados en palabras clave
- Extensión inteligente de contenido
- Resumen de correos electrónicos
- Traducción multilingüe
¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
