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.

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.

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.

#1 Use commandbar techniques
(http://www.outlookcode.com/d/tips/commandbarfun.htm) to copy all in an
Explorer selected messages to the clipboard. The button ID for the Copy
command is 19.

# You can call an item's Save method to sace it as a txt or msg file. The
method is explained in the VBA help file.

--
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 Wed, 13 Jun 2007 15:45:03 -0700 schrieb Jordan:

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.