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