¿Existe algún truco de edición del registro o una macro que pueda usar para que los horarios predeterminados de mis reuniones comiencen 5 minutos después de la hora completa y finalicen 5 minutos antes de la hora completa? Hago esto a mano ahora mismo para eliminar el problema de que alguien llegue tarde a la reunión. Empiezo a las "5 minutos después" en punto... esto funciona bien, pero es una pesadilla hacer clic en él cuando programo una reunión.
Respuesta1
Finalmente busqué en Google una solución; aunque no es algo que se pueda ver con una simple búsqueda. Parece que no hay mucha gente interesada.
Estoy escribiendo desde una PC donde no tengo Outlook instalado, pero espero recordarlo bien.
Debe habilitar la "cinta" de desarrollador en Outlook
Necesita crear un nuevo formulario (usando el Formulario de cita como base)
En este nuevo formulario, debe ingresar un código VBA para la acción Abrir
en este código, debe modificar el artículo. Inicio y artículo. Fin (solo si está configurado en hora completa o media hora, si te saltas esta parte tu cita se "reducirá" cada vez que la abras. El inicio debe ser de +5 minutos, el final debe ser de -10 minutos (como el +5 para start en realidad también empuja a End 5 minutos hacia adelante).
Mientras edita un nuevo formulario, es posible que desee agregar un pie de página estándar en la invitación (por ejemplo, su número de conferencia telefónica).
Guarde este formulario ("Publicar formulario como..." si lo recuerdo bien)
Haga clic derecho en la vista de calendario en su "carpeta" Calendario y cambie el formulario predeterminado que se utilizará de Cita al que guardó en el punto 6.
Espero que puedas seguir esto con un poco de ayuda de Google. La solución es
- crear nueva forma
- agregue un pequeño VBA al principio
- seleccione este formulario como su nuevo "formulario de calendario" predeterminado.
Respuesta2
Parece que Outlook tiene esta característica en versiones posteriores:https://chrismenardtraining.com/post/outlook-buffer-time
Respuesta3
Siga esta pauta:
https://www.datanumen.com/blogs/2-methods-change-default-duration-appointment-meeting-outlook/
y utilice la siguiente macro en su lugar:
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objAppointment As Outlook.AppointmentItem
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is AppointmentItem Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
Private Sub objAppointment_Open(Cancel As Boolean)
'Set the default duration of new appointment
If objAppointment.CreationTime = #1/1/4501# Then
objAppointment.Duration = "50"
objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
End If
End Sub
Private Sub objAppointment_PropertyChange(ByVal Name As String)
'When you disable the "All Day Event"
'Change the default duration of the current appointment
If Name = "AllDayEvent" Then
If objAppointment.AllDayEvent = False Then
objAppointment.Duration = "50"
objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
End If
End If
End Sub