Try deleting the line
Const olFolderTasks = 13
and then changing the line
Set olFolder = ns.GetDefaultFolder(olFolderTasks)
to read
Set olFolder = ns.GetDefaultFolder(13)

It worked fine when I tested it. An alternate approach would be to set a
reference to Outlook under 'Tools References' and alter the way the
Outlook objects are created.

Steve


wrote in message
ups.com...
Can anyone help with this? I tried the "Option Explicit" with this
and using the code suggested in this thread, I set the ol, ns, and
olFolder As Object and set TaskItem as a Variant. I'm still getting
errors.