The Video here covers applying the ForwardMultiple Macro to Outlook 2007

This video guides you how to enter the ForwardMultiple macro into Outlook '03.

To access and apply Macros for other versions of Outlook, please refer to the online guide here.

Things to note: 1. Images in the email instead show as HYPERLINKS to the source of the image online, functionally it does not harm any thing, but it is less attractive.

1. Any original email with an attachment should be sent separately. The ForwardMultiple macro AND Outlooks default way to forward multiple emails lose access to the attachment of the original document. It is simplest just to send the attachment email separately.

2. Macs do not support Macros for their version of Outlook, as the macro is actually set through Microsoft's Visual Basic Editor. The Mail application (Apple's answer to Outlook) actually forwards multiple emails like this by default (no macro needed in Mail) so I would recommend either the switch to mail, send these emails through there mail client's website, or send each email individually.

Copy and Paste the following code into the Macro Field:

___________________________________________________________________

Sub ForwardMultiple()

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 & "SUBJECT: " & olItem.Subject & vbCr & _

"FROM: " & olItem.SenderEmailAddress & vbCr & "DATE: " & olItem.ReceivedTime & vbCr + vbCr & _

"MESSAGE: " & olItem.Body & _

"____________________________________________________" & vbCr + vbCr

Next olItem

.Display

End With

End Sub

0 Votes