Copy Entire Email Content - Paste into new Task

  • Thread starter Thread starter Kolz
  • Start date Start date
K

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
 
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
 
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.
 
Back
Top