¿Cómo cambiar una cita a reunión y viceversa en Outlook?

Cambiar una cita a una reunión en Outlook

Cambiar reuniones a citas en Outlook

Este método te guiará a través del proceso de invitar a asistentes a una cita y convertir la cita en una reunión en Outlook.

1. Cambia a la vista de Calendario, haz clic derecho en la cita que deseas convertir en una reunión en el Calendario, y luego selecciona "Invitar Asistentes" desde el menú contextual. Ver captura de pantalla:

2. Ahora se abrirá una ventana de reunión con el contenido de la cita seleccionada. Por favor, haz clic en el botón "Para". Ver captura de pantalla:

3. En el cuadro de diálogo emergente Seleccionar Asistentes y Recursos, selecciona los contactos que deseas invitar como asistentes, haz clic en el botón "Requerido"/"Opcional"/"Recursos" según sea necesario, y luego haz clic en el botón "Aceptar". Ver captura de pantalla arriba:

Nota: Manteniendo presionada la tecla "Ctrl", puedes seleccionar varios contactos no adyacentes haciendo clic en cada contacto; manteniendo presionada la tecla "Shift", puedes seleccionar varios contactos adyacentes haciendo clic en el primer contacto y el último.

4. Ahora regresas a la ventana de la reunión, por favor edita el contenido de la reunión y haz clic en el botón "Enviar".

Hasta ahora hemos convertido la cita seleccionada en una reunión y la hemos enviado a los asistentes especificados.

Este método presentará una macro VBA para convertir las reuniones seleccionadas en citas en Outlook. Por favor, sigue los siguientes pasos:

1. Cambia a la vista de Calendario y haz clic para seleccionar las reuniones que deseas convertir en una cita en el Calendario.

2. Presiona simultáneamente las teclas "Alt" + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en "Insertar" > "Módulo", y luego pega el siguiente código VBA en la nueva ventana de Módulo.

VBA: Convertir reunión a citas en Outlook

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4. Presiona la tecla "F5" o haz clic en el botón "Ejecutar" para ejecutar esta macro VBA.

Y ahora todas las reuniones seleccionadas se han convertido en citas en Outlook.

Ocultar todas las citas del calendario en Outlook

Ocultar citas de cumpleaños en el calendario en Outlook