Cum se obține fusul orar al expeditorului unui e-mail primit în Outlook?

Obținerea fusului orar al expeditorului unui e-mail primit este o modalitate bună de a răspunde la e-mail într-un timp adecvat, pentru a vă face munca mai eficientă. Acest articol oferă câteva metode pentru a obține fusul orar al expeditorului unui e-mail primit în Outlook.

Obțineți fusul orar al expeditorului unui e-mail primit cu anteturi Internet
Obțineți fusul orar al expeditorului unui e-mail primit cu codul VBA
Afișează automat fusul orar al expeditorului pe antetul mesajului cu Kutools pentru Outlook

Obțineți fusul orar al expeditorului unui e-mail primit cu anteturi Internet

Puteți găsi fusul orar al expeditorului unui e-mail în antetele sale de internet. Vă rugăm să faceți următoarele.

1. Faceți dublu clic pentru a deschide e-mailul, veți obține fusul orar al expeditorului.

2. Apoi faceți clic pe Opțiuni pentru mesaje buton în Tag-uri grup sub Mesaj filă. Vedeți captura de ecran:

3. În Proprietăţi fereastra, puteți vedea fusul orar al expeditorului în Anteturi de pe Internet caseta din imaginea de mai jos.

Fus orar expeditor utilitatea Kutools pentru Outlook vă poate ajuta să afișați fusul orar al expeditorului în antetul mesajului cu un singur clic, după cum se arată în imaginea de mai jos. Descărcați și încercați acum! (traseu gratuit de 60 de zile)

Obțineți fusul orar al expeditorului unui e-mail primit cu codul VBA

Codul VBA de mai jos vă poate ajuta, de asemenea, să obțineți fusul orar al expeditorului unui e-mail primit. Puteți face după cum urmează.

1. Selectați un e-mail pentru a primi fusul orar al expeditorului, apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modul. Apoi copiați mai jos codul VBA în modul.

Cod VBA: obțineți fusul orar al expeditorului unui e-mail primit în 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. apasă pe F5 tasta pentru a rula codul. Apoi o Kutools pentru Outlook apare fereastra de dialog cu fusul orar al expeditorului listat în interior. Vedeți captura de ecran:

Afișează automat fusul orar al expeditorului pe antetul mesajului cu Kutools pentru Outlook

Dacă doriți să afișați fusul orar al expeditorului direct pe antetul mesajului, vă rugăm să încercați utilitarul Fus orar expeditor al Kutools pentru Outlook.

1. După instalarea Kutools pentru Outlook, accesați Kutools Plus , apoi faceți clic pe Afișați informații despre mesaj > Fus orar expeditor.

Apoi, fusul orar al expeditorului este afișat imediat pe antetul mesajului. Vedeți captura de ecran:

Dacă doriți să aveți o perioadă de încercare gratuită (60 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.