try this:

Public Sub CopySelectedMessage()
Dim Mail as Outlook.MailItem
Dim Sel as Outlook.Selection
Set Sel=Application.ActiveExplorer.Selection
If Sel.Count then
Set Mail=Sel(1)
Set Mail=Mail.Copy
Mail.Save
Endif
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize Outlook email:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Tue, 12 Jun 2007 15:19:01 -0700 schrieb Jordan:

I would like to macro or code to be able to copy an email including the to
and from information as well as the time stamp etc.

Right now we click forward, click into the body of the email, click ctl-a,
ctl c. We can not do this from the orginal email as it does not give you
the
header information.

Thanks in advance for any help you may be able to provide.