Forwarding Multiple Messages in-line not attachments…

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
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 +++++++..





3 thoughts on “Forwarding Multiple Messages in-line not attachments…

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.