I did this at home using Win98SE and Office Pro 2000, and it worked fine.

' Create email
Dim OL As Object
Dim EmailItem As Object

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
With EmailItem

I'm trying to run down an inventory list and send late users a reminder
email. At home, it was fine. I get to work to use it, where I'm running
Windows XP Pro and Office 2003, and I get
Run-time error 40036
Application-defined or user-defined error
on the line
Set EmailItem = OL.CreateItem(olMailItem)

Can someone help straighten this out for me?

Thanks.
Ed