VBA es muy útil para automatizar tareas cotidianas y recurrentes. Si utiliza VBA en el contexto de Microsoft Outlook para simplificar su trabajo diario con correos electrónicos o para transferir datos de formularios de correos electrónicos a una hoja de cálculo de Excel con un solo clic, es posible que a veces necesite leer en voz alta la fecha y/o la hora en que recibió el correo electrónico.
Código VBA
Esto es incluso relativamente simple y se puede hacer con sólo unas pocas líneas, una vez que tenga el objeto mail disponible en el código VBA. El código Visual Basic correspondiente tiene el siguiente aspecto:
Sub TimeOfEMail()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem
Dim objSelection As Outlook.Selection
Dim receivedDateTime As Date
' Objeto de aplicación de Outlook.
Set objOL = CreateObject("Outlook.Application")
' Obtener colección de objetos seleccionados (correos electrónicos).
Set objSelection = objOL.ActiveExplorer.Selection
Utilizar el primer correo electrónico seleccionado.
Set objMsg = objSelection.Item(1)
receivedDateTime = objMsg.ReceivedTime
'a algo con valor DateTime.
Debug.Print receivedDateTime
End SubLa primera parte consiste simplemente en encontrar el objeto VBA correcto que representa el correo electrónico (objMsg). Una vez que tienes eso, es bastante simple. Porque el objeto MailItem tiene una propiedad llamada «ReceivedTime«, que contiene la fecha y la hora. A través de Debug.Print, sale en este caso en la ventana de la consola o ventana directa.
Si la salida estándar no es suficiente, puede dar formato a la fecha y hora de recepción con la función de formato. Esto podría entonces tener el siguiente aspecto:
MiFecha = Format(FechaHoraRecibida, "dddd, mmm d aaaa")
' da como resultado "lunes, 27 de febrero de 2023".
Debug.Print MiFechaEncontrará información más detallada sobre las distintas formas de dar formato a la fecha y la hora en la documentación de Microsoft sobre la función de formato.
