Outlook에서받은 이메일의 발신자 시간대를 가져 오는 방법은 무엇입니까?

받은 이메일의 발신자 시간대를 가져 오는 것은 작업을보다 효율적으로 만들기 위해 적절한 시간에 이메일에 답장 할 수있는 좋은 방법입니다. 이 문서에서는 Outlook에서받은 전자 메일의 보낸 사람 시간대를 가져 오는 몇 가지 방법을 제공합니다.

인터넷 헤더가있는 수신 된 이메일의 발신자 시간대 가져 오기
VBA 코드로받은 이메일의 발신자 시간대 가져 오기
메시지 헤더에 보낸 사람의 시간대를 자동으로 표시합니다. Kutools for Outlook

인터넷 헤더가있는 수신 된 이메일의 발신자 시간대 가져 오기

인터넷 헤더에서 이메일의 발신자 시간대를 찾을 수 있습니다. 다음과 같이하십시오.

1. 두 번 클릭하여 발신자의 시간대를 확인할 수있는 이메일을 엽니 다.

2. 그런 다음 메시지 옵션 버튼의 태그 아래 그룹 문의내용 탭. 스크린 샷보기 :

3. 에서 등록 창에서 보낸 사람의 시간대를 볼 수 있습니다. 인터넷 헤더 아래 스크린 샷과 같이 상자.

발신자 시간대 ~의 유용성 Kutools for Outlook 아래 스크린 샷과 같이 하나의 클릭만으로 메시지 헤더에 보낸 사람의 시간대를 표시 할 수 있습니다. 지금 다운로드하여 사용해 보세요! (60일 무료 트레일)

VBA 코드로받은 이메일의 발신자 시간대 가져 오기

아래 VBA 코드는 수신 된 이메일의 발신자 시간대를 가져 오는데도 도움이 될 수 있습니다. 다음과 같이 할 수 있습니다.

1. 발신자의 시간대를받을 이메일을 선택하고 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수. 그런 다음 VBA 코드 아래를 모듈에 복사하십시오.

VBA 코드 : 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. 누르세요 F5 코드를 실행하는 키입니다. 그 다음에 Kutools for Outlook 발신자의 시간대가 나열된 대화 상자가 나타납니다. 스크린 샷보기 :