フォルダ内の.msgファイルの宛先情報を一覧で取得する

VBAで以下を実行する
フォルダパスの部分は変更する

Sub a()

Dim OL  As Object
Dim msg As Object

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

For Each file In fso.getFolder("C:\XXXXXXXXXXXXXXXXXX\YYYYYYYYY\ZZZZZZZ").Files
    strFileName = file
    Set msg = OL.CreateItemFromTemplate(strFileName)
    Debug.Print "To: " & msg.To
Next

End Sub