Hvordan får jeg afsenderens tidszone for en modtaget e-mail i Outlook?

At få afsenderens tidszone for en modtaget e-mail er en god måde for dig at besvare e-mailen på et passende tidspunkt for at gøre dit arbejde mere effektivt. Denne artikel indeholder nogle metoder til at få afsenderens tidszone for en modtaget e-mail i Outlook.

Få afsenderens tidszone for en modtaget e-mail med internetoverskrifter
Få afsenderens tidszone for en modtaget e-mail med VBA-kode
Automatisk visning af afsenderens tidszone på meddelelsesoverskrift med Kutools til Outlook

---

Få afsenderens tidszone for en modtaget e-mail med internetoverskrifter

Du kan finde afsenderens tidszone for en e-mail i dens internetoverskrifter. Gør som følger.

1. Dobbeltklik for at åbne e-mailen, du får afsenderens tidszone.

2. Klik derefter på Beskedindstillinger knappen i Tags gruppe under Besked fanen. Se skærmbillede:

3. i Ejendomme vindue, kan du se afsenderens tidszone i Internetoverskrifter boks som vist nedenstående skærmbillede.

---

---

Få afsenderens tidszone for en modtaget e-mail med VBA-kode

Nedenstående VBA-kode kan også hjælpe med at få afsenderens tidszone for en modtaget e-mail. Du kan gøre som følger.

1. Vælg en e-mail, du får afsenderens tidszone, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Modul. Kopier derefter nedenunder VBA-kode til modulet.

VBA-kode: Få afsenderens tidszone for en modtaget e-mail i 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. Tryk på F5 nøgle for at køre koden. Så a Kutools til Outlook dialogboksen vises med afsenderens tidszone, der er angivet indeni. Se skærmbillede:

---

Automatisk visning af afsenderens tidszone på meddelelsesoverskrift med Kutools til Outlook

Hvis du vil vise afsenderens tidszone direkte i beskedens overskrift, skal du prøve afsenderens tidszone-værktøj i Kutools til Outlook.

1. Efter installation af Kutools til Outlook skal du gå til Kutools Plus fanebladet, og klik derefter på Vis meddelelsesinfo > Afsenderens tidszone.

Derefter vises afsenderens tidszone straks i beskedens overskrift. Se skærmbillede: