Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies. Only from Platform Scholar.
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.