Como obter o fuso horário do remetente de um e-mail recebido no Outlook?

Obter o fuso horário do remetente de um e-mail recebido é uma boa maneira de responder ao e-mail em um momento adequado para tornar seu trabalho com mais eficiência. Este artigo fornece alguns métodos para obter o fuso horário do remetente de um e-mail recebido no Outlook.

Obtenha o fuso horário do remetente de um e-mail recebido com cabeçalhos da Internet
Obtenha o fuso horário do remetente de um e-mail recebido com o código VBA
Exibir automaticamente o fuso horário do remetente no cabeçalho da mensagem com o Kutools para Outlook

Obtenha o fuso horário do remetente de um e-mail recebido com cabeçalhos da Internet

Você pode encontrar o fuso horário do remetente de um e-mail nos cabeçalhos da Internet. Faça o seguinte.

1. Clique duas vezes para abrir o e-mail que receberá o fuso horário do remetente.

2. Em seguida, clique no Opções de Mensagem botão no Tags grupo sob Mensagem aba. Veja a imagem:

3. No Propriedades janela, você pode ver o fuso horário do remetente no Cabeçalhos de Internet caixa como abaixo a imagem mostrada.

AFuso Horário do Remetente utilidade de Kutools for Outlook pode ajudá-lo a exibir o fuso horário do remetente no cabeçalho da mensagem com apenas um clique, conforme mostrado na imagem abaixo. Baixe e experimente agora! (trilha gratuita de 60 dias)

Obtenha o fuso horário do remetente de um e-mail recebido com o código VBA

O código VBA abaixo também pode ajudar a obter o fuso horário do remetente de um e-mail recebido. Você pode fazer o seguinte.

1. Selecione um e-mail do qual você obterá o fuso horário do remetente, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para o Módulo.

Código VBA: obtenha o fuso horário do remetente de um e-mail recebido no 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. aperte o F5 chave para executar o código. Então uma Kutools for Outlook a caixa de diálogo aparece com o fuso horário do remetente listado dentro. Veja a imagem:

Exibir automaticamente o fuso horário do remetente no cabeçalho da mensagem com o Kutools para Outlook

Se você deseja exibir o fuso horário do remetente diretamente no cabeçalho da mensagem, tente o utilitário Fuso horário do remetente do Kutools para Outlook.

1. Depois de instalar o Kutools for Outlook, vá para o Kutools Plus Guia e, em seguida, clique em Mostrar informações da mensagem > Fuso Horário do Remetente.

Em seguida, o fuso horário do remetente é exibido no cabeçalho da mensagem imediatamente. Veja a imagem:

Se você quiser ter um teste gratuito (60 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.