Getting data from .msg mail file with VBScript

The vbs code below can be used to retrieve information from an e-mail saved as .msg


Dim OL : Set OL=CreateObject("Outlook.Application")
Dim Msg :'Set Msg= CreateObject("Outlook.MailItem")
Set Msg = OL.CreateItemFromTemplate("C:\Users\user\Desktop\Mail.msg")
'MsgBox Msg.Subject 
'MsgBox Msg.CC		
'MsgBox Msg.Body

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("clip")
Set oIn = oExec.stdIn
oIn.WriteLine Msg.Subject  'Burada clipboard a subject set edilerek daha sonrasında modeler ile get edilebilir.
'Msg.saveAs "C:\Users\user\Desktop\Mail.txt", olDoc  Burada txt dosyası olarak kaydetmektedir.
'The above statement will save the contents of .msg file into the designate .txt file 

Set OL = Nothing
Set Msg = Nothing