Michael, Thank you for your answer. I used the code you sent and it does
create a copy of the message in my Inbox.

Is there a way to have it make a copy on the windows clipboard so it can
copy it into any application or is there a way to make a copy of it as a txt
or msg file in windows explorer?

Thanks again for your help.

"Michael Bauer [MVP - Outlook]" wrote:



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.