Получать информацию из сохраненных писем

Question

Я получил много писем, сохраненных в папках. Я хочу получить все приемники в excel. Я для начала пытался получить получателя из одного письма, но уже не мог понять. У меня есть код, который я пытался использовать, но не смог использовать .To. Вероятно, это связано с тем, что MailOut - это элемент Outlook, а не элемент почты. Может кто-нибудь помочь мне понять, что я могу сделать, чтобы извлечь приемник?

Sub GetEmails()

Dim SlctFile As FileDialog
Set SlctFile = Application.FileDialog(msoFileDialogFilePicker)
    SlctFile.Show 

Dim MailOutlook As Object
    MailOutlook = SlctFile.SelectedItems(1)   

    Dim Mailout As Object
    Dim FileSys As Object
    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set Mailout = FileSys.GetFile(SlctFile.SelectedItems(1))
    
    Range(Cells(2, 1)).Value = Mailout.To
    'Cells(2, 2) = SlctFile.Subject
    'Cells(2, 3) = SlctFile.CC
    'Cells(2, 4) = SlctFile.BCC
    'Cells(2, 5) = SlctFile.Body
End Sub