429-ActiveX component can't create component - Email Code

[cl8]

Hi

I would appreciate any help offered!

I am having an issue with 1 computer running the following email code from a command button on a form (Access 2003). Code works on other computers but gives a 429-ActiveX can't create component error on particular computer.

The computer in question was running runtime and functioning ok until access 2003 was installed.

Can any one give me a clue into how to fix this issue as its got me pulling my hair out.

Code in question:

Private Sub Command52_Click()
On Error GoTo Err_Command52_Click
Dim olApp As Object
Dim olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
Me.tbl_repair_detail_subform.SetFocus
DoCmd.GoToRecord , , acLast
With olMail
.to = "email.adress"
.Subject = "Tooling Repair " & Me.Repair_No & " update:  " & Me.Tooling_No
.Body = vbCrLf & "The following Tooling repair has progressed as per the details below" _
& vbCrLf & vbCrLf & "Repair Request Info:" & vbCrLf & vbCrLf & "Issue:     " _
& Me.Issue & vbCrLf & "Request:  " & Me.Repair & vbCrLf & vbCrLf & _
"Progress Report:" & vbCrLf & vbCrLf & Me.tbl_repair_detail_subform.Form.[Date] & _
"    Status:  " & Me.tbl_repair_detail_subform.Form.[Status] & "    Description:  " & _
Me.tbl_repair_detail_subform.Form.[Work Description] & vbCrLf & vbCrLf & _
"Please let me know if you have any questions about the repair on this tooling" & _
vbCrLf & vbCrLf & "Regards" & vbCrLf & vbCrLf & Me.tbl_repair_detail_subform.Form.[By Who]
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
 
Exit_Command52_Click:
    Exit Sub
Err_Command52_Click:
    MsgBox Err.Number & " - " & Err.Description, vbInformation, "Command52_Click - Error"
    Resume Exit_Command52_Click
 
End Sub

 

[darbid]

Code works on other computers but gives a 429-ActiveX can't create component error on particular computer.

That is really annoying when it works on all except for one.

which line does it error on? I am guessing this one

Set olApp = CreateObject("Outlook.Application")