WOrked it out thanks.

set olApp = createObject("Outlook.Application")  --> Remove this line
set olItem = olApp.createItem(olmailitem)  -->  set olItem =
Application.createItem(olmailItem)

I hope the information that I provided here has been helpful to you.

Karen
Microsoft, Developer Support Engineer

Please do not send email directly to this alias. This alias is for
newsgroup purposes only.

Disclaimer: This posting is provided "AS IS" with no warranties, and
confers no rights.  You assume all risk for your use.
? 2001 Microsoft Corporation. All rights reserved

-------------------------------------------------------------------

Are you secure? For information about the Microsoft Strategic Technology
Protection Program and to order your FREE Security Tool Kit, please visit
<http://www.microsoft.com/security>.

Recent viruses on the Internet underscore the threat to all computer users
and highlight challenges facing the entire industry in providing security
that everyone needs to conduct business. I encourage you to sign up to
receive automatic notification of Microsoft Security Bulletins by visiting
<http://www.microsoft.com/technet/treeview/default.asp?url=/technet/se...
/bulletin/notify.asp>. For more information on security, our Strategic
Technology Protection Program and to order your FREE Security Tool Kit,
please visit <http://www.microsoft.com/security>. We will be happy to
answer any questions or provide assistance with your security needs.