Outlook permite a los usuarios marcar los correos electrónicos con un recordatorio de seguimiento personalizado y una fecha de vencimiento. Pero debe seleccionarlo y habilitarlo manualmente. Este artículo le enseñará cómo lograrlo automáticamente a través de VBA.
Outlook nos proporciona la función "Marcar", que puede permitirnos realizar un seguimiento de los correos electrónicos críticos de manera mucho más conveniente. No solo nos permite crear un correo electrónico, sino que también nos permite seleccionar un icono de bandera preferido, asignar una fecha de vencimiento específica e incluso especificar un recordatorio personalizado para el correo electrónico. Sin dudas, es muy útil.
Pero muchos usuarios todavía tienen otro deseo. Esperan que Outlook pueda especificar automáticamente una fecha de vencimiento personalizada relativamente fija y una hora de recordatorio para los correos electrónicos marcados, como 3 días después de hoy, 1 semana después de hoy, etc. Para ser honesto, Outlook no tiene una característica nativa. Por lo tanto, debe recurrir a otros medios, por ejemplo, VBA. Aquí le enseñaremos cómo usar Outlook VBA para cumplir con este requisito. Siga leyendo para obtenerlo en detalle.
Establecer automáticamente un recordatorio y una fecha de vencimiento al marcar un correo electrónico de Outlook
- Desde el principio, inicie su programa Outlook.
- Luego, puede presionar los atajos de teclas "Alt + F11" para obtener acceso al editor de VBA.
- A continuación, en la siguiente ventana de "Microsoft Visual Basic para aplicaciones", debe hacer doble clic en el proyecto "ThisOutlookSession" en el lado izquierdo.
- Posteriormente, copie y pegue los códigos VBA a continuación en él.
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
'You can change the following lines as per your actual needs
With objMail
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkNextWeek
'Set a custom due date
.TaskDueDate = Now + 7
.ReminderSet = True
'Set a custom reminder time
.ReminderTime = Now + 6.5
.Save
End With
End If
End If
End Sub
- Después de eso, debe firmar este código como de costumbre.
- Luego salga del editor de VBA y proceda a cambiar la configuración de la macro de Outlook para habilitar solo las macros firmadas digitalmente.
- Finalmente, debes reiniciar Outlook para activar la nueva macro. Después, puedes probarla.
- Haga clic en el icono de la bandera al final de un elemento de correo electrónico.
- De inmediato, la bandera se cambiará automáticamente al icono de "Bandera de la próxima semana".
- Y su fecha de vencimiento y la hora de recordatorio se establecerán de acuerdo con su preestablecimiento en los códigos.
No entre en pánico si el encuentro Outlook se bloquea
Cuando Outlook falla inesperadamente, la mayoría de las personas entran en pánico porque temen que sus datos de Outlook se dañen. Pero en realidad, si ha tomado las precauciones suficientes, nunca entrará en pánico. La medida más importante es hacer copias de seguridad de los archivos PST regularmente. Además, también puede recurrir a una herramienta preeminente para recuperar sus datos. Outlook dañado datos, como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrección de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com