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

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

Convierta una cita en tarea arrastrando y soltando

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

---

Convierta una cita en tarea arrastrando y soltando

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

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

2. Entonces una nueva Tarea se muestra la ventana, haga clic en Guardar cerrar para guardar esta cita como tarea. Ver captura de pantalla:

---

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

Si tiene que convertir varias citas en tareas, el siguiente código VBA puede hacerle un favor, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto, vea la captura de pantalla:

Código VBA: convierta varias 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. Luego seleccione las citas que desea convertir en tarea y luego haga clic en Ejecutar macro botón para ejecutar este código, vea la captura de pantalla:

4. Y luego un Seleccionar carpeta aparecerá un diálogo emergente, seleccione un tareas carpeta donde desea guardar los resultados convertidos, vea la captura de pantalla:

5. Luego haga clic OK , y todas las citas seleccionadas se crearán como tareas, y luego debe guardar y cerrar el Tarea ventana uno por uno, vea la captura de pantalla:

6. Entonces, puedes ir al Tarea carpeta, todas las citas seleccionadas se han guardado como nuevas tareas, ver captura de pantalla: