Hoe vindt u de tijdzone van de afzender van een ontvangen e-mail in Outlook?

De tijdzone van de afzender van een ontvangen e-mail achterhalen, is een goede manier om op het juiste moment te reageren en zo uw werk efficiënter te maken. Dit artikel biedt verschillende methoden om de tijdzone van de afzender van een ontvangen e-mail in Outlook te bepalen.

Tijdzone van de afzender van een ontvangen e-mail ophalen via internetheaders
Tijdzone van de afzender van een ontvangen e-mail ophalen met VBA-code
Tijdzone van de afzender automatisch weergeven op berichtkop met Kutools voor Outlook

---

Tijdzone van de afzender van een ontvangen e-mail ophalen via internetheaders

U kunt de tijdzone van de afzender van een e-mail terugvinden in de internetheaders. Volg hiervoor deze stappen.

1. Dubbelklik om het e-mailbericht te openen waarvan u de tijdzone van de afzender wilt achterhalen.

2. Klik vervolgens op de knop „Berichtopties” in de groep „Tags” op het tabblad „Bericht”. Zie de schermafbeelding:

3. In het venster „Eigenschappen” ziet u in het vak „Internetheaders” de tijdzone van de afzender, zoals op de onderstaande schermafbeelding wordt getoond.

---

---

Tijdzone van de afzender van een ontvangen e-mail ophalen met VBA-code

Met de onderstaande VBA-code kunt u ook de tijdzone van de afzender van een ontvangen e-mail achterhalen. Volg hiervoor deze eenvoudige stappen.

1. Selecteer een e-mail waarvan u de tijdzone van de afzender wilt achterhalen en druk op „Alt” + „F11” om het venster „Microsoft Visual Basic for Applications” te openen.

2. Klik in het venster „Microsoft Visual Basic for Applications” op „Invoegen” > „Module”. Kopieer vervolgens de onderstaande VBA-code naar de module.

VBA-code: Tijdzone van de afzender van een ontvangen e-mail ophalen 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. Druk op de F5-toets om de code uit te voeren. Vervolgens verschijnt het dialoogvenster „Kutools voor Outlook” met de tijdzone van de afzender. Zie schermafbeelding:

---

Tijdzone van de afzender automatisch weergeven op berichtkop met Kutools voor Outlook

Als u de tijdzone van de afzender direct in de berichtkop wilt weergeven, probeer dan de functie „Tijdzone afzender” van Kutools voor Outlook.

1. Na installatie van Kutools voor Outlook gaat u naar het tabblad „KUTOOLS PLUS” en klikt u op „Toon e-mailinformatie” > „Tijdzone afzender”.

De tijdzone van de afzender wordt direct in de berichtkop weergegeven. Zie schermafbeelding: