Hur får jag avsändarens tidszon för ett mottaget e-postmeddelande i Outlook?

Att få avsändarens tidszon för ett mottaget e-postmeddelande är ett bra sätt för dig att svara på e-postmeddelandet i rätt tid för att göra ditt arbete mer effektivt. Den här artikeln innehåller några metoder för att få avsändarens tidszon för ett mottaget e-postmeddelande i Outlook.

Få avsändarens tidszon för ett mottaget e-postmeddelande med internetrubriker
Få avsändarens tidszon för ett mottaget e-postmeddelande med VBA-kod
Automatisk visning av avsändarens tidszon på meddelandehuvud med Kutools för Outlook

---

Få avsändarens tidszon för ett mottaget e-postmeddelande med internetrubriker

Du hittar avsändarens tidszon för ett e-postmeddelande i dess internetrubriker. Gör så här.

1. Dubbelklicka för att öppna e-postmeddelandet så får du avsändarens tidszon.

2. Klicka sedan på Meddelandealternativ knapp i Tags grupp under Meddelande flik. Se skärmdump:

3. I Fastigheter i fönstret kan du se avsändarens tidszon i Internethuvuden rutan som visas nedan.

---

---

Få avsändarens tidszon för ett mottaget e-postmeddelande med VBA-kod

Nedanstående VBA-kod kan också hjälpa till att få avsändarens tidszon för ett mottaget e-postmeddelande. Du kan göra enligt följande.

1. Välj ett e-postmeddelande så får du avsändarens tidszon, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul. Kopiera sedan VBA-koden nedan till modulen.

VBA-kod: Få avsändarens tidszon för ett mottaget e-postmeddelande 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. tryck på F5 för att köra koden. Då en Kutools för Outlook dialogrutan dyker upp med avsändarens tidszon listad inuti. Se skärmdump:

---

Automatisk visning av avsändarens tidszon på meddelandehuvud med Kutools för Outlook

Om du vill visa avsändarens tidszon direkt i meddelandehuvudet, försök med avsändarens tidszonverktyg i Kutools för Outlook.

1. Efter installationen av Kutools för Outlook, gå till Kutools Plus fliken och klicka sedan på Visa meddelandeinfo > Avsändarens tidszon.

Då visas avsändarens tidszon omedelbart i meddelandehuvudet. Se skärmdump: