Copy Entire Email Content - Paste into new Task

[Kolz]

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

 

[Alan Moseley]

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

 

[Sue Mosher [MVP]]

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.