¿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 electrónico recibido es una buena manera de responder el correo electrónico en el momento adecuado para que su trabajo sea más eficiente. Este artículo proporciona algunos métodos para obtener la zona horaria del remitente de un correo electrónico recibido en Outlook.

Obtenga la zona horaria del remitente de un correo electrónico recibido con encabezados de Internet
Obtenga la zona horaria del remitente de un correo electrónico recibido con código VBA
Mostrar automáticamente la zona horaria del remitente en el encabezado del mensaje con Kutools para Outlook

---

Obtenga la zona horaria del remitente de un correo electrónico recibido con encabezados de Internet

Puede encontrar la zona horaria del remitente de un correo electrónico en sus encabezados de Internet. Haz lo siguiente.

1. Haga doble clic para abrir el correo electrónico y obtendrá la zona horaria del remitente.

2. Luego haga clic en el Opciones de mensaje botón en el Etiquetas grupo bajo Mensaje lengüeta. Ver captura de pantalla:

3. En el Propiedades ventana, puede ver la zona horaria del remitente en la Encabezados de Internet cuadro como se muestra a continuación.

---

---

Obtenga la zona horaria del remitente de un correo electrónico recibido con código VBA

El siguiente código VBA también puede ayudar a obtener la zona horaria del remitente de un correo electrónico recibido. Puedes hacer lo siguiente.

1. Seleccione un correo electrónico y obtendrá la zona horaria del remitente, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código VBA a continuación en el Módulo.

Código de VBA: obtenga la zona horaria del remitente de un correo electrónico 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. presione el F5 clave para ejecutar el código. Entonces un Kutools para Outlook Aparece un cuadro de diálogo con la zona horaria del remitente en el interior. Ver captura de pantalla:

---

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

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

1. Después de instalar Kutools para Outlook, vaya al Kutools Más ficha y, a continuación, haga clic Mostrar información de mensaje > Zona horaria del remitente.

Luego, la zona horaria del remitente se muestra en el encabezado del mensaje inmediatamente. Ver captura de pantalla: