Cómo insertar automáticamente la fecha u hora actual en el asunto o el cuerpo del correo electrónico con Outlook VBA

Muchos usuarios están acostumbrados a insertar la fecha u hora actual en el asunto o cuerpo del correo electrónico al redactar un nuevo correo electrónico. Este artículo le enseñará cómo lograrlo en poco tiempo.

En la p anteriorost - "Cómo agregar automáticamente la fecha actual a los asuntos de sus correos electrónicos de Outlook”, Puede aprender a agregar automáticamente la fecha u hora actual al asunto. Pero el método en ese post es simplemente crear una forma personalizada de mensaje. Así, por ese medio, cada vez que quieras crear un nuevo correo electrónico con la fecha u hora actual en el asunto, debes elegir el formulario personalizado en lugar de crear un nuevo correo electrónico como de costumbre. Evidentemente, será bastante engorroso.

De hecho, Outlook ya nos ha ofrecido un campo nativo para insertar fecha u hora. Además, puede aplicar Outlook VBA para insertar automáticamente la fecha u hora actual en el cuerpo o asunto del nuevo correo electrónico. En cuanto al método que seleccione, depende de la frecuencia con la que necesite insertar la fecha o la hora.

Insertar manualmente por campo "Fecha y hora"

1. A start con, inicie Outlook.
2. A continuación, cree un nuevo mensaje haciendo clic en el botón "Nuevo correo electrónico" en el grupo "Nuevo" en la pestaña "Inicio".
3. Posteriormente, en la ventana Mensaje nuevo, puede hacer clic en el cuerpo del correo electrónico y pasar a la pestaña "Insertar".
4. A continuación, puede buscar y hacer clic en el campo "Fecha y hora" en el grupo "Texto".
5. Después de eso, aparecerá un nuevo cuadro de diálogo. Puede elegir un formato disponible y luego hacer clic en el botón "Aceptar".
6. Después de regresar a la ventana del mensaje, puede ver la fecha u hora actual en el cuerpo del correo electrónico. De forma predeterminada, Outlook no le permite aplicar el campo "Fecha y hora" al asunto.
7. Por lo tanto, finalmente, si desea insertar la fecha u hora en el tema, debe copiarlas del cuerpo y pegarlas en el tema manualmente.

Este método es más recomendable si rara vez necesita insertar la fecha u hora actual. Pero siempre que necesite insertar con frecuencia o siempre, es mejor que use los siguientes códigos VBA para lograrlo automáticamente.

Inserción automática con Outlook VBA

1. En primer lugar, presione los botones de tecla "Alt + F11" para acceder al editor de VBA.
2. Luego haga doble clic en el proyecto "ThisOutlookSession" en el lado izquierdo para abrirlo.
3. A continuación, copie los siguientes códigos en él.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

Nota: Los códigos anteriores funcionarán para insertar automáticamente la hora actual en el sujeto y el cuerpo. Si desea insertar la fecha actual, reemplace "objMail_Open”Sub con lo siguiente:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Posteriormente, firme este código como de costumbre.
5. Más tarde, restart Outlook para activar la macro.
6. Finalmente puedes intentarlo.

• Haga clic directamente en el botón "Nuevo correo electrónico" para abrir un nuevo correo electrónico.
• Verá que el nuevo correo electrónico automático contiene la fecha u hora actual en el asunto y el cuerpo, como la imagen a continuación:

No confíe fácilmente en correos electrónicos desconocidos

Debes haber recibido correos electrónicos no deseados. ¿Cómo suele lidiar con ellos? No es aconsejable descargar adjuntos o abrir enlaces en este tipo de correos ya que pueden contener virus. Una vez que sus datos de Outlook se infectan, la herramienta de reparación de la bandeja de entrada, Scanpst.exe, no tendrá ningún efecto. En este caso, no tiene más remedio que recurrir a un experto Corrección de PST herramienta, 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 dañado SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com