Copy Entire Email Content - Paste into new Task

Status
Not open for further replies.
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
 
A

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

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
 
S

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 40 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

"Alan Moseley" <AlanMoseley> wrote in message

news:2D0A371D-5921-43D5-8CB9-10FB53E3C04E@microsoft.com...
> 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
 
Status
Not open for further replies.
Top