K
Keith Brown
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
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