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

Saber o fuso horário do remetente de um e-mail recebido é uma excelente forma de responder na altura certa, aumentando a eficiência do seu trabalho. Este artigo apresenta alguns métodos para 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 através dos cabeçalhos da Internet
Obter o fuso horário do remetente de um e-mail recebido com código VBA
Exibição automática do fuso horário do remetente no cabeçalho da mensagem com Kutools para Outlook

---

Obter o fuso horário do remetente de um e-mail recebido através dos cabeçalhos da Internet

Pode encontrar o fuso horário do remetente de um e-mail nos respetivos cabeçalhos da Internet. Siga os passos indicados a seguir.

1. Faça duplo clique para abrir o e-mail do qual pretende obter o fuso horário do remetente.

2. Em seguida, clique no botão «Opções da Mensagem», no grupo «Etiquetas», sob o separador «Mensagem». Veja a captura de ecrã:

3. Na janela «Propriedades», pode visualizar o fuso horário do remetente na caixa «Cabeçalhos da Internet», conforme ilustrado na seguinte captura de ecrã.

---

---

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

O seguinte código VBA também o pode ajudar a obter o fuso horário do remetente de um e-mail recebido. Siga estes passos:

1. Selecione um e-mail cujo fuso horário do remetente deseja obter e prima «Alt» + «F11» para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Na janela «Microsoft Visual Basic para Aplicações», clique em «Inserir» > «Módulo». Em seguida, copie o seguinte código VBA para o módulo.

Código VBA: Obter 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. Prima a tecla «F5» para executar o código. Em seguida, surge uma caixa de diálogo «Kutools para Outlook» com o fuso horário do remetente listado no interior. Veja a captura de ecrã:

---

Exibição automática do fuso horário do remetente no cabeçalho da mensagem com Kutools para Outlook

Se pretender exibir diretamente o fuso horário do remetente no cabeçalho da mensagem, experimente a funcionalidade Fuso Horário do Remetente do Kutools para Outlook.

1. Após instalar o Kutools para Outlook, aceda ao separador «KUTOOLS PLUS» e clique em «Mostrar informações do email» > «Fuso Horário do Remetente».

O fuso horário do remetente é exibido imediatamente no cabeçalho da mensagem. Veja a captura de ecrã: