Microsoft.Office.Interop.Outlook gives an unspecified error

Question

Microsoft.Office.Interop.Outlook gives an unspecified error

Kurt Jensen 20

This code gives this error: Unspecified error (0x80004005 (E_FAIL)) I have not been able to find any solution to this anywhere. Can someone here help? It is a kind of test program so I only have a listbox and a button on the form, but if I can get it to work I need this functionality in another program. Imports Microsoft.Office.Interop.Outlook Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try Dim oApp As New Microsoft.Office.Interop.Outlook.Application Dim mBox As Folder = oApp.Session.Folders("Migatronic Consultant Access") 'oApp.Session.Folders("Migatronic Consultant Access") Dim Indfolder As Folder = mBox.Folders("Indbakke") Dim ProcFolder As Folder = Indfolder.Folders("Processed") MsgBox(ProcFolder.EntryID) ListBox1.Items.Clear() For Each msg As Object In ProcFolder.Items If TypeOf msg Is MailItem Then Dim wrkmsg As MailItem 'DirectCast(msg, MailItem) wrkmsg = DirectCast(msg, MailItem) If wrkmsg IsNot Nothing Then ListBox1.Items.Add(wrkmsg.Subject & " " & wrkmsg.SenderEmailAddress) End If End If Next Catch ex As System.Exception Debug.Print("An error occurred: " & ex.Message) MsgBox("An error occurred: " & ex.Message) End Try End Sub End Class Try Dim oApp As New Microsoft.Office.Interop.Outlook.Application Dim mBox As Folder = oApp.Session.Folders("Migatronic Consultant Access") Dim Indfolder As Folder = mBox.Folders("Indbakke") Dim ProcFolder As Folder = Indfolder.Folders("Processed") MsgBox(ProcFolder.EntryID) ListBox1.Items.Clear() For Each msg As Object In ProcFolder.Items If TypeOf msg Is MailItem Then Dim wrkmsg As MailItem 'DirectCast(msg, MailItem) wrkmsg = DirectCast(msg, MailItem) Dim SenderAdr As String If wrkmsg.SenderEmailType = "EX" Then SenderAdr = wrkmsg.Sender.GetExchangeUser.PrimarySmtpAddress Else SenderAdr = wrkmsg.SenderEmailAddress End If If wrkmsg IsNot Nothing Then ListBox1.Items.Add(wrkmsg.Subject & " " & SenderAdr) End If End If Next Catch ex As System.Exception Debug.Print("An error occurred: " & ex.Message) MsgBox("An error occurred: " & ex.Message) End Try End Sub End Class

Jiachen Li-MSFT 34,201 Reputation points Microsoft External Staff

2024-02-20T07:33:50.0833333+00:00

Hi @Kurt Jensen , Could you please provide more information about your project type and test environment?
Kurt Jensen 20 Reputation points

2024-02-20T07:52:30.91+00:00

It is VB.net Windows Forms project. Target framework is .NET 8.0 and Office (Outlook)365. The error comes when I try to access the SenderEmailAdress or the PrimarySmtpAddress property. The Subject property works fine and also, for an example, the ReceivedTime property. Was that information enough?
I hope that someone can tell me what could be the reason and, hopefully, has a solution because I really spend a lot of time searching the net without finding finding anything usefull.
Albert Kallal 5,501 Reputation points

2024-02-22T17:15:41.8766667+00:00

Have you forced the project build to the same bit size of Office/Outlook? You don't want to use ANY CPU here, but need to force the project build to x32 bits, or x64 bits - depending on the version of office/outlook installed. So, are you running office x32, or office x64 bits? Your project build needs to match the settings of outlook/office bit size wise.

2 answers

Your answer

Jiachen Li-MSFT 34,201 Reputation points Microsoft External Staff

2024-02-20T07:33:50.0833333+00:00

Hi @Kurt Jensen , Could you please provide more information about your project type and test environment?
Kurt Jensen 20 Reputation points

2024-02-20T07:52:30.91+00:00

It is VB.net Windows Forms project. Target framework is .NET 8.0 and Office (Outlook)365. The error comes when I try to access the SenderEmailAdress or the PrimarySmtpAddress property. The Subject property works fine and also, for an example, the ReceivedTime property. Was that information enough?
I hope that someone can tell me what could be the reason and, hopefully, has a solution because I really spend a lot of time searching the net without finding finding anything usefull.
Albert Kallal 5,501 Reputation points

2024-02-22T17:15:41.8766667+00:00

Have you forced the project build to the same bit size of Office/Outlook? You don't want to use ANY CPU here, but need to force the project build to x32 bits, or x64 bits - depending on the version of office/outlook installed. So, are you running office x32, or office x64 bits? Your project build needs to match the settings of outlook/office bit size wise.

Answer 1

Jiachen Li-MSFT 34,201 Microsoft External Staff

Hi @Kurt Jensen ,

Please ensure that the Sender object and its related properties (GetExchangeUser and PrimarySmtpAddress) are not null before accessing them.

If wrkmsg.Sender IsNot Nothing Then
    Dim senderAddress As String = ""
    If wrkmsg.SenderEmailType = "EX" Then
        Dim exchangeUser = wrkmsg.Sender.GetExchangeUser()
        If exchangeUser IsNot Nothing Then
            senderAddress = exchangeUser.PrimarySmtpAddress
        End If
    Else
        senderAddress = wrkmsg.SenderEmailAddress
    End If
    ListBox1.Items.Add(wrkmsg.Subject & " " & senderAddress)
End If

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.

Kurt Jensen 20 Reputation points

2024-02-21T06:56:33.7166667+00:00

Hi Jiachen Li First of all, thanks for trying to help - it's appreciated. I tried to put your code into my program, but it also fails here:
senderAddress = wrkmsg.SenderEmailAddress Can it be some kind of security settings or something in our Office environment that prevents me from accessing email adresses? Best Regards
Kurt
Jiachen Li-MSFT 34,201 Reputation points Microsoft External Staff

2024-02-21T09:57:37.26+00:00
Some settings that can cause this issue:

Outlook Security Settings: Outlook has built-in security features that can restrict programmatic access to certain properties or actions, especially when interacting with external applications. These security settings are often controlled by administrators and can vary depending on your organization's policies.

Exchange Server Permissions: If your organization uses Exchange Server, permissions and policies configured on the server side can also impact programmatic access to email addresses and other properties. Your application may require specific permissions to access certain types of data.

When it comes to issues other than code, it is recommended to use Outlook-related tags to post questions.
Deleted

This comment has been deleted due to a violation of our Code of Conduct. The comment was manually reported or identified through automated detection before action was taken. Please refer to our Code of Conduct for more information.
Kurt Jensen 20 Reputation points

2024-02-23T07:25:29.2566667+00:00

@Albert Kallal That was one of the things I found on the net in my search for solutions and I tried that, but still the same error and, just to be sure, I just tried it again right now, but no luck. Thanks for the suggestion :-)

Answer 2

Kurt Jensen 20

Despite of good suggestions from those who participated, there were no solution found. I close the question.

Share via

Microsoft.Office.Interop.Outlook gives an unspecified error

2 answers

Your answer