Come si fa a ottenere il fuso orario del mittente di un’e-mail ricevuta in Outlook?

Conoscere il fuso orario del mittente di un’e-mail ricevuta è un ottimo modo per rispondere al messaggio nel momento più opportuno, aumentando così l’efficienza del proprio lavoro. Questo articolo illustra alcuni metodi per individuare il fuso orario del mittente di un’e-mail ricevuta in Outlook.

Ottenere il fuso orario del mittente di un’e-mail ricevuta tramite le intestazioni Internet
Ottenere il fuso orario del mittente di un’e-mail ricevuta con codice VBA
Visualizzazione automatica del fuso orario del mittente nell’intestazione del messaggio con Kutools per Outlook

---

Ottenere il fuso orario del mittente di un’e-mail ricevuta tramite le intestazioni Internet

È possibile individuare il fuso orario del mittente di un’e-mail esaminando le relative intestazioni Internet. Ecco come fare.

1. Fare doppio clic per aprire l’e-mail e scoprire il fuso orario del mittente.

2. Fare quindi clic sul pulsante «Opzioni messaggio» nel gruppo «Tag» della scheda «Messaggio». Vedere lo screenshot:

3. Nella finestra «Proprietà», puoi visualizzare il fuso orario del mittente all'interno della casella «Intestazioni Internet», come illustrato nello screenshot seguente.

---

---

Ottenere il fuso orario del mittente di un’e-mail ricevuta con codice VBA

Anche il codice VBA riportato di seguito permette di ottenere il fuso orario del mittente di un’e-mail ricevuta. Procedere come segue.

1. Seleziona un’e-mail di cui vuoi conoscere il fuso orario del mittente, quindi premi i tasti «Alt» + «F11» per aprire la finestra «Microsoft Visual Basic, Applications Edition».

2. Nella finestra «Microsoft Visual Basic, Applications Edition», fai clic su «Inserisci» > «Modulo». Quindi copia il seguente codice VBA nel modulo.

Codice VBA: Ottenere il fuso orario del mittente di un’e-mail ricevuta in 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. Premere il tasto «F5» per eseguire il codice. Si aprirà quindi la finestra di dialogo «Kutools per Outlook», che mostra il fuso orario del mittente. Vedere lo screenshot:

---

Visualizzazione automatica del fuso orario del mittente nell’intestazione del messaggio con Kutools per Outlook

Per visualizzare direttamente il fuso orario del mittente nell’intestazione del messaggio, prova l’utilità Fuso orario mittente di Kutools per Outlook.

1. Dopo aver installato Kutools per Outlook, passa alla scheda «KUTOOLS PLUS» e fai clic su «Mostra informazioni email» > «Fuso orario mittente».

Il fuso orario del mittente viene visualizzato immediatamente nell’intestazione del messaggio. Vedi lo screenshot: