Imports Microsoft.Office.Interop
 
Module Module1
    Sub Main()
        Dim oApp As New Outlook.Application
 
        Dim mitem As Outlook.MailItem = oApp.CreateItemFromTemplate( _
          "C:\Nachricht.msg")
 
        Console.WriteLine(mitem.SenderName)
        Console.WriteLine(mitem.Body)
 
        Console.ReadKey()
 
        oApp.Quit()
    End Sub
End Module