Runtime error 429- Active X Component can't create object

I have one computer that continues to generate this error when trying to execute the following code (which works fine on other computers...)

When clicking debug, the following line is highighted:
Set myOlApp = CreateObject("Outlook.Application")

Here is what I have tried:
1.) Confirmed this function works on other computers.  It does.
2.) Confirmed no references are "missing" and that they are the same as the computers where this function runs correctly.
3.) "Ran"regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO360.DLL" to reregister the DLL.  Message received was that the registration was successful.
4.) Re-installed MS Office 2000 SP-3.

What else can I do on this...?  After all of the above- still receive this error and Outlook does not open...


Thanks

Public Function AssignmentEmail()
 
    Dim myOlApp As Object
    Dim myItem As Object
        
    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.CreateItem(olMailItem)
 
   
            With myItem
                .To = Me.T_EXPERT_EMAIL
                .SentOnBehalfOfName = Nz(DLookup("default_email", "tblcurrentuser"))
                '.BodyFormat = olFormatRichText
                .BodyFormat = olFormatPlain
                If Me.T_PRIORITY = 1 Then
                .Importance = olImportanceHigh
                .Subject = Format(Me.T_TICKET_NBR, "00000") & "-IST *PRIORITY* Ticket-Category: " & Me.T_CAT_NAME
                Else
                .Subject = Format(Me.T_TICKET_NBR, "00000") & "-IST Ticket-Category: " & Me.T_CAT_NAME
                End If
    
        
             End With
 
    
    Set myItem = Nothing
    Set myOlApp = Nothing
 
End Function

Select allOpen in new window