Email via outlook object problem(RESOLVED)

[J.J. JOHNSTONE]

This code works just fine for setting the necessary object and hiding the SendEmail button if Outlook is not installed but...

if a user has Outlook installed but does not use it or have it set up there is a problem?

One on my users running XP was forced into Outlooks setup wizard every time this code ran. Another user was held up for as much as 2 minutes for the same reason.

How can I prevent this scenario from happening?

I reallize what is causing the problem and can walk them through a solution but thats not really the point.


Private Sub Form_Load()
On Error GoTo ErrorHandler

Set oLapp = CreateObject("Outlook.application")
Exit Sub

ErrorHandler:
Set oLapp = Nothing
cmdSendEmail.Visible = False
End Sub