ActiveX component cant create object

[nniedzielski]

I am trying to set some code in my macro to send an e-mail of a worksheet but I am getting the following error:

(ActiveX component cant create object)

Set OutApp = CreateObject("Outlook.Application")

How can I adjust my code to create the object?

thanks,

 

[shg]

Is Outlook already running?

 

[nniedzielski]

I have outlook open, for example, I can use the Share > Email > Send as attachment function in Excel and send an e-mail out through Outlook.

 

[shg]

Try

Set OutApp = GetObject("Outlook.Application")

 

[nniedzielski]

after researching, I found this code which also does not work

 On Error Resume Next
        Set OutlookApp = GetObject(Class:="Outlook.Application") 'Handles if Outlook is already open
      Err.Clear
        If OutlookApp Is Nothing Then Set OutlookApp = CreateObject(Class:="Outlook.Application") 'If not, open Outlook
        
        If Err.Number = 429 Then
          MsgBox "Outlook could not be found, aborting.", 16, "Outlook Not Found"
          GoTo ExitSub
        End If
      On Error GoTo 0

 

[shg]

What happens when you step through the code?

 

[nniedzielski]

I get the error message "Outlook could not be found, aborting.