One of those simple features of Lotus Notes which Outlook fails to provide is forwarding of multiple emails as inline text.. I think its great that you can forward them as attachments, but sometimes a few simple text based emails only warrant the content not a full file..
A brief search confirmed that this was not a default feature and that a code snippet would be required… Thanks to the forum responder who posted this one over 5 years ago !
Sub ForwardMessagesInline() Dim olItem As Outlook.MailItem Dim olOutMail As Outlook.MailItem Set olOutMail = Application.CreateItem(olMailItem) With olOutMail .To = "" .Subject = "FW: " .Body = .Body & vbCr + vbCr & "+++++++++++++++++++++++++++++++++++++++++++++++++" & vbCr + vbCr For Each olItem In ActiveExplorer.Selection .Body = .Body & olItem.Subject & vbCr + vbCr & olItem.Body & _ vbCr + vbCr & "+++++++++++++++++++++++++++++++++++++++++++++++++" & vbCr + vbCr Next olItem .Display End With End Sub
Saved this as a Macro, added this as a button on the Ribbon and now when I select multiple emails I can click forward In-Line and the body’s of the selected message’s is placed into a new message separated by +++++++..