¿Cómo obtener la zona horaria del remitente de un correo electrónico recibido en Outlook?

Obtener la zona horaria del remitente de un correo recibido es una excelente forma de responder en el momento adecuado y así hacer su trabajo más eficiente. Este artículo le ofrece varios métodos para obtener la zona horaria del remitente de un correo recibido en Outlook.

Obtener la zona horaria del remitente de un correo recibido mediante las cabeceras de Internet
Obtener la zona horaria del remitente de un correo recibido mediante código VBA
Mostrar automáticamente la zona horaria del remitente en la cabecera del mensaje con Kutools para Outlook

---

Obtener la zona horaria del remitente de un correo recibido mediante las cabeceras de Internet

Puede encontrar la zona horaria del remitente de un correo electrónico en las cabeceras de Internet del mensaje. Siga estos pasos:

1. Haga doble clic para abrir el correo y obtener la zona horaria del remitente.

2. A continuación, haga clic en el botón «Opciones del mensaje» del grupo «Etiquetas» en la pestaña «Mensaje». Consulte la captura de pantalla:

3. En la ventana «Propiedades», podrá ver la zona horaria del remitente en el cuadro «Cabeceras de Internet», tal como se muestra en la siguiente captura de pantalla.

---

---

Obtener la zona horaria del remitente de un correo recibido mediante código VBA

El siguiente código VBA también le permite obtener la zona horaria del remitente de un correo electrónico recibido. Siga estos pasos:

1. Seleccione un correo del que desee obtener la zona horaria del remitente y pulse las teclas «Alt» + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana «Microsoft Visual Basic para Aplicaciones», haga clic en «Insertar» > «Módulo». A continuación, copie el siguiente código VBA en el módulo.

Código VBA: Obtener la zona horaria del remitente de un correo recibido en Outlook

Sub DisplayTimeZone()
'Updated by Extendoffice 2018/08/22
    Dim xMailItem As MailItem
    Dim xItem As Object, xTimezone As String
    Set xItem = Outlook.Application.ActiveExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    xTimezone = GetTimeZoneFromHeader(xMailItem)
    MsgBox xTimezone, vbInformation, "Kutools for Outlook"
    Set xMailItem = Nothing
End Sub

Function GetTimeZoneFromHeader(Item As Outlook.MailItem) As String
    Dim xPropertyAccessor As Outlook.PropertyAccessor
    Dim xHeader As String, xLineArr As Variant, xLine As Variant
    Const xInternetHeader As String = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
    On Error Resume Next
    Set xPropertyAccessor = Item.PropertyAccessor
    xHeader = xPropertyAccessor.GetProperty(xInternetHeader)
    If Len(xHeader) = 0 Then
        MsgBox "The message header is empty.", vbInformation, "Kutools for Outlook"
        Exit Function
    End If
    xLineArr = Split(xHeader, vbCrLf)
    For Each xLine In xLineArr
        If InStr(xLine, "Date:") = 1 Then
            GetTimeZoneFromHeader = Trim(Replace(xLine, "Date:", ""))
        End If
    Next
    Set xPropertyAccessor = Nothing
End Function

3. Pulse la tecla "F5" para ejecutar el código. A continuación, aparecerá el cuadro de diálogo «Kutools para Outlook» mostrando la zona horaria del remitente. Vea la captura de pantalla:

---

Mostrar automáticamente la zona horaria del remitente en la cabecera del mensaje con Kutools para Outlook

Si desea mostrar directamente la zona horaria del remitente en la cabecera del mensaje, pruebe la utilidad **Zona horaria del remitente** de Kutools para Outlook.

1. Tras instalar Kutools para Outlook, vaya a la pestaña «KUTOOLS PLUS» y haga clic en «Mostrar información del correo» > «Zona horaria del remitente».

La zona horaria del remitente aparecerá inmediatamente en la cabecera del mensaje. Consulte la captura de pantalla: