Outlook’ta aldığınız bir e-postanın göndereninin saat dilimini nasıl öğrenebilirsiniz?

Alınan bir e-postanın göndereninin saat dilimini öğrenmek, e-postayı uygun zamanda yanıtlayarak işlerinizi daha verimli hale getirmenin iyi bir yoludur. Bu makalede, Outlook'ta alınan bir e-postanın göndereninin saat dilimini almanız için bazı yöntemler sunulmaktadır.

Alınan bir e-postanın göndereninin saat dilimini İnternet üstbilgileriyle alın
Alınan bir e-postanın göndereninin saat dilimini VBA koduyla alın
Kutools for Outlook ile ileti başlığında gönderenin saat dilimini otomatik görüntüleyin

---

Alınan bir e-postanın göndereninin saat dilimini İnternet üstbilgileriyle alın

Bir e-postanın göndereninin saat dilimini İnternet üstbilgilerinde bulabilirsiniz. Lütfen aşağıdaki adımları izleyin.

1. Gönderenin saat dilimini görüntülemek istediğiniz e-postaya çift tıklayın.

2. Ardından "İleti" sekmesindeki "Etiketler" grubundan "İleti Seçenekleri" düğmesine tıklayın. Ekran görüntüsüne göz atın:

3. "Özellikler" penceresinde, aşağıdaki ekran görüntüsünde gösterildiği gibi "İnternet üstbilgileri" kutusunda gönderenin saat dilimini görüntüleyebilirsiniz.

---

---

Alınan bir e-postanın göndereninin saat dilimini VBA koduyla alın

Aşağıdaki VBA kodu, alınan bir e-postanın göndereninin saat dilimini öğrenmenize yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Gönderenin saat dilimini almak istediğiniz e-postayı seçin, ardından "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. "Microsoft Visual Basic for Applications" penceresinde, "Ekle" > "Modül" seçeneğine tıklayın . Ardından aşağıdaki VBA kodunu modüle kopyalayın.

VBA kodu: Outlook'ta alınan bir e-postanın göndereninin saat dilimini alın

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. Kodu çalıştırmak için "F5" tuşuna basın. Ardından, gönderenin saat diliminin listelendiği bir "Kutools for Outlook" iletişim kutusu açılacaktır. Ekran görüntüsüne göz atın:

---

Kutools for Outlook ile ileti başlığında gönderenin saat dilimini otomatik görüntüleyin

Gönderenin saat dilimini doğrudan ileti başlığında görüntülemek istiyorsanız, Kutools for Outlook’un “Gönderenin Saat Dilimi” yardımcı programını mutlaka deneyin!

1. Kutools for Outlook'u yükledikten sonra "KUTOOLS PLUS" sekmesine gidin ve "E-posta Bilgilerini Göster" > "Gönderenin Saat Dilimi" seçeneğine tıklayın.

Gönderenin saat dilimi, ileti başlığında hemen ardından görüntülenir. Ekran görüntüsüne bakın: