July's Course of the Month is now available! Enroll to learn HTML5 and prepare for certification. It's free for Premium Members, Team Accounts, and Qualified Experts.
Private sub SaveOutlookItem() Dim outlook As New Microsoft.Office.Interop.Outlook.Application Dim explorer As Outlook.Explorer = outlook.ActiveExplorer Dim mail As Outlook.MailItem = CType(explorer.Selection.Item(1), Outlook.MailItem) mail.SaveAs("P:\test.msg") End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.