Извлечение адреса электронной почты отправителя из MSG-файлов

Question

Я не могу извлечь адрес электронной почты из файла сообщения, когда адрес электронной почты не отображается по умолчанию в разделе сведений об отправителе рядом с именем пользователя

Set ol  = CreateObject("Outlook.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder("C:\Users\ANuthan\OneDrive - Element Financial Corp\Documents\ElementFleet\New Bot\TitleQuest\OneDrive_2020-02-18\Attaching Title sale emails to Title Quest\Sample emails\As-Is emails - title sales").Files

    If LCase(fso.GetExtensionName(f)) = "msg" Then
        Set msg = ol.CreateItemFromTemplate(f.Path)
        WScript.Echo msg.Sender.address
        WScript.Echo msg.Sender.Name
    End If
Next