Error 429 only if Outlook is already open when try to automate an email

Question

Error 429 only if Outlook is already open when try to automate an email

Hugh Self Taught 101

Good day Gurus of .Net

Since I started trying to get my app to be option strict compliant, I've suddenly started getting error 429 Unable to create active x component BUT only when Outlook is already open. I have the following code to get an instance of Outlook. The line "oOutlook = Activator.CreateInstance(outlookType)" returns the following error. Any ideas on how I rectify this will be greatly appreciated

Outlook Error2024-04-18 14_01_38-

            Dim procs() As Process = Process.GetProcessesByName("Outlook")
            If procs.Count > 0 Then
                Dim outlookType As Type = Type.GetTypeFromProgID("Outlook.Application")
                oOutlook = Activator.CreateInstance(outlookType)
            Else
                'oOutlook = New Outlook.Application()
                oOutlook = New Microsoft.Office.Interop.Outlook.Application()
            End If
            oNameSpace = oOutlook.Session
            Dim oFolder As Outlook.MAPIFolder = oNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

Viorel 122.6K Reputation points

2024-04-19T05:36:39.3933333+00:00

Did you try to use the Else block only?
Hugh Self Taught 101 Reputation points

2024-04-19T08:37:26.6933333+00:00

Morning @Viorel I've just tried it and get the same error as I posted with Outlook open. I've just tested with a copy of the project I saved prior to starting to change all late binding so I could have option strict on & it works fine there. The only email module differences are the imports and getting/creating an instance of outlook. The original has these imports:

Imports System.Net

Imports System.Net.Mail

Imports System.Text.RegularExpressions

The updated version has these:

Imports System.IO

Imports System.Net

Imports System.Net.Mail

Imports System.Text

Imports System.Text.RegularExpressions

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Outlook

Imports Redemption

The original only has these lines "Dim oOutlook as Object" and

"oOutlook = CreateObject("Outlook.Application")" and it creates a mailitem whether Outlook is open or not but then I can't turn option strict on

Any ideas?

Your answer

Viorel 122.6K Reputation points

2024-04-19T05:36:39.3933333+00:00

Did you try to use the Else block only?
Hugh Self Taught 101 Reputation points

2024-04-19T08:37:26.6933333+00:00

Morning @Viorel I've just tried it and get the same error as I posted with Outlook open. I've just tested with a copy of the project I saved prior to starting to change all late binding so I could have option strict on & it works fine there. The only email module differences are the imports and getting/creating an instance of outlook. The original has these imports:

Imports System.Net

Imports System.Net.Mail

Imports System.Text.RegularExpressions

The updated version has these:

Imports System.IO

Imports System.Net

Imports System.Net.Mail

Imports System.Text

Imports System.Text.RegularExpressions

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Outlook

Imports Redemption

The original only has these lines "Dim oOutlook as Object" and

"oOutlook = CreateObject("Outlook.Application")" and it creates a mailitem whether Outlook is open or not but then I can't turn option strict on

Any ideas?

Share via

Error 429 only if Outlook is already open when try to automate an email

Your answer