Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
objOutlook = New Microsoft.Office.Interop.Outlook.Application
Dim mail As Microsoft.Office.Interop.Outlook.MailItem
mail = objOutlook.ActiveExplorer.Selection.Item(1)
mail.SaveAs("C:\test.msg")

Wissen ist Macht !!
-------------------------