Problems w/Opening Lotus Notes to Send an Email

[OhYeahLach]

I am using the code below to send an email through Lotus Notes. I am having a problem with opening Notes on a particular PC. In most cases, when executing the Set Session = CreateObject("Notes.NotesSession") line without Notes open, it returns an Err of 429 which I can handle no problem. On this particular PC, the Set Session = CreateObject("Notes.NotesSession") line opens Notes up without Err 429 and stays on that line of code because it's waiting for the password to be opened. I have code to enter the password, but it never gets there. I keep getting a Component Request Pending msgbox before it will continue. I tried using app.OLEServerBusyTimeout and app.OLEServerBusyRaiseError but didn't seem to work.

Why does Set Session = CreateObject("Notes.NotesSession") work on some PC's? How do I get around this, the code will not continue with this pending ActiveX.

CODE:
SessionCreated = True
Set Session = CreateObject("Notes.NotesSession")
If SessionCreated Then
EnterPassword
End If
Set Database = Session.GetDatabase("", "")
ServerDown:
Call Database.OPENMAIL
Set Doc = Database.CreateDocument