Получить идентификатор электронной почты вместо имени

Question

Ниже кодирования извлекает всю информацию из .msg файлов. Однако, когда он получает идентификатор электронной почты отправителя и получает, он отражает имя вместо идентификатора электронной почты. Пожалуйста, помогите мне и посоветуйте, какие изменения необходимы для отображения идентификатора электронной почты вместо имени.

Dim MyOutlook As Outlook.Application

Dim Msg As Outlook.MailItem
Dim x As Namespace
Dim Row As Integer
Dim Path As String
Set MyOutlook = New Outlook.Application
Set x = MyOutlook.GetNamespace("MAPI")
Path = "C:\Users\USERNAME\Desktop\My working\Macro\New folder\Ilearn - Grp 1\"

FileList = GetFileList(Path + "*.msg")
Row = 1

While Row <= UBound(FileList)

    Set Msg = x.OpenSharedItem(Path + FileList(Row))

    Sheet2.Cells(Row + 1, 1) = Msg.Subject
    Sheet2.Cells(Row + 1, 2) = Msg.Sender
    Sheet2.Cells(Row + 1, 3) = Msg.CC
    Sheet2.Cells(Row + 1, 4) = Msg.To
    Sheet2.Cells(Row + 1, 5) = Msg.SentOn
    Row = Row + 1
Wend