Copy Email to Task

[Guest]

I just moved from Office XP to Office 2003.

I copied all of my macros from Outlook and have started adding them back
into the new version, but one of them does not appear to be working. I have
a macro that use to make a Task out of an email, the text is below:

Sub CopyEmailToTask()
'Copies an email message and makes it a Task Item with a Due Date of today
Dim objMsg As Outlook.MailItem, objTask As Outlook.TaskItem

If Application.ActiveExplorer.Selection.Item(1).Class <> olMail Then
Exit Sub
Set objMsg = Application.ActiveExplorer.Selection.Item(1)
Set objTask = Application.CreateItem(olTaskItem)
objTask.Body = objMsg.Body
objTask.Subject = objMsg.Subject
objTask.DueDate = Now
objTask.Save
End Sub

What this use to do was take the email I had selected, make it a task with
today as the due date. Now when I click on it, nothing happens. I don't get
any errors, I don't get a task, nothing.

Is there something I need to modify for it to work with Outlook 2003?

Thanks,
Keith

 

[Guest]

Found that the Security Setting was set to HIGH. Once I lowered the setting,
the macro is working fine.