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

Autor: Xiaoyang Última modificación: 2018-04-10

Cuando creamos una nueva tarea en Outlook, la tarea con "Fecha de Inicio”Se muestra con "Ninguna”Por defecto como se muestra en la siguiente captura de pantalla. Pero, a veces, debe establecer el día de hoy como su fecha de inicio con frecuencia, por lo que debe seleccionar la fecha en el campo "Fecha de inicio" manualmente cada vez. ¿Existe alguna forma rápida de establecer la fecha de inicio predeterminada como hoy automáticamente al crear una nueva tarea en Outlook?

Establezca la fecha de inicio predeterminada como hoy al crear una nueva tarea con código VBA en Outlook

Establezca la fecha de inicio predeterminada como hoy al crear una nueva tarea con código VBA en Outlook

Puede ser que no haya otra buena manera de lidiar con esta tarea directamente en Outlook, aquí, presentaré un código VBA para resolverlo. Siga los siguientes pasos:

1. Inicie Outlook y luego mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código de VBA: establezca 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. Después de insertar el código, coloque el cursor en la segunda sección del código y presione F5 clave para ejecutar este código, vea la captura de pantalla:

4. Desde entonces, cuando crea una nueva tarea cada vez, Outlook establecerá automáticamente la fecha de inicio y la fecha de finalización a la fecha actual de forma predeterminada, como se muestra en la siguiente captura de pantalla: