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.
oIn.Close
'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