Note: The other languages of the website are Google-translated. Back to English

¿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:

cita del médico para la tarea 1

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

cita del médico para la tarea 2


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

cita del médico para la tarea 3

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:

cita del médico para la tarea 4

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:

cita del médico para la tarea 5

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:

cita del médico para la tarea 6

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

cita del médico para la tarea 7


Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL