Comment obtenir le fuseau horaire de l’expéditeur d’un e-mail reçu dans Outlook ?

Connaître le fuseau horaire de l’expéditeur d’un e-mail reçu est une excellente façon de lui répondre au moment idéal et ainsi gagner en efficacité. Cet article présente plusieurs méthodes pour déterminer le fuseau horaire de l’expéditeur d’un message reçu dans Outlook.

Obtenir le fuseau horaire de l’expéditeur d’un e-mail reçu à l’aide des en-têtes Internet
Obtenir le fuseau horaire de l’expéditeur d’un e-mail reçu à l’aide d’un code VBA
Affichage automatique du fuseau horaire de l’expéditeur dans l’en-tête du message avec Kutools pour Outlook

---

Obtenir le fuseau horaire de l’expéditeur d’un e-mail reçu à l’aide des en-têtes Internet

Vous pouvez trouver le fuseau horaire de l’expéditeur d’un e-mail dans les en-têtes Internet de ce dernier. Voici la marche à suivre.

1. Double-cliquez pour ouvrir l’e-mail dont vous souhaitez connaître le fuseau horaire de l’expéditeur.

2. Cliquez ensuite sur le bouton « Options du message » situé dans le groupe « Balises » de l’onglet « Message ». Voir la capture d’écran :

3. Dans la fenêtre « Propriétés », le fuseau horaire de l’expéditeur apparaît dans la section « En-têtes Internet », comme le montre la capture d’écran ci-dessous.

---

---

Obtenir le fuseau horaire de l’expéditeur d’un e-mail reçu à l’aide d’un code VBA

Le code VBA ci-dessous vous permet également de récupérer le fuseau horaire de l’expéditeur d’un e-mail reçu. Voici la marche à suivre.

1. Sélectionnez un e-mail dont vous souhaitez connaître le fuseau horaire de l’expéditeur, puis appuyez sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».

2. Dans la fenêtre « Microsoft Visual Basic pour Applications », cliquez sur « Insertion » > « Module », puis copiez le code VBA ci-dessous dans le module.

Code VBA : Obtenir le fuseau horaire de l’expéditeur d’un e-mail reçu dans 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. Appuyez sur la touche « F5 » pour exécuter le code. La boîte de dialogue « Kutools pour Outlook » s’ouvre alors, affichant le fuseau horaire de l’expéditeur. Voir la capture d’écran :

---

Affichage automatique du fuseau horaire de l’expéditeur dans l’en-tête du message avec Kutools pour Outlook

Pour afficher directement le fuseau horaire de l’expéditeur dans l’en-tête du message, essayez l’utilitaire « Fuseau horaire de l’expéditeur » de Kutools pour Outlook.

1. Après avoir installé Kutools pour Outlook, rendez-vous dans l’onglet « KUTOOLS PLUS », puis cliquez sur « Afficher les informations de l’e-mail » > « Fuseau horaire de l’expéditeur ».

Le fuseau horaire de l’expéditeur s’affiche alors instantanément dans l’en-tête du message. Voir la capture d’écran :