Bagaimana cara mendapatkan zona waktu pengirim dari email yang diterima di Outlook?

Mendapatkan zona waktu pengirim dari email yang diterima adalah cara yang baik bagi Anda untuk membalas email pada waktu yang tepat agar pekerjaan Anda lebih efisien. Artikel ini memberikan beberapa metode bagi Anda untuk mendapatkan zona waktu pengirim dari email yang diterima di Outlook.

Dapatkan zona waktu pengirim dari email yang diterima dengan header Internet
Dapatkan zona waktu pengirim dari email yang diterima dengan kode VBA
Zona waktu pengirim secara otomatis di header pesan dengan Kutools for Outlook

---

Dapatkan zona waktu pengirim dari email yang diterima dengan header Internet

Anda dapat menemukan zona waktu pengirim email di header Internetnya. Silakan lakukan sebagai berikut.

1. Klik dua kali untuk membuka email Anda akan mendapatkan zona waktu pengirim.

2. Kemudian klik Opsi Pesan tombol di Tag kelompok di bawah Pesan tab. Lihat tangkapan layar:

3. Dalam Properties jendela, Anda dapat melihat zona waktu pengirim di Header internet kotak seperti gambar di bawah ini yang ditampilkan.

---

---

Dapatkan zona waktu pengirim dari email yang diterima dengan kode VBA

Kode VBA di bawah ini juga dapat membantu mendapatkan zona waktu pengirim dari email yang diterima. Anda dapat melakukan sebagai berikut.

1. Pilih email Anda akan mendapatkan zona waktu pengirimnya, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke dalam Modul.

Kode VBA: Dapatkan zona waktu pengirim dari email yang diterima di 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. tekan F5 kunci untuk menjalankan kode. Kemudian a Kutools untuk Outlook kotak dialog muncul dengan zona waktu pengirim yang tercantum di dalamnya. Lihat tangkapan layar:

---

Zona waktu pengirim secara otomatis di header pesan dengan Kutools for Outlook

Jika Anda ingin menampilkan zona waktu pengirim langsung di header pesan, silakan coba utilitas Zona Waktu Pengirim dari Kutools for Outlook.

1. Setelah menginstal Kutools for Outlook, buka Kutools Plus tab, dan kemudian klik Tampilkan Info Pesan > Zona Waktu Pengirim.

Kemudian zona waktu pengirim segera ditampilkan di header pesan. Lihat tangkapan layar: