Hoe de tijdzone van de afzender van een ontvangen e-mail in Outlook te krijgen?

Het verkrijgen van de tijdzone van de afzender van een ontvangen e-mail is een goede manier om de e-mail op het juiste moment te beantwoorden om uw werk efficiënter te maken. Dit artikel biedt enkele methoden waarmee u de tijdzone van de afzender van een ontvangen e-mail in Outlook kunt achterhalen.

Krijg de tijdzone van de afzender van een ontvangen e-mail met internetheaders
Ontvang de tijdzone van de afzender van een ontvangen e-mail met VBA-code
Geef de tijdzone van de afzender automatisch weer in de berichtkop met Kutools voor Outlook

---

Krijg de tijdzone van de afzender van een ontvangen e-mail met internetheaders

U kunt de tijdzone van de afzender van een e-mail vinden in de internetkopteksten. Ga als volgt te werk.

1. Dubbelklik om de e-mail te openen waarin u de tijdzone van de afzender krijgt.

2. Klik vervolgens op het Berichtopties knop in de Tags groep onder Bericht tabblad. Zie screenshot:

3. In de Vastgoed venster, ziet u de tijdzone van de afzender in het Internet headers vak zoals hieronder getoond screenshot.

---

---

Ontvang de tijdzone van de afzender van een ontvangen e-mail met VBA-code

De onderstaande VBA-code kan ook helpen om de tijdzone van de afzender van een ontvangen e-mail te achterhalen. U kunt het volgende doen.

1. Selecteer een e-mail waarin u de tijdzone van de afzender krijgt, druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar de module.

VBA-code: verkrijg de tijdzone van de afzender van een ontvangen e-mail 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 de F5 sleutel om de code uit te voeren. Dan een Kutools for Outlook dialoogvenster verschijnt met daarin de tijdzone van de afzender. Zie screenshot:

---

Geef de tijdzone van de afzender automatisch weer in de berichtkop met Kutools voor Outlook

Als u de tijdzone van de afzender rechtstreeks in de berichtkop wilt weergeven, probeer dan het hulpprogramma Tijdzone afzender van Kutools for Outlook.

1. Ga na het installeren van Kutools for Outlook naar het Koetools Plus Tabblad en klik vervolgens op Toon berichtinfo > Tijdzone afzender.

De tijdzone van de afzender wordt onmiddellijk in de berichtkop weergegeven. Zie screenshot: