Cambiar una cita a una reunión en Outlook

Cambiar reuniones a citas en Outlook

Este método lo guiará para invitar a los asistentes a una reunión a una cita y convertir la cita en una reunión en Outlook.

1. Cambie a la vista Calendario, haga clic con el botón derecho en la cita que convertirá en una reunión en Calendario y luego seleccione Invitar a los asistentes desde el menú contextual. Ver captura de pantalla:

2. Ahora se abre una ventana de reunión con el contenido de la cita seleccionada. Haga clic en el A botón. Ver captura de pantalla:

3. En el cuadro de diálogo emergente Seleccionar asistentes y recursos, seleccione los contactos que invitará como asistentes, haga clic en Requerido/Opcional/Recursos botón que necesite y haga clic en el OK botón. Ver captura de pantalla arriba:

Nota: Sosteniendo el Ctrl , puede seleccionar varios contactos no adyacentes haciendo clic en cada contacto; sosteniendo el Shift , puede seleccionar varios contactos adyacentes haciendo clic en el primer contacto y el último.

4. Ahora vuelve a la ventana de la reunión, edita el contenido de la reunión y haz clic en el Enviar del botón.

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

Este método introducirá un VBA para convertir reuniones seleccionadas en citas en Outlook. Haz lo siguiente:

1. Cambie a la vista Calendario y haga clic para seleccionar las reuniones que convertirá en cita en Calendario.

2. Prensa otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Hacer clic en recuadro > Móduloy luego pegue el código VBA debajo en la nueva ventana del Módulo.

VBA: convierta 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. presione el F5 o haga clic en el Ejecutar botón para exculpar este VBA.

Y ahora todas las reuniones seleccionadas se convierten en citas en Outlook.

Ocultar todas las citas del calendario en Outlook

Ocultar citas de cumpleaños en el calendario en Outlook