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

Inline1

Inline2

Inline3

Advertisements

One thought on “Forwarding Multiple Messages in-line not attachments…

Leave a Reply

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

WordPress.com Logo

You are commenting using your WordPress.com 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 )

Google+ photo

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

Connecting to %s