Copy Entire Email Content - Paste into new Task
 

Getting tired of drag and drop and if copying a message having to open up the
message in the text, so what i want to do is copy the entire message and
paste into a new task.

"one click" macro.

I use Office 2007. I realize you don't get "html" in an html format but
a copy/paste will give you pictures and pretty close to the original format.

Problem is ... I don't know VBA . I am a closet "RECORD MACRO" guy but...
can't do that in Outlook.

Help please.. Thanks in advance

Copy Entire Email Content - Paste into new Task
 

This will do pretty much what you ask. Copy the Sub below into your
ThisOutlookSession code window. Open up an email that you want to create a
task for, and run the macro.

Public Sub CreateTaskFromEmail()
Dim msg As Outlook.MailItem
Dim tsk As Outlook.TaskItem
Set msg = ActiveInspector.CurrentItem
Set tsk = Outlook.CreateItem(olTaskItem)
tsk.Subject = msg.Subject
tsk.Body = msg.Body
tsk.Display
Set msg = Nothing
Set tsk = Nothing
End Sub

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Kolz" wrote:

Getting tired of drag and drop and if copying a message having to open up the
message in the text, so what i want to do is copy the entire message and
paste into a new task.

"one click" macro.

I use Office 2007. I realize you don't get "html" in an html format but
a copy/paste will give you pictures and pretty close to the original format.

Problem is ... I don't know VBA . I am a closet "RECORD MACRO" guy but...
can't do that in Outlook.

Help please.. Thanks in advance

Copy Entire Email Content - Paste into new Task
 

Actually, that won't do what everything that Kolz describes and seems to
want, because the Body property contains only plain text, not the pictures
and formatting. I've posted a new code sample at
http://www.outlookcode.com/codedetail.aspx?id=2040 that copies the full
formatted body from one Outlook 2007 item to another, taking advantage of
Word being the editor for all items except sticky notes and distribution
lists.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Alan Moseley" wrote in message
...
This will do pretty much what you ask. Copy the Sub below into your
ThisOutlookSession code window. Open up an email that you want to create
a
task for, and run the macro.

Public Sub CreateTaskFromEmail()
Dim msg As Outlook.MailItem
Dim tsk As Outlook.TaskItem
Set msg = ActiveInspector.CurrentItem
Set tsk = Outlook.CreateItem(olTaskItem)
tsk.Subject = msg.Subject
tsk.Body = msg.Body
tsk.Display
Set msg = Nothing
Set tsk = Nothing
End Sub

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Kolz" wrote:

Getting tired of drag and drop and if copying a message having to open up
the
message in the text, so what i want to do is copy the entire message and
paste into a new task.

"one click" macro.

I use Office 2007. I realize you don't get "html" in an html format
but
a copy/paste will give you pictures and pretty close to the original
format.

Problem is ... I don't know VBA . I am a closet "RECORD MACRO" guy
but...
can't do that in Outlook.

Help please.. Thanks in advance