We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub MailItemContent() Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Dim sText As String Set olItem = ActiveExplorer.Selection.Item(1) sText = olItem.Body Lines = Split(sText, vbCrLf) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) On Error Resume Next With OutMail .To = Replace(Lines(4), "Opened By: ", "") .Subject = Lines(3) .Body = "" .SendUsingAccount = OutApp.Session.Accounts.Item(1) .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub
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.