¿Cómo convertir varias citas en tareas rápidamente en Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

En este artículo, hablaré sobre cómo convertir una cita o varias citas en tareas de manera rápida y sencilla en Outlook.

Convertir una cita en tarea arrastrando y soltando

Convertir múltiples citas en tareas aplicando código VBA

Convertir una cita en tarea arrastrando y soltando

Para convertir una cita en tarea, solo necesita arrastrar la cita a la carpeta de tareas. Por favor, haga lo siguiente:

1. En la ventana "Calendario", seleccione el elemento de cita que necesita convertir en tarea y luego arrástrelo y suéltelo en el icono "Tareas" en la parte inferior del panel de navegación como se muestra en la siguiente captura de pantalla:

2. Luego, aparecerá una nueva ventana de "Tarea", por favor, haga clic en el botón "Guardar y cerrar" para guardar esta cita como tarea.
doc appointment to task 2

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!

Convertir múltiples citas en tareas aplicando código VBA

Si tiene varias citas que necesitan ser convertidas en tareas, el siguiente código VBA puede ayudarte, por favor, sigue estos pasos:

1. Mantenga presionadas las teclas "Alt + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. Haga clic en "Insertar" > "Módulo", copie y pegue el siguiente código en el módulo en blanco abierto:

Código VBA: Convertir múltiples citas en tareas

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

3. Seleccione las citas que desea convertir en tarea y luego haga clic en el botón "Ejecutar Macro" para ejecutar este código.
doc appointment to task 4

4. Luego, aparecerá un cuadro de diálogo "Seleccionar Carpeta", seleccione una carpeta de "Tareas" donde desea guardar los resultados convertidos.
doc appointment to task 5

5. Haga clic en el botón "Aceptar" y todas las citas seleccionadas se crearán como tareas. Luego guarde y cierre la ventana de "Tarea" una por una.
doc appointment to task 6