¿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:
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.