Jak získat časové pásmo odesílatele přijatého e-mailu v aplikaci Outlook?

Získání časového pásma odesílatele přijatého e-mailu je dobrý způsob, jak odpovědět na e-mail ve správný čas, aby byla vaše práce efektivnější. Tento článek obsahuje několik metod, jak získat časové pásmo odesílatele pro přijatou e-mailovou adresu v aplikaci Outlook.

Získejte časové pásmo odesílatele přijatého e-mailu s hlavičkami Internetu
Získejte časové pásmo odesílatele přijatého e-mailu s kódem VBA
Automatické zobrazení časového pásma odesílatele v záhlaví zprávy pomocí Kutools pro Outlook

---

Získejte časové pásmo odesílatele přijatého e-mailu s hlavičkami Internetu

Časové pásmo odesílatele e-mailu najdete v jeho internetových záhlavích. Postupujte prosím následovně.

1. Poklepáním otevřete e-mail, který obdržíte časové pásmo odesílatele.

2. Poté klikněte na tlačítko Možnosti zprávy tlačítko v Tagy skupina pod Zpráva záložka. Viz snímek obrazovky:

3. V Nemovitosti v okně můžete vidět časové pásmo odesílatele v Záhlaví internetu rámeček níže.

---

---

Získejte časové pásmo odesílatele přijatého e-mailu s kódem VBA

Níže uvedený kód VBA může také pomoci získat časové pásmo odesílatele přijatého e-mailu. Můžete postupovat následovně.

1. Vyberte e-mail, který obdržíte v časovém pásmu odesílatele, stiskněte tlačítko Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do modulu.

Kód VBA: Získejte časové pásmo odesílatele přijatého e-mailu v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu. Pak Kutools pro aplikaci Outlook Zobrazí se dialogové okno s časovým pásmem odesílatele uvedeným uvnitř. Viz screenshot:

---

Automatické zobrazení časového pásma odesílatele v záhlaví zprávy pomocí Kutools pro Outlook

Chcete-li zobrazit časové pásmo odesílatele přímo v záhlaví zprávy, vyzkoušejte nástroj Časové pásmo odesílatele Kutools pro Outlook.

1. Po instalaci Kutools pro Outlook přejděte na Kutools Plus a klepněte na tlačítko Zobrazit informace o zprávě > Časové pásmo odesílatele.

Poté se v záhlaví zprávy okamžitě zobrazí časové pásmo odesílatele. Viz screenshot: