ActiveX component can't create object. VBA Sending Email

[russ0670]

I am using the following code but when i run it produces the following error.



Run-time error '429':

ActiveX component can't create object.

then on debug it highlights the line
Set objOutlook = CreateObject("Outlook.Application")

I have searched online and already tried a suggestion to ensure that microsoft outlook 14.0 object library is selected in the VBA references.

Anyone have an idea?

Dim objOutlook As Object
Dim objMailItem As Object
Const olMailItem As Integer = 0
Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)

 'set the object from template
Set objMailItem = objOutlook.CreateItemFromTemplate("C:\FastFile\System 3.0\3.0\BLANKTEMP.oft")


strEmail = "test@testing.com"
strSubject = "Test"
strBody = "Test the Outlook Object"
strPathAttach = "C:\FastFile\System 3.0\sampleatt.pdf"


On Error GoTo err_Error_handler

'set receipient
objMailItem.To = strEmail
'set subject
objMailItem.Subject = strSubject
'set body content
objMailItem.Body = strBody
'Check path and file, then set Attachment

If Len(Dir(strPathAttach)) Then
   With objMailItem.Attachments
      'use parenthisis around the path
      .Add (strPathAttach)
  
   End With
End If

'sending email
objMailItem.Send


 Set objOutlook = Nothing
 Set objMailItem = Nothing


exit_Error_handler:
 On Error Resume Next

 Set objOutlook = Nothing
 Set objMailItem = Nothing
 
 Exit Sub
 

err_Error_handler:
 Select Case Err.Number
  'trap error 287
  Case 287
   MsgBox "Canceled by user.", vbInformation
  Case Else
   MsgBox "Error " & Err.Number & " " & Err.Description
 End Select

Resume exit_Error_handler

[June7]

Cannot find solution for using CreateItemFromTemplate. Everything leads to building the message dynamically with HTML code tags in VBA.

https://social.msdn.microsoft.com/Fo...rum=outlookdev

[ItsMe]

It looks like late binding to me so there should not be a need for any reference to Microsoft Outlook Object Library. Having said that, is it available in the machine that is causing you trouble? If you see it as a reference in your development machine that indicates that Outlook is installed on your development machine. However, this is not a guarantee that Outlook is installed on every other machine.

Is Outlook installed on the machine giving you trouble? If you add the reference to your project and then try to open your project on the machine giving you trouble, do you get a warning that there is a missing reference?

[russ0670]

SOLVED

Found it was because Access was open as administrator and outlook was not. Set both to normal and fires perfectly.

Also works if both set to open as administrator. go figure.

thanks guys for your help.

[June7]

Do you mean Access was open in exclusive mode? I am not sure what you mean by 'administrator' for Access or Outlook.