Hi Gurus, In an attempt to switch Option Strict to ON I've been correcting the errors & forgot that I hadn't dealt with Outlook. My current code is old VBA based late binding to avoid Office version issues. All the reading I've been able to find all requires a COM reference to Outlook and since not all machines using the application have the same Office version I'm unsure how .Net VB will be deal with that. I have O2019 but at least one of the machines has O2016 so when deployed how will that be dealt with?

Hi @Hugh Self Taught , Attempt early binding first with New Microsoft.Office.Interop.Outlook.Application(). If early binding fails, fall back to late binding using reflection. Option Strict On Public Class OutlookManager Private outlookApp As Object Public Sub New() Try ' Attempt early binding outlookApp = New Microsoft.Office.Interop.Outlook.Application() Catch ex As Exception ' Early binding failed, fall back to late binding Dim outlookType As Type = Type.GetTypeFromProgID("Outlook.Application") outlookApp = Activator.CreateInstance(outlookType) End Try End Sub ' Other methods and properties for Outlook automation End Class Best Regards. Jiachen Li If the answer is helpful, please click " Accept Answer " and upvote it. Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Outlook as late binding with Option Strict ON

Accepted answer

Jiachen Li-MSFT 26,591 Reputation points Microsoft Vendor

2024-04-03T10:07:31.1933333+00:00
Hi @Hugh Self Taught ,

Attempt early binding first with New Microsoft.Office.Interop.Outlook.Application().

If early binding fails, fall back to late binding using reflection.

Option Strict On Public Class OutlookManager Private outlookApp As Object Public Sub New() Try ' Attempt early binding outlookApp = New Microsoft.Office.Interop.Outlook.Application() Catch ex As Exception ' Early binding failed, fall back to late binding Dim outlookType As Type = Type.GetTypeFromProgID("Outlook.Application") outlookApp = Activator.CreateInstance(outlookType) End Try End Sub ' Other methods and properties for Outlook automation End Class

Best Regards.

Jiachen Li

If the answer is helpful, please click "Accept Answer" and upvote it.

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.
Please sign in to rate this answer.
Hugh Self Taught 81 Reputation points

2024-04-04T12:22:55.96+00:00

Hi @Jiachen Li My email routine is in a module since I send from several forms. I have added your try--catch to the routine, added imports of reflection & office.interop

Should I not be testing if an instance of Outlook process is running else then create a new instance?

In my old code I used oNamespace = oOutlook.GetNameSpace("MAPI") and then

oFolder = oNameSpace.GetDefaultFolder(6) 'oFolderInbox=6

I haven't been able to figure out how to get the MAPI namespace syntax. I have the following for BCC recipient but can't find how to specify the oRecipient.Type

Can you help with this?

If Len(Trim(strAddrBCC) & vbNullString) > 0 Then strAddressBCC = Split(strAddrBCC, ";") For lngIndex = 0 To UBound(strAddressBCC) oRecipient = CreateObject(".Recipients.Add(strAddressBCC(lngIndex))") oRecipient.Type = 3 'olBCC Next lngIndex End If

Jiachen Li-MSFT 26,591 Reputation points Microsoft Vendor

2024-04-05T07:42:33.7733333+00:00

Hi @Hugh Self Taught ,

We usually recommend focusing on one issue within a question, and posting new issues as new problems.

To replicate the functionality of oOutlook.GetNameSpace("MAPI") in .NET, you can use the Session object from the Outlook Interop assembly.

Stores.Session property (Outlook)

Private outlookApp As Outlook.Application Private outlookNamespace As Outlook.NameSpace Public Sub New() Try ' Attempt early binding outlookApp = New Outlook.Application() outlookNamespace = outlookApp.Session Catch ex As Exception ' Early binding failed, handle the exception as needed Console.WriteLine("Error: " & ex.Message) End Try End Sub Public Sub AddRecipients(ByVal strAddrBCC As String) If Len(Trim(strAddrBCC) & vbNullString) > 0 AndAlso outlookNamespace IsNot Nothing Then Dim strAddressBCC As String() = Split(strAddrBCC, ";") Dim oFolder As Outlook.MAPIFolder = outlookNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) For Each strAddress As String In strAddressBCC Dim oRecipient As Outlook.Recipient = outlookApp.Session.CreateRecipient(strAddress) oRecipient.Type = Outlook.OlMailRecipientType.olBCC oRecipient.Resolve() Next End If End Sub

Hugh Self Taught 81 Reputation points

2024-04-18T11:11:54.1233333+00:00

@Jiachen Li-MSFT Apologies for only getting back now. Been a bit unwell. I've marked as accepted as it has helped other than if outlook is already open. For some strange reason I now get active x error 429 happening whereas it worked previously. I'll post a new question to try get a solution to that issue.

Thanks for the help
Sign in to comment

Outlook as late binding with Option Strict ON

0 additional answers