vba error run-time 429 activex component can't create object - excel & outlook 2007

[dgr7]

hello,
I have some VBA code that in one portion of it an Outlook e-mail is created and the active workbook is attached and sent. This code used to work on Excel & Outlook 2003, but now in Excel & Outlook 2007 I'm getting the error:

Run-time error '429':
ActiveX component can't create object

and is stopping on the line

Set OutApp = GetObject(, "Outlook.Application")

FY If I comment out the Set OutApp... and If OutApp.... lines and uncomment the Set OutApp create object line, I still get the same error.

How do I fix this run-time error so the code will successfully run?
thanks in advance,
david

 Dim OutApp As Object
    Dim OutMail As Object
    Dim SigString As String
    Dim Signature As String

    'Set OutApp = CreateObject("Outlook.Application")
    Set OutApp = GetObject(, "Outlook.Application")
    If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application")
    
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)



    On Error Resume Next
    With OutMail
        .To = "test@test.com"
        .BCC = ""
        .Subject = ActiveWorkbook.Name
        .HTMLBody = "Please see the_attached workbook " & ActiveWorkbook.Name & ".<br><br>" & Signature
        .Attachments.Add ActiveWorkbook.FullName
        .Display
        '.Send
    End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

 

[DonkeyOte]

is Outlook open when you run this ?

 

[dgr7]

Yes, it is running.

 

[DonkeyOte]

Going to *bump* as I don't have 07 so can't investigate further ... not having OL client open is often the cause hence the check.

Hopefully someone else has a solution for you.

 

[dgr7]

lasw10, thank you for the assistance.

can anyone help me with this issue?

thanks in advance,
david

 

[dgr7]

can anyone help me with this issue?

thanks in advance,
david

 

[RoryA]

Do you have only one version of Outlook installed?

 

[dgr7]

Yes, just 2007.

 

[RoryA]

If you set a reference to the Outlook 2007 library in your Excel projectand use code like:

Dim OutApp as Outlook.Application
Set OutApp = New Outlook.Application

do you get the same error?

 

[dgr7]

That was it, it works now! Thank you!