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

Cambiar una cita en una reunión en Outlook

Cambiar reuniones en citas en Outlook

Este método le guiará paso a paso para invitar asistentes a una cita y transformarla en una reunión en Outlook.

1. Cambie a la vista Calendario, haga clic con el botón derecho en la cita que desea convertir en reunión y seleccione «Invitar asistentes» en el menú contextual. Vea la captura de pantalla:

2. Ahora se abre una ventana de reunión con el contenido de la cita seleccionada. Haga clic en el botón «Para». Vea la 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 «Necesario», «Opcional» o «Recursos» según tus necesidades y, a continuación, pulsa «Aceptar». Consulta la captura de pantalla anterior.

Nota: Manteniendo pulsada la tecla «Ctrl», puede seleccionar varios contactos no adyacentes haciendo clic en cada uno; manteniendo pulsada la tecla «Mayús», puede seleccionar varios contactos adyacentes haciendo clic en el primer contacto y en el último.

4. Vuelva ahora a la ventana de la reunión, edite el contenido de la reunión y haga clic en el botón «Enviar».

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

Este método ofrece un código VBA para convertir las reuniones seleccionadas en citas en Outlook. Siga estos pasos:

1. Cambie a la vista Calendario y haga clic para seleccionar las reuniones que desea convertir en citas del calendario.

2. Pulse simultáneamente las teclas «Alt» + «F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en «Insertar» > «Módulo» y luego pegue el siguiente código VBA en la nueva ventana del módulo.

VBA: Convertir reuniones en 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. Pulse la tecla «F5» o haga clic en el botón «Ejecutar» para poner en marcha este código VBA.

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 del calendario en Outlook