Hogyan lehet lekérni a küldő időzónáját egy fogadott e-mailről az Outlook programban?

A kapott e-mail küldőjének időzónájának megszerzése jó módszer arra, hogy megfelelő időben megválaszolja az e-mailt annak érdekében, hogy hatékonyabban végezhesse munkáját. Ez a cikk néhány módszert ismertet a fogadó e-mail küldőjének időzónájának lekérdezéséhez az Outlookban.

A fogadott e-mail feladójának időzónájának lekérése az internetes fejlécekkel
A kapott e-mail időzónája a VBA kóddal
A küldő időzónájának automatikus megjelenítése az üzenet fejlécében a Kutools for Outlook alkalmazással

---

A fogadott e-mail feladójának időzónájának lekérése az internetes fejlécekkel

Az e-mail küldőjének időzónáját az internetes fejlécekben találhatja meg. Kérjük, tegye a következőket.

1. Kattintson duplán az e-mail megnyitásához, így megkapja a feladó időzónáját.

2. Ezután kattintson a gombra Üzenet opciók gombot a Címkék csoport alatt Üzenet fülre. Lásd a képernyőképet:

3. Ban,-ben ingatlanok ablakban láthatja a feladó időzónáját a Internetes fejlécek mező az alábbi képernyőképen látható.

---

---

A kapott e-mail időzónája a VBA kóddal

Az alábbi VBA-kód segíthet a fogadó e-mail feladójának időzónájában. A következőket teheti.

1. Válasszon ki egy e-mailt, amellyel megkapja a feladó időzónáját, majd nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modult. Ezután másolja a VBA kód alatt a modulba.

VBA-kód: A kapott e-mail időzóna lekérése az Outlook programban

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. megnyomni a F5 gombot a kód futtatásához. Aztán a Kutools az Outlook számára megjelenik a párbeszédpanel, amelyben a feladó időzónája szerepel. Lásd a képernyőképet:

---

A küldő időzónájának automatikus megjelenítése az üzenet fejlécében a Kutools for Outlook alkalmazással

Ha a feladó időzónáját közvetlenül az üzenet fejlécében szeretné megjeleníteni, kérjük, próbálja ki a Kutools for Outlook Sender Time Zone segédprogramját.

1. A Kutools for Outlook telepítése után lépjen a Kutools Plus fülön, majd kattintson a gombra Üzenetadatok megjelenítése > Feladó időzónája.

Ezután a feladó időzónája azonnal megjelenik az üzenet fejlécében. Lásd a képernyőképet: