¿Cómo establecer la fecha de inicio predeterminada como hoy al crear una nueva tarea en Outlook?
Cuando creamos una nueva tarea en Outlook, la tarea con “Fecha de inicio” se muestra como “Ninguna” por defecto, tal como se muestra en la siguiente captura de pantalla. Sin embargo, a veces necesitas configurar el día de hoy como su Fecha de inicio con frecuencia, por lo que tienes que seleccionar manualmente la fecha en el campo “Fecha de inicio” cada vez. ¿Existe alguna manera rápida de establecer la fecha de inicio predeterminada como hoy automáticamente al crear una nueva tarea en Outlook?
Establecer la fecha de inicio predeterminada como hoy al crear una nueva tarea con código VBA en Outlook
Quizás no haya otra buena manera de manejar esta tarea directamente en Outlook; aquí te presentaré un código VBA para resolverlo. Por favor, sigue los siguientes pasos:
1. Abre Outlook y luego mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisOutlookSession desde el panel Project1(VbaProject.OTM) para abrir el modo, y luego copia y pega 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. Después de insertar el código, coloca el cursor en la segunda sección del código y presiona la tecla F5 para ejecutar este código, ver captura de pantalla:
4. A partir de ese momento, cuando crees una nueva tarea cada vez, Outlook configurará automáticamente la fecha de inicio y la fecha de finalización en la fecha actual por defecto, tal como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
