¿Cómo configurar la fecha de inicio predeterminada como hoy al crear una tarea en Outlook?

Cuando creamos una tarea en Outlook, el campo “Fecha de inicio” aparece por defecto como “Ninguno”, tal como se muestra en la siguiente captura de pantalla. Sin embargo, a menudo necesitas establecer hoy como fecha de inicio, lo que te obliga a seleccionar manualmente la fecha en el campo “Fecha de inicio” cada vez. ¿Existe alguna forma rápida de que la fecha de inicio predeterminada se establezca automáticamente en hoy al crear una tarea en Outlook?

Establecer la Fecha de inicio predeterminada como hoy al crear una Tarea con código VBA en Outlook

---

Establecer la Fecha de inicio predeterminada como hoy al crear una Tarea con código VBA en Outlook

Quizá no exista otra forma eficaz de realizar esta tarea directamente en Outlook; a continuación, le presentamos un código VBA para resolverla. Siga estos pasos:

1. Inicie Outlook y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Project1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Establecer la Fecha de inicio predeterminada como hoy:

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3. Tras insertar el código, coloque el cursor en la segunda sección del código y pulse la tecla F5 para ejecutarlo; consulte la siguiente captura de pantalla:

4. A partir de entonces, cada vez que cree una tarea, Outlook establecerá automáticamente la fecha de inicio y la fecha de finalización en la fecha actual de forma predeterminada, tal como se muestra en la siguiente captura de pantalla: