• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 562
  • Last Modified:

Forwarding multiple emails in Outlook 2007 within body of text

Outlook 2007 - Is there a way to select and forward multiple emails within a single email without them going as multiple attachments?   Would like the full text of all the forwarded emails to be contained inside the main email.  We have users that cannot receive attachments.
  • 3
  • 3
1 Solution
Tyler LaczkoCommented:
You cannot do this without coping / pasting the text of the emails.
David LeeCommented:

I can do it with a simple macro.  If that's an option, then I can post the code and instructions.
DBI-DTAuthor Commented:
I'll take it!
Easily manage email signatures in Office 365

Managing email signatures in Office 365 can be a challenging task if you don't have the right tool. CodeTwo Email Signatures for Office 365 will help you implement a unified email signature look, no matter what email client is used by users. Test it for free!

David LeeCommented:
Which email will be the "main" email?
DBI-DTAuthor Commented:
The user will select several emails and then click Forward, creating the "Main" email.
David LeeCommented:
Got it.  Here's the code.  Follow these instructions to add it to Outlook.

1.  Start Outlook
2.  Click Tools > Macro > Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects
4.  If not already expanded, expand Modules
5.  Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert > Module.
6.  Go to this Microsoft KB article (http://support.microsoft.com/kb/274326)
7.  Copy the code from step #4 and paste it into the right-hand pane of Outlook's VB editor window
8.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window below the other code
9.  Click the diskette icon on the toolbar to save the changes
10. Close the VB Editor

To use this

1.  Select one or more messages
2.  Run the FwdMultiple macro

The macro creates a new message then copies and pastes the contents of the other messages into it.

Sub FwdMultiple()
    Dim olkFwd As Outlook.MailItem, olkMsg As Outlook.MailItem, olkDoc As Object, strTempHTML As String
    Set olkFwd = Application.CreateItem(olMailItem)
    With olkFwd
        Set olkDoc = olkFwd.GetInspector.WordEditor
        .Subject = "FW: Multi-item Forward"
        For Each olkMsg In Application.ActiveExplorer.Selection
            strTempHTML = "<br><hr><br><b>From:</b> " & olkMsg.SenderName & "<br>" _
                & "<b>Sent:</b> " & olkMsg.SentOn & "<br>" _
                & "<b>To:</b> " & olkMsg.To & "<br>" _
                & "<b>Subject:</b> " & olkMsg.Subject & "<br><br>" & olkMsg.HTMLBody
            PutHTMLClipboard strTempHTML
            olkDoc.Windows(1).Selection.EndKey wdStory
    End With
    Set olkFwd = Nothing
    Set olkMsg = Nothing
    Set olkDoc = Nothing
End Sub

Open in new window

DBI-DTAuthor Commented:
Needed a simpler solution.   Found work-around.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Train for your Pen Testing Engineer Certification

Enroll today in this bundle of courses to gain experience in the logistics of pen testing, Linux fundamentals, vulnerability assessments, detecting live systems, and more! This series, valued at $3,000, is free for Premium members, Team Accounts, and Qualified Experts.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now